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

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

admin2018-10-18  81
问题 在窗体中有命令按钮Command1和两个文本框Text0、Text1，命令按钮对应的代码过程如下：
    Private Sub Command1_Click()
    Dim m，k As Integer
    Dim flag As Boolean
    m＝Val(Me!Text0)输入一个整数
    Do While 1
    k＝2
    flag=True
    Do While k＜＝m／2 And flag
    If m Mod k＝0 Then
    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，flag＝False，退出内层循环，执行m＝m＋1，此时m＝16；继续进行外层循环，k＝2，flag＝True，进入内层循环时，m Mocl k＝0，flag＝False，退出内层循环，执行m＝m＋1，此时m＝17。继续外层循环，k＝2，nag＝True，因为17是质数，不能整除，内层循环一直执行k＝k＋1，直到k＝9时，k＜＝m／2不成立，退出内层循环，flag＝True。执行Me!Text1＝m，退出外层循环，输出17。
转载请注明原文地址:https://kaotiyun.com/show/tfMp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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