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*(num\10) num=nu

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

admin2010-01-05  54
问题 在窗体上画一个命令按钮，然后编写如下程序：
Function fun (By Val num As Long)As Long
Dim k As Long
k=1
num = Abs(num)
Do While num
k=k*(num\10)
num=num\10
Loop
fun=k
End Function
Private Sub Command l-Click {)
Dim n As Long
Dim r As Long
n=Input Box (“请输入一个数”)
n=CLng (n)
r=fun (n)
Ms g Boxr
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为【  】
选项
答案0
解析 程序将输入的内容234转变为长整型传入函数fun中，然后进入循环。
循环第一次结束的时候：k=23 num=23
循环第二次结束的时候：k=46 num=2
循环第三次结束的时候：k=0 num=0
转载请注明原文地址:https://kaotiyun.com/show/lTwp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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