阅读程序：

Private Sub Commandl一Click()

D．im arr

D．im i AS Integer

arr=Array(0，1, 2，3，4，5，6，7,8，9，10)

F．or i=0 To 2

Print arr(7-i)；

Next

E．nd Sub

程序运行后，窗体上显示的是：

A．8 7 6

B．7 6 5

C．6 5 4

D．5 4 3

[单选题]（28）阅读程序：Private Sub Commandl_Click()D．im arrD．im i As Integerarr＝Array(0，1，2, 3，4, 5，6，7，8，9, 10)F．or i＝0To2Print arr(7-i);NextE．nd Sub程序运行后，窗体上显示的是：A．）8 7 6B．）7 65C．）6 5 4D．）5 4 3

[单选题]有如下程序： Private Sub Commandl_Click() Dim a As Integer a=2 For i=1 To 3 Print Gad (A)Next i End Sub Function Gad (a As Integer) b=0 Static c b=b + 1 c= c + 1 Gad= a + b + C End Function 运行上面的程序后，单击命令按钮，输出结果为A．1 2 3B．2 3 4C．4 5 6D．1 4 6

[单选题]有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t/y y = t Mod y End Sub 在调用运行上述程序后，a和b的值分别为A．0 0B．1 1C．2D．1 2

[单选题]Private Sub Commandl Click（）D．im i As Integer, j As IntegerD．im a （10,10）As IntegerF．or i=1 To 3F．or j= i To 3a（i,j）=（i-1）*3+jPrint a （i,j）;Next jPrintNext iE．nd Sub程序运行后，单击命令按钮，窗体上显示的是（ ）。

[单选题]有如下的程序。 Private Sub Commandl_Click( ) Dim k As Integer, m As Integer Dim P As Integer k=4: m=1 P=Fun(k, m) : Print P; P = Fun ( k, m) : Print P End Sub Private Function Fun( a As Integer, b As Integer) Static m As Integer, i As Integer m=5:i=2 i=i+m+

[单选题]设有如下程序： Private Sub Commandl_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

[单选题]（28）阅读下列程序： Private Sub Commandl_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 PrintH(K)； Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function 单击命令按钮，执行程序，输出结果是A.2 3 4 B.3 4 5 C.5 6 7 D.3 5 6

[单选题]阅读程序：Private Sub Command1_Click()A．=0F．or j=1 to 15a=a+j mod 3Next jPrint aE．nd Sub程序运行后，单击窗体，输出结果是A． ）105B．)1C．)120D．)15

[单选题]阅读下列程序。Private Sub Command1_Click()D．im i As Integer, k As Integerk=2F．or i=1 To 3Print Fun(k) ;NextE．nd SubF．unction Fun(j As Integer)Static ba=0a=a + 1b=b + 1F．un=a  b + jE．nd Function程序运行后,单击命令按钮输出结果是A．2 3 4B．3 4 5C．5 6 7D．3 5 6

[单选题]阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。A．105B．1C．120D．15