首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画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
100
问题
在窗体上画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全国计算机二级
相关试题推荐
程序的基本控制结构是
以下叙述中正确的是
以下叙述中错误的是
在结构化方法中,用数据流程图(DF)作为描述工具的软件开发阶段是
将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是______。
下面程序运行时,内层循环的循环总次数是ForM=1To3ForN=0ToM-1NextNNextM
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
结构化分析方法是面向()的自顶向下逐步求精进行需求分析的方法。
关于MDI窗体下列说法正确的是()。
随机试题
根据《侵权责任法》的规定,下列选项中,当事人不能以受害人故意作为免责事由的是()。
可促进多肽链折叠为天然构象的生物大分子不包括
A、混悬剂B、乳剂C、亲水胶体D、疏水胶体E、低分子溶液难溶性固体药物分散于液体分散介质中属于
A.健脾养心,补益气血B.健脾养心,理气化痰C.化痰散结,行气开郁D.理气畅中,疏肝解郁E.清肝化痰,疏肝解郁郁证中,痰气郁结的常用治法是
设f(x)处处连续,且在x=x0处有f’(x1)=0,在x=x2处不可导,那么()。
价电子构型为4d105s1的元素在周期表中属于()。
设L为连接(0,2)和(1,0)的直线段,则对弧长的曲线积分(x2+y2)ds=()。[2011年真题]
下列各项业务中,可以通过其他业务成本核算的是()。
在实地址模式下,存放中断服务程序入口地址的内存空间为18H~1BH,则该中断的中断类型号是【 】。
Listentopartofalectureinazoologyclass.Professor:Asyouknowfromthetextbook,mimicryisn’tlimitedtoinsects,but
最新回复
(
0
)