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

admin2015-08-28  26

问题 有如下程序:
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/ZvJ0FFFM
0

最新回复(0)