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

admin2009-03-15  26

问题 在窗体上画一个命令按钮,然后编写如下程序:
   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 Long
       n=InputBox("请输入一个数")
       n=CLng(n)
       r=fun(n)
       Print r
   End Sub
   程序运行后,单击命令按钮,在输入对话框中输入"345",输出结果为【  】。

选项

答案60

解析 程序首先要求用户输入一个数,然后将这个数转化为长整型传递入函数fun。本题中传入的数字是345。函数fun中首先将传入的参数取绝对值,然后进入循环:
   第一次循环结束的时候:
   k=5
   num=34
   第二次循环结束的时候:
   k=20
   num=3
   第三次循环结束的时候:
   k=60
   num=O
转载请注明原文地址:https://kaotiyun.com/show/SH1p777K
0

最新回复(0)