2. 计算机
  3. 有如下程序： Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(nnm) Do While num k=k*(num Mod 10) num=num＼10 L

有如下程序： Function fun(ByVal num As Integer)As Integer Dim k As Integer k=1 hum=Abs(nnm) Do While num k=k*(num Mod 10) num=num＼10 L

admin2019-07-30  54
问题 有如下程序：
Function fun(ByVal num As Integer)As Integer
Dim k As Integer
k=1
hum=Abs(nnm)
Do While num
k=k*(num Mod 10)
num=num＼10
Loop
fun=k
End Function
Private Sub Form_Click()
Dim n As Integer
Dim r As Integer
n=InputBox("请输入一个数：")
n=Int(n)
r=fun(n)
Print r
End Sub
程序运行后，单击窗体，在输入对话框中输入246，输出结果为
选项 A、120
B、48
C、24
D、60
答案B
解析 程序从对话框中获得n的初值并转换成数字进行计算。DoWhile…Loop循环对传过来的数值进行处理。Nod为取余函数。代入变量和初值进行计算可得退出循环时k=48。选B。
转载请注明原文地址:https://www.kaotiyun.com/show/IpUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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