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

admin2010-03-30  26

问题 在窗体画一个命令按钮,然后编写如下过程:
   Function fun(ByVal num As Long)As Lone
        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
程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为【  】。

选项

答案24

解析
转载请注明原文地址:https://kaotiyun.com/show/hv1p777K
0

最新回复(0)