首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画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
101
问题
在窗体上画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全国计算机二级
相关试题推荐
成本效益分析的目的是从【】角度评价开发一个项目是否可行。
在VisualBasic中,组合框是文本框和下列哪一项的特性的组合
软件需求分析一般应确定的是用户对软件的______。
面向对象的程序设计方法中涉及的对象是系统中用来描述客观事物的一个【】。
以下叙述中正确的是
在数据库系统中,把具有以下特征中之______两个特征的数据模型称为网状模型。
下列语句用于打开一个顺序文件Open"C:\MyFile.txt"ForOutPut,但该语句的一个重要错误是没有()。
以下关系表达式中,其值为假的是______。
以下说法不正确的是
随机试题
在清管作业时,为防止管线压力波动导致ELBS-10破管检测系统发出自动关闭指令,清管作业期间只要关闭压降速率采集阀即可。()
下列不属于针灸治疗原则的是
改善急性左心衰竭症状最有效的药物是
A.羟基、氨基、羟氨基B.酚羟基、胺基、巯基C.芳香羧酸、芳乙酸、杂环羧酸D.磺酰胺、氨基酸、肼和酰肼E.O一、N一、S一和C一与硫酸的结合反应,主要参与的化学基团有()。
A.当日有效B.不得超过3天C.2日极量D.7日用量E.3日用量急诊处方一般不得超过()
下列选项中,土方填筑与压实的要求叙述正确的是()。
公路工程的造价由()几部分构成。
与普通股票相比,优先股票的特点在于()。
节日:习俗
设在区间上f(x)>0,f’(x)
最新回复
(
0
)