首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个名称为Command1的命令按钮,1个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() Dim m As Integer, x As Integer Dim tag As
在窗体上画1个名称为Command1的命令按钮,1个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() Dim m As Integer, x As Integer Dim tag As
admin
2015-06-30
102
问题
在窗体上画1个名称为Command1的命令按钮,1个名称为Label1的标签,然后编写如下事件过程:
Private Sub Command1_Click()
Dim m As Integer, x As Integer
Dim tag As Boolean
x = InputBox("请输入一个正整数:")
Do
tag = True
m = 2
Do While tag And m < x \ 2
If x Mod m = 0 Then
tag = False
Else
m = m + 1
End If
Loop
If Not tag Then x = x + 1
Loop While Not tag
Label1.Caption = x
End Sub
程序运行后,单击命令按钮Command1,并在输入对话框中输入14,则标签中显示的内容是
选项
A、7
B、13
C、14
D、17
答案
D
解析
X为14时,进入外层的循环体,满足x最内层的do.while循环条件(大于2*m+1且tag为true)执行内层循环体。X满足If条件(x对m取余得0),故tag为False,跳出最内层循环,在外层循环中,由于tag为负,x自增1,x=15,且满足最外层循环条件。故第二次执行最外层循环的循环体。tag再次赋值为true,m=2,x满足内层循环条件,在内层循环中,不满足IF条件,故m为m+1为3,x和tag仍满足内层循环条件,故再次执行循环体,此时x和m满足If条件,故设置tag为false,推出内层循环。由于tag为负,x自增1,x=16,且满足最外层循环条件,再次进入内层循环。第三次执行外层循环的循环体,x满足内循环条件句,且满足If条件,故tag为flase。由于tag为false,x自增1,x=17,且满足最外层循环条件。当x=17,满组内层循环条件,不满足If条件,故m=3,如此多次执行循环体,直到m=7时,不满足最内层的循环条件,此时tag=true,x=17,m=7,退出内层循环。由于tag=true,则不执行x自增,且退出外层循环,故程序运行x的最终值为17。
转载请注明原文地址:https://kaotiyun.com/show/K5Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了清除列表框中指定的项目,应使用的方法为
控件数组的名字由【】属性指定,而数组中的每个元素由【】属性指定。
执行以下Command1的Click事件过程在窗体上显示OptionBase1PrivateSubCommand1_Click()Dimaa=Array("a","b","c","d","e","f","g
函数Mal("123.45")+Val("233.6")的值是【】。
下列语句用于打开一个顺序文件Open"C:\MyFile.txt"ForOutPut,但该语句的一个重要错误是没有()。
下列关于多重窗体程序的叙述中,错误的是()。
将E—R图转换到关系模式时,实体与联系都可以表示成
表达式Right("Beijing",4)的值是()
设A="12345678",则表达式Val(Len(A,4)+Mid(A,4,2))的值为______。
图像框的()属性,可以自动调整图形的大小以适应图像的尺寸。
随机试题
一青年女性;气短脚闷6天,加重伴心悸呼吸困难1天而入院,查体发现:气管右移,左侧胸腔积液体征。患者的积液量应屑于
关于呼吸机触发敏感度的设置,下列哪项是正确的
自行预测排卵最佳方法是
女性,28岁,近3天发烧,腰痛,伴尿急,尿频,尿痛,尿镜检,白细胞每高倍视野25个。你考虑可能是何病
风湿性心瓣膜病并发感染性心内膜炎时,最支持感染性心内膜炎诊断的是
应首先做下列那项检查对该患儿确诊最有价值的血清学检查是
土石坝施工质量控制主要包括()。
(二)[背景资料]某机电安装公司承担北方某城市包括安装三台蒸发量25t/h、蒸汽压力为2.5MPa的散装工业锅炉的锅炉房工程。开工前,项目部根据锅炉房安装工程施工组织设计,进行了全面的质量策划,并指令专业工程师编制质量控制程序。在
某企业为增值税一般纳税人,适用的增值税税率为17%,该企业委托其他单位(增值税一般纳税人)加工一批属于应税消费品的原材料(非金银首饰),适用的消费税税率为10%。该批委托加工原材料收回后用于继续生产应税消费品。发出材料的成本为180万元,支付的不含增值税的
Whydoestheglobalfundstopsupportinganynewprogrammes?
最新回复
(
0
)