2. 计算机
  3. 某人编写了下面的程序： Private Sub Command1_Click() Dim a As Integer，b As Integer a=InputBox("请输入整数") b=lnputBox("请输入整数")

某人编写了下面的程序： Private Sub Command1_Click() Dim a As Integer，b As Integer a=InputBox("请输入整数") b=lnputBox("请输入整数")

admin2019-06-20  61
问题 某人编写了下面的程序：
    Private Sub Command1_Click()
    Dim a As Integer，b As Integer
    a=InputBox("请输入整数")
    b=lnputBox("请输入整数")
    pro a
    pro b
    Call pro(a+b)
    End Sub
    Private Sub pro(n As Integer)
    While(n>0)
    Print n Mod 10；
    n=n＼10
    Wend
    Print
    End Sub
    此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123和234，则应该输出：
    3  2  1
    4  3  2
    7  5  3
    但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是(    )。
选项 A、把过程pro的形式参数n As Integer改为ByVal n As Integer
B、把Call pro(a+b)改为pro a+b
C、把n=n＼10改为n=n／10
D、在pro b语句之后增加语句c％=a+b，再把Call pro(a+b)改为pro c
答案A
解析 在过程定义中过程的形式参数定义时如果没有ByVal指明参数的传递方式，那么默认为地址传递，这样过程中对形参的改变将影响到实参的值。本程序中过程定义语句Private Sub pro(n As Integer)说明形参n为按地址传递的，而在过程内语句n=n＼10改变了形参的值，因此，a、b的值就不再是最初输入的值了，表达式a+b就不是期望的两个输入数的和。因此得不到正确结果。
    只要把Private Sub pro(n As Integer)改为Private Sub pro(ByVal n As Integer)，程序即可得到正确结果，因此A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/NSUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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