在窗体上画一个命令按钮,然后编写如下程序: Function fun(By Val num As Long)As Long Dim k As Long k=1 num=Abs(num) Do W

admin2010-03-22  27

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

选项

答案0

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

最新回复(0)