（23）在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：

Private Sub Command1_Click( )

D．im M(10) As Integer

F．or k=1 To 10

M(k)=12-k

Next k

x=8

Print M(2+M(x))

E．nd Sub

运行程序，单击命令按钮，在窗体上显示的是（ ）。

A．）6

B．）5

C．）7

D．）8

[试题]（11）在窗体上画一个名为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click( )D．im i As IntegerSum=0n=InputBox("Enter a number")n=Val(n)F．or i=1 To nSum= (12)Next iPrint SumE．nd SubF．unction fun(t As Integer)As Longp=1F．or i=1 To tp=p*iNext i(13)E．nd Function以

[单选题]在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345

[单选题]在窗体上画一个名为Command1的命令按钮，然后编写下列程序：Option Base 1Private Sub Command1_Click()D．im ArrA．rr=Array(1,2,3,4,5)j=1F．or i=5 To 1 Step-1S=S+Arr(i)*jj=j*10NextPrint SE．nd Sub程序运行后，单击命令按钮，输出结果是( )。A．54321B．123C．12345D．345

[单选题]（24）在窗体上画一个名为Command1德命令按钮，然后编写下列程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1,2,3,4,5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果是 A.54321 B.123 C.12345 D.345

[主观题]在窗体上画一个命令按钮Command1，然后编写如下程序：Private Sub Command1_Cliek()D．im arr()As IntegerRe Dim arr(3)F．or i=0 To 3arr(i)=iNext ix=InputBox("请输入一个数字：")IfVal(x)＞4 ThenRc Dim arr(4)arr(4)=xE．nd IfMe.Print(arr(4)-arr(3))E．nd Sub程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为[ ]。

[单选题]在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x>y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．1B．2C．5D．8

[单选题](29）在窗体上画一个名为Command 1的命令按钮，然后编写以下程序：Private Sub Commandl_lick()D．im a(10) As IntegerF．or k＝10 To 1 Step-1a(k)＝20-2*kNext kk＝k＋7Print a(k-a(k))E．nd Sub运行程序，单击命令按钮，输出结果是A．）18B．）12C．）8D．）6

[单选题]（ 23 ） 在窗体上画一个命令按钮，名称为 Command1 ，然后编写如下代码：Option Base 0Private Sub Command1_Click()D．im A(4) As Integer,B(4) As IntegerF．or k = 0 To 2A．(k + 1) = InputBox(" 请输入一个整数 ")B．(3 - k) = A(k + 1)Next kPrint B(k)E．nd Sub程序运行后，单击命令按钮，在输入对话框中分别输入 2 、 4 、 6 ，输

[单选题]在窗体上画一个名为Command 1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1, 2, 3, 4, 5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345

[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序 _______。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b ＝ b + k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是 _______。A．7 11B．5 11C．76D．2 1