在窗体上画一个命令按钮,然后编写如下程序: Function fun (ByVal num As Long) As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num\10) num=nm\1

admin2010-01-05  44

问题 在窗体上画一个命令按钮,然后编写如下程序:
Function fun (ByVal num As Long) As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num\10)
num=nm\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)
MsgBox r
End Sub
程序运行后,单击命令按钮,在输入对话框中输入234,消息框显示的结果为【  】。

选项

答案0

解析 程序将输入的内容234转变为长整型传入函数fun中,然后进入循环。
循环第一次结束的时候:k=23  num=23
循环第二次结束的时候:k=46  hum=2
循环第三次结束的时候:k=0  num=0
转载请注明原文地址:https://kaotiyun.com/show/6hwp777K
0

最新回复(0)