(30)窗体上有一个名为Command 1的命令按钮,并有如下程序:Private Sub Command 1_Click()Dim a(10

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：

Private Sub Command1_Click（）

Dim s，i

For i=1 To 10

s=s+i

Next i

MsgBox s

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为 。

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：

Private Sub Command 1_Click()

Dim a

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

i=3：i=1

Do While i>=0

s=s+a(i)*j

i=i-1

j=j*10

Loop

Print s

End Sub

运行上面的程序，单击命令按钮，则输出结果是( )。

A．4321

B．123

C．234

D．1234

新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下：

Private Sub Command1_Click（）

【6】

Form2. 【7】

End Sub

试补充完整。

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

A．10

B．30

C．40

D．50

在窗体上有一个命令按钮Command1，编写事件代码如下：

Private Sub Command1_Click()

Dim a(10)，P(3) As Integer

k=5

For i=1 To 10

For i=1 To 3

For i=1 To 3

End Sub

打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。

（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的命令按钮，并有如下程序： Private Sub Corqmand1_Click（ ） Dim a As Integer，b As Integer a=8 b=12 Print Fun(a，b)；a；b End Sub Private Function Fun(ByVal a As Integer，b AS Integer)As Integer a=a Mod 5 b=b＼5 Fun=a End Function 程序运行时，单击命令按钮，则输出结果是（ ）。

A.3 3 2

B.3 8 2

C.8 8 12

D.3 8 12

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。

A．0

B．5

C．6

D．7

在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：

Private Sub Command1_Click()

Dim a As Integer,b As Integer

x=10

y=20

End Sub

打开窗体运行后，单击命令按钮，消息框的输出结果为( )。

窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后，单击命令按钮，输出结果是

A．10

B．14

C．15

D．120