单选题假定有下表所列的菜单结构： (表格) 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是______。
单选题阅读程序：
Option Base 1
Private Sub Form_Click()
Dim i As Integer
Dim A(8)As String
For i=1 To 8
A(i)=LCase(Chr(Asc("A")+(i-1)))
Next i
For Each b In A
Print UCase(b);
Next b
End Sub
运行上面的程序，单击窗体，输出结果是
单选题设有下面的循环： i=0 While i＜=1 i=i+3 Print i Wend 则运行后的输出结果是
单选题在窗体上已经添加了名为CommonDialog控件，用Show方法显示“打开”对话框的正确方法是____。
单选题当Form_Click事件发生时，程序输出的结果是 ______。 Private Sub Form Click() Dim a As Integer，b As Integer，c As Integer a=1: b=1 Print a; b Do c=a+b Print c a=b:b=c Loop Until c＞=5 End Sub
单选题在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click( ) X=5：Y=3 Call proc(X，Y) Label1.Caption=X LabeL2.Caption=Y End Sub Private Sub proc(ByVal a As Integer，ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是
单选题在Do Until…Loop循环中，判断循环结束的方法是______。
单选题运行下列程序段后，显示的结果为( )。 J1=23 J2=32 If J1＜J2 Then Print J2 Else Print Jl
单选题下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form Click() Dim i As Integer Dim sum As Long Dim t As Long t=1:sum=0 For i=1 To 3 t=t*i sam=sum+t Next i Print sum End Sub
单选题在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
x=Int(Val(Text1.Text)+0.5)
Label1.Caption=Str(x) End Sub
程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是： ______。
A. 27
B. 28
C. 29
D. 30
单选题如果要向工具箱中加入控件和部件，可以利用“工程”菜单中的命令。 A) 引用 B) 部件 C) 工程属性 D) 添加窗体
单选题阅读程序：
Sub subP(b()As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4)As Integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subP a()
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为
单选题下面程序运行后，输出的结果是 Dim arr(3,3) For j=1 To 3 For k=1 To 3 Arr(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For j=2 To 3 Print art(k,j)； Next k Print Next j
单选题窗体上有一个名称为Text1的文本框，一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是
单选题以下关于VB文件的叙述中，错误的是
单选题在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母e，则文本框中显示的内容为 ______。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char as String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(5，KeyAscii) End Sub
单选题窗体上有一个名称为Text1的文本框；一个名称为Timer1的计时器控件，其Interval属性值为2000,Enabled属性值是True。Timer1的事件过程如下： Private Sub Timer1_Timer() Static flag As Integer If flag=0 Then flag=1 flag=-flag If flag=1 Then Text1.ForeColor=＆HFF＆'＆HFF＆为红色 Else Text1.ForeColor=＆HC000＆'＆HC000＆为绿色 End If End Sub 以下叙述中正确的是______。 A) flag的值只可能取0或1 B) 程序有逻辑错误，Else分支总也不能被执行 C) 每次执行此事件过程时，flag的初始值均为1 D) 程序执行后，文本框中的文字每2秒改变一次颜色
单选题信息屏蔽的概念与______概念相关。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a(5,5) As Integer For i=1 To 5 For j=1 To 5 a(i,j)=(i+j)*5/10 Next j Next i s=0 For i=1 To 5 s=s+a(i,i) Next i Print s End Sub 程序运行后，单击命令按钮，输出结果是
单选题下面的程序运行结果是( )。 Private Sub Form_Click() i=0 Do i=i+1 if i＞10 then Exit Do Loop Until i＜10 Print i End Sub