单项选择题

在窗体上添加一个命令按纽，名为command1，其事件过程如下，程序运行后，其输出的结果为______ 。
Private sub_command1_ click ()
Dim a
a=array(1，2，3，4，5)
For k=1 to 4
S=s+ a(k)
Next k
Print s
End sub

A．10
B．14
C．15
D．120

<上一题目录下一题>

热门试题

单项选择题

先在窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num 10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) Print r End Sub 则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是______。

A．0
B．100
C．200
D．300

单项选择题

下列命令按纽事件过程执行后，输出的结果是______ 。 private sub command_ click() for m+1 to 10 step 2 a=10 for n=1 to 10 step 2 a+a+2 next n next m print a end sub

A．60
B．50
C．30
D．20

相关试题