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

admin2020-04-18  23

问题 有如下程序:
    Function fun(ByVal nuin As Integer)As Integer
    Dim k As Integer k=1
    num=Abs(num)
    Do Wbile num
    k=k*(num Mod 10):num=num\10
    Loop
    fun=k
    End Function
    Private Sub Form_Click()
    Dim n As Integer,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

解析 在函数fun中会对传过来的参数num进行判断,如果不为0则进行循环,将各位数字乘到一起然后作为函数的返回值。
转载请注明原文地址:https://kaotiyun.com/show/XuTp777K
0

最新回复(0)