设有如下程序：

Private Sub Command1_Click（）

Dim c As Integer, d As Integer

c = 4

d = InputBox（"请输入一个整数"）

Do While d > 0

If d > c Then

 c = c + 1

End If

 d = InputBox（"请输入一个整数"）

Loop

Print c + d

E．nd Sub

程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（ ）。

A．12

B．11

C．10

D．9

[单选题]有如下程序：Private Sub Command1_Click（）D．im k As Integer, m As IntegerD．im p As Integerk=4: m=1p=PC（k, m） : Print p;p=PC（k, m） : Print pE．nd SubPrivate Function PC（a As Integer, b As Integer）Static m As Integer, i As Integerm=0: i=2i=i + m + 1m=i + a + bP

[单选题]有如下程序：Private Sub Command1_Click（）D．im a As SingleD．im b As Singlea=2: b=4C．all CS （a, B．E．nd SubSub CS （x As Single, y As Single）t=xx=t ＼ yy=t Mod yE．nd Sub程序运行后，单击命令按钮，a和b的值分别为（ ）。A．0 0B．1 1C．0 2D．1 2

[单选题]有如下程序：Private Sub Command1_Click（）D．im a As Integera=2F．or i=1 To 3Print Gad （A．Next iE．nd SubF．unction Gad （a As Integer）b=0Static cb=b + 1c=c + 1G．ad=a + b + cE．nd Function运行上面的程序后，单击命令按钮，输出结果为（ ）。A．123B．234C．456D．146

[单选题]有如下的程序：PrivateSubCommand1_Click()D．imxAsInteger,yAsIntegera=8b=3C．alltest(6,a,b+1)Print"主程序";6;a;bE．ndSubSubtest(xAsInteger,ByValyAsInteger,ByValzAsInteger)Print"子程序";x;y;zx=2y=4z=3E．ndSub当单击Command1后，运行程序显示的结果是( )A．子程序643主程序684B．

[单选题]有如下程序段：Private Sub Command1_Click（）D．im a As Integera=2F．or i=1 To 3Print G（A．Next iE．nd SubF．unction G（a As Integer）b=0Static cb=b + 1c=c + 1G．=a + b + cE．nd Function运行上面的程序后，单击命令按钮，输出结果为（ ）。A．1 2 3B．2 3 4C．4 5 6D．1 4 6

[单选题]有如下程序：Private Sub Command1_Click（）a$= "A WORKER IS HERE"x=Len（a$）F．or i=1 To x - 1b$=Mid$（a$, i, 3）If b$= "WOR" Then S=S + 1NextPrint SE．nd Sub单击命令按钮，程序运行结果为（ ）A．1B．2C．3D．5

[单选题]有如下事件过程：Private Sub Command1_Click（）D．im m As Integer, n As Integerm=2: n=1Print "m="; m; "n="; nC．all TOD（m, n）Print "m="; m; "n="; nE．nd SubSub TOD（x, y）x=x ^ 2y=y ^ 3E．nd Sub程序运行后，输出的结果为（ ）。A．m＝2，n＝1m＝1，n＝2B．m＝2，n＝1m＝4，n＝1C．m＝1，n＝2m＝1，n＝4D

[单选题]有如下事件过程：Private Sub Command1_Click（）D．im i As IntegerF．or i=1 To 2D．CNext iE．nd SubSub DC（）D．im x As Integer, m As StringStatic y, nx=x + 1y=y + 1m=m &"*": n=n & "#"Print x, y, m, nE．nd Sub程序运行后，输出的结果是（ ）。A．1 1 * #1 1 * #B．1 1 * #1 2 * #C

[单选题]设有如下程序： Private Sub Command1_Click() Dim C As Integer， d As Integer c=4 d=InputBox(“请输入一个整数”) Do While d＞0 If d＞c Then c=c+1 End If d=InputBox(“请输入一个整数”) Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、 9和0，则输出结果是A．12B．11C．10D．9

[单选题]若在某窗体模块中有如下事件过程Private Sub Command1_Click（Index AS Integer）……E．nd Sub则以下叙述中正确的是（ ）。A． 此事件过程与不带参数的事件过程没有区别B． 有1个名称为Command1的窗体,单击此窗体则执行此事件过程C． 有1个名称为Command1的空件数组,数组中有多个不同类型控件D． 有1个名称为Command1的空件数组,数组中有多个相同类型控件