A．0
B．100
C．200
D．300
[单选题]先在 窗体上添加一个命令按纽，然后编写如下程序： 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=f
[单选题]在窗体上画一个命令按钮，然后编写如下程序： 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 程
[单选题]在窗体下添加一个命令按钮(名为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打开窗体运行后，单击命令按钮，则消息框的输出结果为______。
[单选题]在窗体上添加一个命令按钮，然后编写如下事件过程： 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
[单选题]在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Commandl Click（ ）x＝10C．all slCall s2MsgBox xE．nd SubPrivate Sub sl（ ）x＝x+20E．nd SubPrivate Sub s2（ ）Dim x As Integer窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。A．10B．30C．40D．50
[单选题]在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序： Public x As Integer Private Sub Commandl_click() x＝10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x＝x+20 End Sub Private SubA．10B．30C．40D．50
[主观题]在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：PrivateSubo(ByVidpAslnteger)p=p*2E．ndSubPrivateSubCommandl_C1kk()D．imiAsIntcgerC．ails(1)Ifi＞4Thcni=i＾2MsgBoxiE．ndSub窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
[单选题]在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：窗体打开运行后，单击命令按扭，则消息框的输出结果为（ ）。A． 10B． 30C． 40D． 50