在窗体上画一个名为Command1的命令按钮，编写如下程序：程序运行后，单击命令按钮，输出的

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

Private Sub Command1 Click（） Dim a(10)As Integer Fork=10 To 1 Step-1 a(k)=20-2*k Next k k=k+7 Print a(k-a(k)) End Sub 运行程序，单击命令按钮，输出结果是（）。

A.18

B.12

C.8

D.6

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

Private Sub Command1_Click()

Dim M(10) As Integer

For k=1 To 10

M(k)=12-k

Next k

x=8

Print M(2+M(x))

End Sub

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

A）6

B）5

C）7

D）8

在窗体上画一个名为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．54321

B．123

C．12345

D．345

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

Private Sub Command1 Click（）

Dim a(10)As Integer

Fork=10 To 1 Step-1

a(k)=20-2*k

Next k

k=k+7

Print a(k-a(k))

End Sub

运行程序，单击命令按钮，输出结果是（）。

A.18

B.12

C.8

D.6

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

Option Base 1

Private Sub Command1_Click()

Dim a

a=Array(1, 2, 3, 4)

j=1

For i=4 To 1 Step -1

s=s+a(i)*j

j=j*10

Next i

Print s

End Sub

运行上面的程序，其输出结果是（）。

A）1234

B）12

C）34

D）4321

在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2)，新建一个窗体Form2。然后编写如下程序： Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为Form. 2的窗体，则在两个文本框中应分别输入______。

A．a 1

B．a a

C．1 a

D．1 1

在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。

A．12

B．13

C．14

D．15

A.18

B.12

C.8

D.6

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

Private Sub Command1_Click()

Dim i As Integer

Sum=0

n=InputBox("Enter a number")

n=Val(n)

For i=1 To n

Sum= 【12】

Next i

Print Sum

End Sub

Function fun(t As Integer)As Long

p=1

For i=1 To t

p=p*i

Next i

【13】

End Function

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