2. 计算机
  3. 在窗体上画一个命令按钮，然后编写如下程序； Function fun(By Val num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*

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

admin2010-03-30  34
问题 在窗体上画一个命令按钮，然后编写如下程序；
   Function fun(By Val num As Long)As Long
   Dim k As Long
   k=1
   num=Abs(num)
   Do While num
   k=k*(hum Mod 10)
   nam=num\10
   Loop
        fun=k
   End Function
   Private Sub Command1_Click()
       Dim n As Long
       Dire r As Long
       n=Input Box("请输入一个数")
       n=CLng(n)
       r=fun(n)
       Printr
   End Sub
   程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为【   】
选项
答案60
解析 程序首先要求用户输入一个数，然后将这个数转化为长整型传递入函数fun．本题中传入的数字是345。函数fun中首先将传入的参数取绝对值，然后进入循环：第一次循环结束的时候：
k=5
hum=34
第二次循环结束的时候：
k=20
hum=3
第三次循环结束的时候：
k=60
num=0
转载请注明原文地址:https://jikaoti.com/ti/0Rq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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