单选题有如下程序：
Private Sub Form_Click()
Dim i As Integer, n As Integer
For i=1 To 20
i=i+4:n=n+i
If i＞10 Then Exit For
Next
Print n
End Sub
程序运行后，单击窗体，则输出结果是
单选题假定程序中有如下语句：
answer = MsgBox("第一个字符串"，vbAbortRetryIgnore Or vbCritical _Or vbDefaultButton3，"第二个字符串")
执行该语句后，将显示一个信息框，此时如果按回车键，则answer的值为________。
单选题在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Type Record
ID As Integer
Name As String
*
20
End Type
Private Sub Command1_Cilck()
Dim MaxSiza, NextChar, MyChar
Open "d:/temp/female. txt" For Input As #1
MaxSize=LOF(1)
For NextChar=MaxSize To 1 Step-1
MyChar=Input(1, #1)
Next NextChar
Print EOF(1)
Close#1
End Sub
运行程序，单击命令按钮，其输出结果为______。
单选题Print方法可以在对象上输出数据，这些对象包括( )。 A) 图片框 B) 状态栏 C) 标题栏 D) 代码窗口
单选题以下声明数组和给数组赋值的语句中，正确的是( )。
单选题有如下的程序段，该程序段执行完后，共执行的循环次数是 total=0 Counter=1 Do Print
Counter total=total * Counter + 1 Print total Counter=Counter
+1 If total ＞ 10 Then Exit Do End If Loop While
Counter＜=10
A. 4
B. 10
C. 15
D. 20
单选题有如下程序：
Private Sub Form_Click()
Dim Check, Counter
Check=True
Counter=0
Do
Do While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End If
Loop
Loop Until Check=False
Print Counter, Check
End Sub
程序运行后，单击窗体，输出结果为______。
单选题阅读程序：
Private Sub Form Click
____
Dim num As Integer, digit As Integer
num=InputBox("输入数据")
Do While num＜＞0
digit=num Mod 10
num=num/10
Print digit；
Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出结果为______。
单选题编写如下程序： Private Sub Command1_Click() Dim i As Integer，j As Integer n=InputBox("输入一个大于1的正整数") For i=2 To n Forj=2 To Sqr(i) Ifi Modj=0 Then Exit For Nextj ifj>Sqr(i)Then Print i Next i End Sub 该程序的功能是
单选题下面是求最大公约数的函数的首部 Function gcd(ByVal x As Integer，ByVal y As Integer)As Integer 若要输出8、12、16这3个数的最大公约数，下面正确的语句是
单选题下列有语法错误的赋值语句是
单选题运行下列程序后，显示的结果为______。
R1=21
R2=34
If R1＜R2 Then Print R2 Else Print R1
单选题下面不能在信息框中输出“VB”的是
单选题语句Print 5*5/5/5的输出结果是
单选题设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1，及下面的事件过程：PrivateSubForm_Load()HScroll1．Min=0HScroll1．Max=100EndSubPrivateSubCommand1——Click()HScrolll．Value=70EndSub程序运行时单击命令按钮，则滚动条上滚动块位置的图示是
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n/3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
单选题窗体上有一个名称为command1的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Commandl_Click() Dim a(10)As Integer,x As Integer a(i)=Int(Rnd*100) x=InputBox(”输入100以内的整数：”) P=0 For i=1 To 10 Ifa(i)=x Then P=i：Exit For End If Next Ifp=0 Then Print”没有找到与输入数据相同的数!” Else Print str(x)+”在数组中的位置是”+Str(p) End If End Sub 对于上述事件过程，以下叙述中正确的是
单选题在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command_Click() Static b As Integer b=b+1 End Sub运行程序，第3次单击命令按钮后，变量b的值为______。
单选题单个用户使用的数据视图的描述称为 ______。
单选题单击命令按钮执行以下程序，输出结果为( )。 Private Sub Command1_Click() Dim x As Integer,y As Integer x＝12：y＝32 Call Proc(x，y) Printx；y End Sub Public Sub Proc(n AS Integer,ByVal m As Integer) n＝nMod 10：m＝m Mod 10 End Sub