在窗体上画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 Function fun(ByVal num As Long) As Long Dim k As Long k=1 mum=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

A．20

B．24

C．9

D．28

[单选题]在窗体画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 Function Fun(ByVal num 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 Lo

[单选题]在窗体上画一个命令按钮，然后编写如下时间过程（ ）。程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是A． 579B． 123C． 456D． 123456

[单选题]在窗体上画一个命令按钮，然后编写如下程序。运行后，单击命令按钮，输出结果为 ( )。Private Sub Command4_Click()D．ima As Integer,bASIntegera=1b=2PrintN(a,b)E．nd SubF．unction N(X As Integer,yAsInteger)AsIntegerN=IIf(x＞y，x，y)E．nd FuncfionA．B．C．D．

[单选题]在窗体上画一个命令按钮。然后编写如下事件过程：程序运行后，连续单击三次命令按钮，输出的结果是A．7 36B．15 72C．1 5 108D．72 256

[单选题]在窗体上画一个命令按钮，然后编写如下代码。运行程序后，单击命令按钮，依次在输人对话框中输入2，7，5，3，8，5，12，6，12，在窗体上输出的结果是______。 Private Sub Command1 Click() z=5 Do Until z＜＞5 x=InputBox<“请输入x值”) x=Val(x) y=InputBox(“请输入y值”) y=Val(y) z=InputBox(“请输入z值”) z=Val(z) y=x+y+2 * z Loop Print y End S

[单选题]在窗体上面画一个命令按钮，然后编写如下事件过程，运行程序，单击命令按钮，其输出结果是______。 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 SubA．4321B．12C．34D．1234

[单选题]在窗体上画一个名为Commandl的命令按钮，编写如下程序：程序运行后，单击命令按钮，输出的结果是（ ）。A． 4B． 5C． 6D． 8

[单选题]在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A．)机床B．)车床C．)钻床D．)轴承

[单选题]在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A． 机床B． 车床C． 钻床D． 轴承

[单选题]在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）D．im a（5） As StringF．or i = 1 To 5a（i） = Chr（Asc（"A"） + （i - 1））Next iF．or Each b In aPrint b;NextE．nd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息