你可能感兴趣的试题

有两个关系R，S如下：

由关系R通过运算得到关系S，则所使用的运算为（）。

执行语句Dim X，Y As Integer后，（）。

执行以下程序段 a＄="Visual Basic Programming" b＄="C++" c＄=UCase(Left＄(a＄，7))& b＄ & Right ＄(a＄，12) 后，变量c＄的值为（）。

在窗体上画两个单选按钮(名称分别为Option1、Option2，标题分别为“宋体”和“黑体”)、 1个复选框(名称为Check1，标题为“粗体”)和1个文本框(名称为Text1，Text属性为“改变文字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是（）。

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_ Click()
c=1234
c1=Trim(str(c))
For i=1 To 4
Print ______
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234则在横线外应填入的内容为（）。

假定有以下程序段For i=1 To 3 For j=5 To 1 Srep-1 Print i*j Next jNext i则语句Print i*j 的执行次数是（）。

在窗体上画两个文本框(名称分别为Text1和Text2)和—个命令按钮(名称为Cotranand1)，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x＜50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。

阅读程序：
Private Sub Form_ Click()
a=0
For j=1 To 15
a=a+j
Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是（）。

语句Dim a(-3 To 4, 3 To 6)As Integer定义的数组的元素个数是（）。

在窗体上画—个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_ Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=,4 To 1 Step-1
s=s+ a(i)*j
j=j*10
Next i
Print s
End Sub
程序运行后，单击命令按钮，其输出结果是（）。

以下关于菜单的叙述中，错误的是（）。

设在工程文件中有—个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20End Type在窗体上画—个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Petson.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（）。

在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：
Option Base()
Private Sub Command1_ Click()
Dim A1(4) As Integer, A2(4)As Integer
For k= 0 To 2
A1(k+1)=InputBox(“请输入—个整数”)
A2(3-k)=A1(k+1)
Next k
Print A2 (k)
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（）。

在窗体上画两个标签和—个命令按钮，其名称分别为Label1、Labd2和Command1，然后编写如下程序：Private Sub func (L As Label) L.Caption="1234"End SubPrivate Sub Form_ Load() Label1. Caption="ABCDE" Label2．Caplion=10End SubPrivate Sub Command1_ Click() a=Val(Label2. Caption) call func(Label1) Label2.Caption=aEnd Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（）。

设有如下通用过程：
Public Function Fun (xStr As String) As String
Dim tStr As String，strL As Integer tStr=-" "
strL=Len(xStr)
i=strL/2
Do Whilei＜=strL
tStr=tStr &id(xStr,i+1，1)
i=i+1
Loop
Fun=tStr & tStr
End Function
在窗体上画—个名称为Text1的文本框和—个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_ Click()
Dim S1 String
S1="ABCDEF"
Text1.Text=LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是（）。

在窗体上画—个命令按钮(名称为Command1)，并编写如下代码：
Function Fun1 (ByVala As Integer, b As Integer)As Integer
Dim t As Integer
t=a-b
b=t+ a
Fun 1=t+ b
End Function
Private Sub Command1_ Click()
Dim x As Integer
x=10
Print Fun1(Fun1 (x,(Fun1(x，x-1))),x-1)
End Sub
程序运行后，单击命令按钮，输出结果是（）。

设有以下程序：
Private Sub Form_ Click()
x=50
For i=1 To 4
y=InputBox(“请输入—个整数”)
y=Val(y)
If y Mod 5=0 Then
a=a+ y
x=y
Else
a=a+ x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（）。

在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As StringPrivate Sub Form_ Load ()
Show Text1.Text=" "
Text1.SetFocusEnd
SubPrivate Sub Command1_ Click()
Text1. Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form_ KeyPress (KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为（）。