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

在窗体中有命令按钮Commandl和两个文本框Texto、Text1，命令按钮对应的代码过程如下： Private Sub Commandl_Click（） Dim m，k As Integer Dim flag As Boolea

admin2021-02-23  76
问题 在窗体中有命令按钮Commandl和两个文本框Texto、Text1，命令按钮对应的代码过程如下：
    Private Sub Commandl_Click（）
    Dim m，k As Integer
    Dim flag As Boolean
    m= Val（Me! Texto）    ’输入一个整数
    Do While l
    k=2
    flag =True
    Do While k<=m／2 And flag
    If m Mod k=0 Then
    flag=False
    Else
    k=k+l
    End If
    Loop
    If flag Then
    Me! Text1=m    ’输出计算结果
    Exit Do
    Else
    m=m+1
    End If
    Loop
    End Sub
    运行程序，输入15，单击按钮，程序的输出结果是（    ）。
选项 A、17
B、15
C、13
D、其他整数
答案A
解析 本题利用二重循环结构找出大于给定数值最小的素数，内部Do While循环的功能是判断一个数是否为素数，本题输入值为15，即找出大于15最小的素数，经运算输出结果为17，故A选项正确。
转载请注明原文地址:https://www.kaotiyun.com/show/9HSp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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