首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画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
105
问题
在窗体上画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全国计算机二级
相关试题推荐
下列关于SubMain过程的叙述,正确的是
在程序运行期间可以用______函数把图形装入窗体、图片框或图像框。
成本效益分析的目的是从【】角度评价开发一个项目是否可行。
阅读程序:OptionBase1PrivateSubFormClick()Dima(3)AsIntegerPrint“输入的数据是:”;Fori=1To3
软件的需求分析阶段的工作,可以概括为四个方面:【】、需求分析、编写需求规格说明书和需求评审。
以下能够正确计算1+2+3+…+10的程序是
如果在C盘当前文件夹下已经存在名称为Sdat.dat的顺序文件,那么执行语句Open"c:\Sdat.dat"ForAppendAs#1之后,将()。
按照“先进后出”原则组织数据的数据结构是()。
将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是______。
数据库设计分为以下6个设计阶段;需求分析阶段、【】、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
随机试题
问卷中问题的形式分为()
某医学院曾收治三例分别在院外接受过试验性肝穿刺引起急性腹膜炎的患者。术中医生在抽出脓液5~10ml后,即拔除穿刺针,术后未作常规处理,2小时后呈急腹症症状。结果二例治愈,一例死亡。对试验性肝穿刺的下列说法中错误的是
确定肺结核是否为传染源的最主要依据是
根据桥梁涵洞按跨径分类标准,涵洞的单孔跨径小于()m。
辅导人员必须是有主承销资格的证券公司正式从业人员、并从事证券承销业务两年以上。辅导人员中,至少有两人具有辅导两家以上企业股票发行上市经验。()
无需检查已处理销售发票上的销售金额与会计记录金额的一致性。()
在他读中学时就很重视外语学习。
夏商诉讼制度的显著特征是()
下面程序运行时,单击窗体后,窗体上显示的结果是()。PrivateSubForm_Click()DimiAsIntege,sumAsLongDimtAsLongt=1:sum=0Fori=1To3t=t*isum=
Children’sideasabouttherainforestsandtheimplicationforcoursedesignA)Adultsandchildrenarefrequentlyconfrontedwi
最新回复
(
0
)