2. 计算机
  3. 阅读下面的程序代码： Private Sub Command1_Click() Print fun(748639，5) End Sub Private Function fun(x As Long，a As Integer)

阅读下面的程序代码： Private Sub Command1_Click() Print fun(748639，5) End Sub Private Function fun(x As Long，a As Integer)

admin2018-07-11  49
问题 阅读下面的程序代码：
    Private Sub Command1_Click()
    Print fun(748639，5)
    End Sub
    Private Function fun(x As Long，a As Integer)As Integer
    Dim n As Long
    n=1
    Do
    n=n*10
    a=a-1
    Loop Until a=0
    fun=Int((x Mod n)／(n／10))
    End Function
    此程序代码运行后的输出是(    )。
选项 A、3
B、4
C、48639
D、74863
答案B
解析 主调过程Command1_Click中调用函数过程fun，并将整数748639传递给形参x，将5传递给形参a，被调过程fun中循环执行情况及各变量的值如下表所示。

    x mod n=748639 mod 100000=48639：n／10=100000／10=10000：故表达式Int((x Mod n)／(n／10))结果为Int(48639／10000)=4；所以B选项正确。
转载请注明原文地址:https://www.kaotiyun.com/show/BoFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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