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

admin2018-10-20  59

问题 在窗体中有一个命令按钮Command1,两个文本框Text0和Text1,按钮Command1对应的代码过程如下:
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
Ifm Mod k=0Then
flag=False
Else
k=k+1
End If
Loop
If flag Then
Me!Textl=m’输出计算结果
Exit Do
Else
m=m+1
End If
Loop
End Sub
运行程序,输入12,单击按钮,程序的输出结果是

选项 A、13
B、12
C、11
D、其他整数

答案A

解析 根据题目要求,输入一个整数赋值给m;外层D0wMe循环条件设置为“1”,表示循环条件永远为“真”,第一次执行循环语句时:k=2;flag=true;内层Do While k<=m/2And flag循环条件为true,进入内层循环的循环体语句,if m mod k=0条件为真,执行flag=false语句,内层循环体语句执行结束,然后判断第二次执行的循环条件Do While k<=m/2And flag循环条件为false,内层循环结束,进入外层循环语句if flag判断条件为fafse,执行语句m=m+1,m的值为13;继续进行外层循环,第二次执行循环语句时:k=2;flag=false;内层Do While k<=m/2And flag循环条件为false,内层循环不执行,进入外层循环语句if flag判断条件为true,执行语句Me!Text1=m,文本框Text1中显示的内容为13,然后执行exit do语句,结束整个循环,所以最终程序输出的结果为13,选项A正确。
转载请注明原文地址:https://jikaoti.com/ti/Rw10FFFM
0

最新回复(0)