首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
单击命令按钮时,下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23,18) End Sub Public Function Fun(m As Integer,n As Inte
单击命令按钮时,下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23,18) End Sub Public Function Fun(m As Integer,n As Inte
admin
2012-03-22
45
问题
单击命令按钮时,下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23,18) End Sub Public Function Fun(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 Fun=m End Function
选项
A、0
B、1
C、3
D、5
答案
B
解析
此题程序代码中,被调过程采用了Do While…Loop的嵌套语句结构,主调过程只调用了一次被调过程,Print Fun(23,18)语句表明,程序最后输出的只是被调过程的返回值。主调过程在调用被调过程Fun时,把数值23,18分别传给形参m和n,从被调过程中的循环语句来看,因为此时m的值大于n的值,所以执行语句m=m-n,m值变为5,然后循环调用,直到m=n,而由语句Fun=m可看出,此过程的返回值就是m的值,即为1。
转载请注明原文地址:https://www.kaotiyun.com/show/QWhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面对对象概念描述错误的是______。
完成下面的程序,使显示结果如下图所示。PrivateSubForm_Click()FontSize=18Sample$s="【】"x=(ScaleWidth-TextWidth(Sample$))/2y=(Sca
在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)M=IIf(x>y,x,y)EndFUNctionPrivateSub
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为【】。
有变量定义语句Dimmax,minAsString,则可以知道max的类型是
单击命令按钮时,下列程序的执行结果为 PrivateSubCommand1Click() DimxAsInteger,yAsInteger x=12:y=32 CallPCS(x,y) Printx;y
下列说法错误的是
公司中有多个部分和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员,从职员到部门的联系类型是
在执行KeyPress事件过程时,KeyASCII是所按键的【】值。对于有上档字符和下档字符的键,当执行KeyDown事件过程时,KeyCode是【】字符的ASCII值。
在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮,要求单击命令按钮时,打开一个保存文件的对话框,该窗口的标题为“Save”,缺省文件名称为“SaveFile”,在“文件类型”栏中显示*txt,则能够满足上述要
随机试题
牙冠的长、宽、厚约相等的牙是
下列属于动力学稳定体系的是
执业文书的时效性特点是指()。
某储户2008年8月5日存入银行定期存款3000元,存期为1年,如果存入时该档次存款月利率为2.25‰,该储户于2009年8月5日支取,银行应付税前利息为()元。
______(他的一切计划都泡汤了),sodon’tcountonhisfulfillingthetaskontime.
直接影响活动效率,使活动顺利完成的个性心理特征是()。
某企业生产一种产品,每件成本400元,销售价为510元,为了进一步扩大市场,该企业决定降低销售价的同时降低生产成本。经过市场调查,预计下季度这种产品每件销售价降低4%,销售量将提高10%,要使销售利润保持不变,该产品每件的成本应降低:
社会主义改革要大幅度地改变落后的生产力,就必然要改变
窗体中有文本框Text1和标签Label1。运行程序,输入大于0的整数m,单击按钮Command1,程序判断m是否为素数,若是素数,则Label1显示“m是素数”,否则显示“m是合数”。事件代码如下:PrivateSubCommand1_Click(
Whoisgivingadvice?
最新回复
(
0
)