首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
单击命令按钮时,下列程序的运行结果为 Private Sub Command1_Click() Print MyFund(20,18) End Sub Public Function MyFund(m As Integer,n As Inte
单击命令按钮时,下列程序的运行结果为 Private Sub Command1_Click() Print MyFund(20,18) End Sub Public Function MyFund(m As Integer,n As Inte
admin
2013-01-23
36
问题
单击命令按钮时,下列程序的运行结果为 Private Sub Command1_Click() Print MyFund(20,18) End Sub Public Function MyFund(m As Integer,n As Integer)As Integer Do While m<>n Do While m>n:m=m-n:Loop Do While m<n:n=n-m:Loop Loop MyFund=m End Function
选项
A、0
B、2
C、4
D、6
答案
2
解析
此题程序代码中,被调过程采用了Do While…Loop的嵌套语句结构,主调过程只调用了一次被调过程,Print MyFund(20,18)语句表明,程序最后输出的只是被调过程的返回值。主调过程在调用被调过程MyFund时,把数值20,18分别传给形参m和n,从被调过程中的循环语句来看,因为此时m的值大于n的值,所以执行语句m=m -n,m值变为2,而由语句MyFund=m可看出,此过程的返回值就是m的值,即2。
转载请注明原文地址:https://kaotiyun.com/show/Erhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列语句正确的是
下列程序的执行结果为PrivateSubCommand1_Click()DimFirStrAsStringFirSt=”abcdef,PrintPat
在窗体上画一个文本框(Textl),然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAsci
在窗体上按顺序,分别画出变量按钮Command1、文本框Text1和Text2。为了将Text2的Tab顺序设置为第一,应将Text2的TabIndex属性设置为
在窗体上画两个命令按钮,然后编写以下代码:PrivateSubCommandl_Click()DimiAsLongDimiAsIntegerDimxFori=1
建立随机文件TEST.DAT,存放学生的姓名和总分,然后把该文件中的数据读出来显示。请在【】和【】处填适当的内容,将程序补充完整,TypeRecordStudentAsString*20Scor
以下语句的输出结果是【】。PrintInt(12346789*100+0.5)/100
程序代码如下,当单击窗体上的Command1控件时,窗体上显示的结果是()。PrivateSubCommand1_Click()DimiAsInteger,a(9)AsIntegerFori=9To0St
软件测试的过程是Ⅰ.集成测试Ⅱ.验收测试Ⅲ.系统测试Ⅳ.单元测试
系统符号常量的定义可以通过______获得。
随机试题
假设开发法用于投资分析与用于估价的不同之处是:在选取有关参数和测算有关数值时,投资分析是站在一般投资者的立场上,而估价是站在某个特定投资者的立场上。()
求图示梁铰C左侧截面的转角时,其虚拟单位力状态应取:
根据《测绘法》的规定,以欺骗手段取得测绘资质证书从事测绘活动的,由发证的测绘行政主管部门吊销测绘资质证书,同时没收违法所得和测绘成果,并处测绘约定报酬()的罚款。
《环境影响评价技术导则石油化工建设项目》(HJ/T89—2003)中规定,石油化工行业大气污染因子不包括()。
下列选项中,作品与作者对应正确的是()。
鲁迅:写作
地球南北极上空经常出现极光。下列关于极光成因的说法,正确的是:
下列选项不属于《儿童权利公约》规定的儿童权利保护原则的是
Ihavenoticedthatchildrenarenotevenbeingschoolinsocialgraces.AtaSundaybrunch,aclownwasmakingballoonanimals
A.stateofbeingfriendB.notfarC.arrivethereD.friend’sshipE.apersonwhodrivesacar(orabus.oratrack...)F.
最新回复
(
0
)