首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了下面的程序: Private Sub Command1_Click() Dim a As Integer, b As Integer a=InputBox("请输入整数") b=InputBox("请输入整数") pro
某人编写了下面的程序: Private Sub Command1_Click() Dim a As Integer, b As Integer a=InputBox("请输入整数") b=InputBox("请输入整数") pro
admin
2015-08-28
51
问题
某人编写了下面的程序:
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=InputBox("请输入整数")
b=InputBox("请输入整数")
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+
C、改为 pro a+b
D、把n=n\10 改为 n=n / 10
答案
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/dKQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有过程如下:Subfact(mAsInteger,totalAsLong)DimiAsIntegertotal=1fori=1Tomtotal=total*iNexti
下列关于畋片框控件的语句中不正确的是()。
数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是()。
以下叙述不正确的是______。
在程序设计阶段应该采取______和逐步求精的方法,把一个模块的功能逐步分解,细化为一系列具体的步骤,继而用某种程序设计语言写成程序。
下列关于For…Next语句的说法正确的是()。
设“A="87654321"”,则表达式Val(Left(A,4)+Mid(A,4,2))的值为()。
假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单项的名称为a1,其“可见”属性为False。程序运行后,单击鼠标左键或右键都能弹出菜单的事件过程是
随机试题
胸腔穿刺抽液的注意事项。
A.核苷酸切除修复B.碱基切除修复C.两者皆有D.两者皆无修复DNA链中产生的胸腺嘧啶二聚体的机制为
下列不属于后纵隔的是
在下列交易行为中,需缴纳土地增值税的是()。
在同一类别的测评对象中,常常需要对其中诸素质测评对象进行深层次量化,其量化形式包括()
下列关于栈的叙述中,正确的是
BothMaryandKateareourfriends.Youcandependon______ofthem.
Thatexperienceinfluencessubsequentbehaviorisevidenceofanobviousbutneverthelessremarkableactivitycalled"rememberi
Canyoufind______atthehotelforthenight?
Wi-Fiisamethodofcommunicationbetweencomputerswithouttheuseofwires.Thisishowit【S1】______.Onecomputerhasaver
最新回复
(
0
)