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

Private Sub Command1_Click( )

D．im i As Integer

Sum=0

n=InputBox("Enter a number")

n=Val(n)

F．or i=1 To n

Sum= (12)

Next i

Print Sum

E．nd Sub

F．unction fun(t As Integer)As Long

p=1

F．or i=1 To t

p=p*i

Next i

(13)

E．nd Function

以上程序的功能是，计算 1!+2!+3!+?+n!，其中 n 从键盘输入，请填空。

[单选题]在窗体上画一个名为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

[单选题]（23）在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：Private Sub Command1_Click( )D．im M(10) As IntegerF．or k=1 To 10M(k)=12-kNext kx=8Print M(2+M(x))E．nd Sub运行程序，单击命令按钮，在窗体上显示的是（ ）。A．）6B．）5C．）7D．）8

[主观题]在窗体上画一个命令按钮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

[单选题]在窗体上画一个名为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

[单选题]在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click()F．or I=1 To 2F．or J=1 To IPrint String(I，"Hello")；Next JPrintNext IE．nd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．H HH HHB．H HHHHC．HHHHHD．H HH HHHH

[单选题]在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b＞= 10 then exit for if b Mod 3 = 1 then b=b+3 End ifNext aPrint aEnd Sub在命令按钮上单击后，窗体上显示的结果是______。A．101B．6C．5D．4

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_ Click()Dim a As Integer, b As Integerdo while b ＜100 b=b+5 a=a+ b if b ＞20 then exit doLoopPrint a, bEnd Sub程序运行后，如果甲击命令按钮，则在窗体上显示的内容是______。A．50 20B．75 25C．50 25D．75 20

[单选题]在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_ Click() for i = 1 To 4 for j= 0 To i Print Chr＄(65 +i) Next j Print Next iEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。A．BB CCC DDDD EEEEEB．B CC DDD EEEEC．AA AA CCCC DDDDDD．A BB CCC DDDD