首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了下面的程序 Pfivate Sub Commandl_Click() Private Sub pro(n As Integer) Dim a As Integer,b As Integer While(n>0
某人编写了下面的程序 Pfivate Sub Commandl_Click() Private Sub pro(n As Integer) Dim a As Integer,b As Integer While(n>0
admin
2019-03-08
24
问题
某人编写了下面的程序
Pfivate Sub Commandl_Click() Private Sub pro(n As Integer)
Dim a As Integer,b As Integer While(n>0)
a=InputBox("请输入整数") Print n Mod 10;n=n\10
b=InputBox("请输入整数") Wend
pro a:pro b Print
Call pro(a+b) End Sub
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
解析
本题考查的考点是有关过程调用的。本题题干中的程序之一,所以不能显示第三行的值,是由于在调用pro函数时使用的是默认的传地址调用,这时在pro过程中的对形参的更改都会影响到实参。仔细观察pro过程,发现每次循环都要对形参n整除10一直到n为0为止,所以每次pro过程调用结束后都会把对应实参改为0。修改参数传递方式为传值调用即可使程序正确运行。
转载请注明原文地址:https://kaotiyun.com/show/HlFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若窗体上有一个名为Command1的命令按钮,并有下面的程序:PrivateSubCommand1_Click() Dimarr(5)AsInteger Fork=1To5 arr(k)=k Nextk prog
在名称为Frame1的框架中,有两个名称分别为op1、op2的单选按钮,标题分别为"单程"、"往返",如图所示。以下叙述中,正确的是( )。
以下关于框架的叙述中,错误的是
如果将数组名作为函数调用的实参,则传递给形参的是()。
下面表达式的值不为5的是()。
如果窗体模块A中有一个过程:PrivateSubProc()……EndSub则下面叙述中错误的是()。
设栈的存储空间为S(1:m),初始状态为top=m+1。经过一系列入栈与退栈操作后,top=1。现又要将一个元素进栈,栈顶指针top值变为
通过语句X=InputBox("输入数据","示例","0")对变体类型的变量X输入数据,程序运行后,如果在对话框的输入区中输入数值100并按回车键,则下列叙述中正确的是
文件列表框中用于设置或返回所选文件路径和文件名的属性是
以下合法的VB变量名是( )。
随机试题
2001年的《土地分类》在三大类土地基础上设置了________二级地类和________三级地类。
脐静脉插管的适应证包括
A.大刀螂B.小刀螂C.薄翅螳D.绿污斑螳E.巨斧螳螂
A.足以严重危害人体健康B.对人体健康造成严重危害C.对人体健康造成特别严重危害D.后果特别严重根据《最高人民法院、最高人民检察院关于办理生产、销售假药、劣药刑事案具体应用法律若干问题的解释》生产、销售的劣药被使用后造成中度残疾的,应认定为
下列何项反映了测量工作应遵循的原则?()[2013年真题]
根据《标准施工招标文件》的施工合同文本通用合同条款,“不利气候条件”对施工的影响应当属于()承担的风险。
企业代扣代缴的个人所得税,不通过“应交税费”科目进行核算。()
中华人民共和国民法调整()。
下列句子中有歧义的一项是()
PoliceLesson:SocialNetworkToolsHaveTwoEdgesOfficerTreyEconomidyoftheAlbuquerquepolicenowrealizesthathesho
最新回复
(
0
)