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

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

admin2020-04-18  49
问题 有如下程序：
  Function fun(ByVal num As Integer)As Integer
    Dim k As Integer k=l
    num=Abs(num)
    Do While hum
       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/g8Tp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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