首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了下面的程序: Private Sub Command l—Click() Dim a As Integer,b As Integer a=lnputBox(“请输入整数”) b=InputBox(“请输入整数”)
某人编写了下面的程序: Private Sub Command l—Click() Dim a As Integer,b As Integer a=lnputBox(“请输入整数”) b=InputBox(“请输入整数”)
admin
2020-07-22
92
问题
某人编写了下面的程序:
Private Sub Command l—Click()
Dim a As Integer,b As Integer
a=lnputBox(“请输入整数”)
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\l0
Wend
Print
End Sub
此程序功能是:输入2个正整数,反序输出这2个数的每一位数字,再反序输出这2个数之和的每一位数字。例如:若输入123和234,则应该输出:
3 2 l
4 3 2
7 5 3
但调试时发现只输出了前2行(即2个数的反序),而未输出第3行(即2个数之和的反序),程序需要修改。下面的修改方案中正确的是( )。
选项
A、把过程pro的形式参数n As Integer改为ByVal 11 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指明参数的传递办式,那么默认为地址传递,这样过程中形参的改变将影响到实参的值。本程序中过程定义语句PIqvate Sub pro(n As Integer)说明形参n为按地址传递的,而在过程内语句n=n\10改变r形参的值,因此,a、b的值就不再是最初输入的值了,表达式a十b就不是期望的两个输入数的和。因此得不到正确结果。只要把Prirate Sub pro(n As Integer)改为I)rivate Sub pro(ByVal n As Integer),程序即可得到正确结果,因此A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/TDHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人编写了下面的程序PfivateSubCommandl_Click()PrivateSubpro(nAsInteger)DimaAsInteger,bAsIntegerWhile(n>0
为了实现对象的自动拖放,应该设置该对象的一个属性。下面设置中正确的是()。
假定通过复制、粘贴操作建立了一个命令按钮数组Commandl,以下说法中错误的是
设有如下一段程序:PrivateSubCommand1-Click()StaticaAsVarianta=Array("one","two","three","four","five")Printa(3)EndSub
软件设计中模块划分应遵循的准则是
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommandlClick()Dima(10)AsInteger,iAsIntegerRandomizeFoxi=1To10a(i)=I
窗体上有一个名称为Combo1的组合框,为了引用Combo1中最后一个列表项,应使用的表达式是
把一个名称为mnuStyle的菜单项设置为不可用的语句是
随机试题
以下哪种粒径的土属于粉质土()。
育龄妇女结扎输卵管后,在以后的生活中会出现
A、茵陈蒿汤B、茵陈五苓散C、茵陈术附汤D、鳖甲煎丸E、逍遥散治疗阴黄,应首选
铁路路堑边坡高度不宜超过()m。
下列属于沪深300股指期货交易规则的是()
期权投资是单向合约,一定要履行合约。()
如用“K=i+b×Q”来表示含风险的报酬率,则()。
设φ(x)=∫abln(x2+t)dt,求φ’(x),其中a>0,b>0.
AllthefollowingsentenceshaveanappositiveEXCEPT
Australia,officiallytheCommonwealthofAustralia,isacountryinthesouthernhemisphere.Itcomprisesthemainlandofthew
最新回复
(
0
)