首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了下面的程序: Private Sub Command1=1_Click() Dim a As Integer,b As Integer a=InputBox("请输入整数") b=InputBox("请输入
某人编写了下面的程序: Private Sub Command1=1_Click() Dim a As Integer,b As Integer a=InputBox("请输入整数") b=InputBox("请输入
admin
2018-10-18
29
问题
某人编写了下面的程序:
Private Sub Command1=1_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+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/wDFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
以下能够正常结束循环操作的程序段是
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()Fori=3To1Step-1Sum=0Forj=1Toi
设在一个工程的窗体中有如下代码:PublicxAsIntegerPrivateSubForm_Load()DimyAsIntegerEndSub在该工程的标准模块的声明部分有如下代码:
下列程序段的输出结果是x=5Printx+1;x+1
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
随机试题
根据《房屋建筑与装饰工程工程量计算规范》(19B50854--2013),当建筑物外墙砖基础垫层底宽为850mm,基槽挖土深度为1600mm,设计中心线长为40000mm,土层为三类土,放坡系数为1:0.33,则此外墙基础人工挖沟槽工程量应为(
下列竣工情况中,()情况是以提交竣工验收申请报告的日期为实际竣工日期。
由多种维生素和赖氨酸.铁.钾等多种成分制成的营养保健制品
股市波动信息对一些投资者来说价值连城,对另外一些投资者来说却毫无意义。这体现了()。
根据皮亚杰的认知发展阶段理论,处于具体运算阶段的儿童()。
计算机具有逻辑判断能力,所以说具有人的全部智能。()
口述历史是一种搜集历史的途径,创立于20世纪四五十年代的美国。与一些发达国家的口述历史库相比,我国的甚至比不上他国一个大学的库存。而历史本应是多维度的,亲历者在回顾往昔时,或许带有鲜明的个人倾向,甚至因种种原因重构情节,但它一定是民间话语权对所谓正史的一种
以下著名的心理学成果,哪一个不是维果茨基提出来的?()
Send$30forcatalog.Refundableagainstpurchase.
TheInternetAdvocateA)Contrarytothemannerinwhichmanylegislatorsandnewsreportshavedepictedit,theInternetisana
最新回复
(
0
)