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

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

admin2010-03-30  45
问题 在窗体画一个命令按钮，然后编写如下过程:
   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://www.kaotiyun.com/show/hv1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)