单选题设已经在窗体上添加了一个通用对话框控件CommonDialog1，以下正确的语句是
单选题设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发
单选题下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j/3 Next Print a End Sub
单选题在窗体上画两个单选按钮(名称分别为Optionl、Option2，标题分别为“宋体”和“黑体”)、1个复选框(名称为Check1，标题为“粗体”)和1个文本框(名称为Text1，Text属性为“改变文字字体”)。程序运行后，要求“宋体”单选按钮和“粗体”复选框选中，则以下能够实现上述操作的语句序列是
单选题设有如下程序段：
x=2
For i=1 to 10 Step 2
x=x+i
Next
运行以上程序后，X的值是______。
单选题设M=3，N=5，P=4.5，Q=2.5，表达式(M*N＋2)/(P-Q)的计算结果为______。
单选题设a=5,b=10，则执行c=Int((b-A) *Rnd+A) +1后，c值的范围为______。
单选题下面程序段执行结果为 x=Int(Rnd()+3) Select Case
x Case 5 Print "excellent" Case
4 Print "good" Case
3 Print"pass" Case
Else Print"fail" End Select
A.excellent
B.good
C.pass
D.fail
单选题VB中，若没有显式声明变量的数据类型，则默认的类型是
单选题设有以下循环结构： Do 循环体 Loop While＜条件＞ 则以下叙述中错误的是______。 A) 若“条件”是一个为0的常数，则一次也不执行循环体 B) “条件”可以是关系表达式、逻辑表达式或常数 C) 循环体中可以使用Exit Do语句 D) 如果“条件”总是为True，则不停地执行循环体
单选题用来设置文件中下一个读写位置的语句是______ 。 A．Skip B．Seek C．FileAttr D．Select
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() x=Input Box("Input") Select Case x Case 1,3 Print"分支1" Case Is＞4 Print"分支2" Case Else Print"Else分支" End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是( )。
单选题下面程序的运行结果是______。 Dim a，i，s a=Array("6"，"5"，"a"，"b"，"2"，"1") s=0 i=0 Dw While a(i)＞="0" And a(i)＜="9" s=10* s+a(i)-"0" Print s i=i+2 Loop
单选题在窗体中添加一个命令按钮，编写如下程序：PrivateSubSub1(p,m,n)p=p+1:m=m+1:n=n+1Print"sub1:";p;m;nEndSubPrivateSubCommand1_Click()a1=1:b1=2:c1=3CallSub1(a1,b1+3,c1)Print"Main:";a1;b1;c1EndSub程序运行后，输出结果为______。A．B．C．D．
单选题下面的程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dima(1 To 6)As Integer Dim mini％，i％，j％，n％，t％，k％ a(1)=8：a(2)=6：a(3)=9：a(4)=3：a(5)=2： a(6)=7 n=6 For i=1 To n-1 min 1=i For j=i+1 To n If a(j)
单选题设有如下程序：
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Print a(5-i)；
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是( )。
单选题设有以下程序代码：Private Sub Command1_Click() Static a As Integer proc a Print aEnd SubSub proc(x As Integer) x = x + 1End Sub运行程序，3次单击命令按钮，第3次单击后显示的是
单选题在窗体上画一个命令按钮(名称为Commandl)，并编写如下代码：Function Fun 1(ByVal a As Integer， b As Integer)As Integer Dim t As Integer t=a-b：b=t+a：Fun1=t+bEnd FunctionPrivate Sub Commandl_Click() Dim x As Integer x=10 Print Funl(Funl(x，(Funl(x，x一1)))，x—1)End Sub 程序运行后，单击命令按钮，输出结果是
单选题阅读程序： Option Base 1 Private Sub Form_Click() Dim a(3，3)As Integer For i=1 To 3 Forj=1 To 3 a(i，j)=_____ Print a(i，j)； Nextj Print Next i End Sub 运行上面的程序，单击窗体，输出结果如下： 1 4 7 2 5 8 3 6 9 则在横线处应填入的内容为
单选题命令按钮Command1的单击事件过程如下：
Private Sub Command1_Click()
x=10
Print f(x)
End Sub
Private Function f(y As Integer)
f=y*y
End Function
运行上述程序，如下叙述中正确的是______。