2. 计算机
  3. 在窗体中有命令按钮Command1和两个文本：框Text0、Text1，命令按钮对应的代码过程如下： Private Sub Command1_Click() Dim m，k As Integer Dim flag As Boolean m=Val(Me!

在窗体中有命令按钮Command1和两个文本：框Text0、Text1，命令按钮对应的代码过程如下： Private Sub Command1_Click() Dim m，k As Integer Dim flag As Boolean m=Val(Me!

admin2020-07-25  51
问题 在窗体中有命令按钮Command1和两个文本：框Text0、Text1，命令按钮对应的代码过程如下：
Private Sub Command1_Click()
Dim m，k As Integer
Dim flag As Boolean
m=Val(Me!Text0)，输入一个整数
Do While1
k=2
flag=True
Do While k＜=m／2And flag
If m Mod k=0Then
flag=False
Else
k=k+1
End If
Loop
If flag Then
Me!Text1=m’输出计算结果
Exit Do
Else
m=m+1
End If
Loop
End Sub
运行程序，在Text0中输入15，单击命令按钮，程序的输出结果是(    )。
选项 A、17
B、15
C、13
D、其他整数
答案A
解析 第一次外层循环时，m=15，k=2，flag=True。进入内层循环时，m不能整除k，执行k=k+1，此时k=3，继续内层循环，m Mod k=0，nag=False，退出内层循环，执行m=m+1，此时m=16；继续进行外层循环，k=2，flag=True，进入内层循环时，m Mod k=0，flag=False，退出内层循环，执行m=m+1，此时m=17。继续外层循环，k=2，flag=True，因为17是质数，不能整除，内层循环一直执行k=k+1，直到k=9时，k＜=m／2不成立，退出内层循环，fla
转载请注明原文地址:https://kaotiyun.com/show/6wcp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)