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*

admin2013-05-12  50
问题 窗体上画一个命令按钮，然后编写如下程序：
   Function fun(By Val num As Long) AS Long
   Dim k As Long
   k=1
   num=Abs(num)
   Do While num
   k=k*(hum\10)
   num=num\10
   Loop
   fun=k
   End Function
   Private Sub Commandl_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://www.kaotiyun.com/show/bhrp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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