在窗体上画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入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
第1题:
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl—Click() x=InputBox(“请输入一个整数”) Print x+345 End Sub 程序运行后,单击命令按钮,在输入对话框中输入123,则在窗体上输出的内容为( )
A.123345
B.468
C.123
D.345
第2题:
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是( )。
A. 输出0
B. 输出25
C. 输出45
D. 无任何输出
第3题:
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
a=Val(1nputBox(“请输入一个整数”))
b=Val(1nputBox(“请输入一个整数”))
Print a+b
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入12和34,输出结果为【 】
第4题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下程序:
Privme Sub Commandl_Click()
Dim intNum As Integer
intNum=InputBox(“请输入:”)
MsgBox f(intNum)
End Sub
Function f(X As Integer) As Integer
f=IIf (X<10,X,X+5)
End Function
运行程序,单击命令按钮,在输入对话框中输入5,则程序的输出结果为______。
第5题:
在窗体上画一个命令按钮,然后编写如下时间过程( )。程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和123,则输出结果是
A. 579
B. 123
C. 456
D. 123456
第6题:
在窗体上有一个命令按钮,然后编如下事件过程:
程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是 。