先在 窗体上添加一个命令按纽，然后编写如下程序： 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

[单选题]先在窗体上添加一个命令按钮，然后编写如下程序： Function fun(ByValnum As Long)As Long Dim k As Long k=1 num=Abs(nam) Do While num k=k*(num Mod 10) num=num/10 Loop Fun=k End Function PrivateSubCommandl_ClickA．0B．100C．200D．300

[单选题]在窗体上画一个命令按钮，然后编写如下程序： Function funl(ByVal Bum As Long)As Long Dim k As Long k = 0 Bum=Abs(Bum) Do While Bum k=k+(Bum Mod 10) Bum=Bum/10 Loop fun1=k End Function Private Sub Command1_Click() Dim n As Long n=InputBox("请输入一个数") Print fun1(n) End Sub 程

[单选题]在窗体上添加一个按纽，名为command1，然后编写如下的事件过程：______。 Private Sub Command1_Click() For i=1 To 4 x= 4 For j=1 To 3 x= 3 For k=1 To 2 x=x + 5 Next k Next j Next i Print x End SubA．13B．26C．30D．40

[单选题]在窗体上添加一命令按纽，其名为Command1，然后编写代码如下： Private Sub Command1_Click() Dim arr (5)As Integer Dim arrl (5)As Integer n=3 For i=1 To 5 Arr (i)=i Arrl (n)=2*n+ i Next i Print arrl (n)；arr (n) End Sub 程序的运行结果为：______。A． 3 11B．11 3C．13 3D．3 13

[单选题]在窗体下添加一个命令按钮(名为CommandI)，然后编写如下程序：打开窗体运行后，单击命令按钮，消息框的输出结果为（ ）。A． 10B． 20C． TD． F

[试题]在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVa1 x As Integer)x=x+4E．nd SubPrivate Sub Command1_Click()i=3C．all f(1)If i＞4 Then i=i*2MsgBox iE．nd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为______。

[单选题]在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：窗体打开运行后，单击命令按扭，则消息框的输出结果为（ ）。A． 10B． 30C． 40D． 50

[单选题]在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。A． 3B． 4C． 6D． 7

[单选题]在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Click() Dima(10)As Integer Dimp(3)As InteSer k=5 Fori=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Nexti Fori=1 To 3 k=k+p(i)*2 Nexti Printk End Sub 该程A．35B．33C．31D．29

[单选题]在窗体上添加一个命令按钮(名为Commandl) ，然后编写如下事件过程： Private Sub Commandl_click() For i＝1 To 4 x＝4 For j＝1 To 3 x＝3 For k＝1 To 2 x＝x+6 Next k Next j Next i MsgBox x End SubA．7B．15C．157D．528