单选题窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下： Private Sub
Command1_Click() Static x As Variant
n=0
x=Array(1,2,3,4,5,6,7,8,9,10) While
n＜=4 x(n)=x(n+5)
Print x(n)； n=n+1
Wend End Sub
运行程序，单击命令按钮Command1，窗体上显示的是______。
A.1 2 3 4 5
B.6 7 8 9 10
C.2 3 4 5 6
D.6 2 3 4 5
单选题关于随机文件，以下叙述中错误的是
单选题有如下程序代码：
Private Sub Form_Click( )
Dim Sum As Integer
Sum = 0
While Sum ＜ = 20
Sum = Sum + 1
Wend
Print Sum
End Sub
运行程序，单击窗体，输出结果是______。
单选题在窗体上画一个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 If i=1 Then x=i If i＜= 4 Then x=x+1 Print x Next i End Sub 程序运行后，单击命令按钮，其输出结果为______。 A) 1 2 3 4 B) 2 3 4 5 C) 2 3 4 4 D) 3 4 5 6
单选题在程序运行时，下面的叙述中正确的是
单选题假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是
单选题关于KeVPress事件，以下叙述中正确的是
单选题表达式3*4^2+4*3/2+4^2的值是______。 A) 35 B) 36 C) 70 D) 71
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1＿Click( ) Dim a As Integer，s As Integer a＝8 s＝1 Do S=s+a a=a-1 Loop While a Prim s，a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
单选题请阅读程序： Option Base 1 Private Sub Form_Click() Dim Arr(4,4)As Integer For i=1 To 4 For j=1 To 4 Art(i,j)=(i-1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j,i) Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是( ) A．5 7 6 8 B．6 8 7 9 C．7 9 8 10 D．8 10 8 11
单选题设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为______。 x=IIF((a＞B) And(c＜d)，10,20) A) 10 B) 20 C) 30 D) 300
单选题程序运行时若单击水平滚动条上滚动块右边的空白处，则其Value属性值的变化量为( )。
单选题若要获得滚动条的当前值，可访问的属性是
____
。
单选题向顺序文件Temp.txt中写入1、2、3这3个数。在程序中加入( )可以使程序功能完整。 Private Sub Command1_Click() Open“c:/Temp.txt”,Output As#1 Fori=0 To 3 Next Close#1 End Sub A) Print#1,Temp.txt B) Get#1,i C) Print#1,i D) Unit#1,i
单选题窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x Private Sub Command l Click() a As Integer：b As Integer Dim Y As x End Type y．a=InputBox(””) If y．a＼2=y．a／2 Then y．b=y．a*y．a Else y．b=Fix(y．a／2) End If Text1．Text=y．b End Sub 对以上程序，下列叙述中错误的是
单选题下面关于文件叙述中错误的是
单选题设在一个工程的窗体中有如下代码：Publlc x As IntegerPrivate Sub Form_Load() Dim y As IntegerEnd Sub在该工程的标准模块的声明部分有代码：Public a As Integer：Private b As Integer关于上述代码，以下叙述中错误的是
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim c As Integer, d As Integer
d=0
c=6
x=Array(2,4,6,8,10,12)
For i=1 To 6
If x(i)＞c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。
单选题窗体上有一个名称为Combo1的组合框，一个名称为Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：
Private Sub Command1_Click()
str1=Trim(Combo1.Text)
flag=0
If str1＜＞""Then
For i=0 To Combo1.ListCount-1
If str1=Combo1.List(i)Then
Combo1.RemoveItem i:Combo1.Text=""
flag=1
End If
Next
If flag=1 Then
Combo1.AddItem Combo1.Text
End If
End Sub
程序中存在问题，以下关于程序问题的叙述中，正确的是
单选题假定有下面的程序段： For i=1 To 3 For j=1 To i For k=j To 3 Print "i="；i，"j="；j，"k="；k Next k Next j Next i 这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是______。