2. 计算机
  3. 有如下程序： Function fun(ByVal num As Integer) As Integer Dim k As Integer k = 1 num = Abs(num) Do While num

有如下程序： Function fun(ByVal num As Integer) As Integer Dim k As Integer k = 1 num = Abs(num) Do While num

admin2020-06-30  39
问题 有如下程序：
Function fun(ByVal num As Integer) As Integer
    Dim k As Integer
    k = 1
    num = Abs(num)
    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的初值并转换成数字进行计算。Do While…Loop循环对传过来的数值进行处理。Mod为取余函数。代入变量和初值进行计算可得退出循环时k=48。选B）。
转载请注明原文地址:https://jikaoti.com/ti/HkS0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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