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

admin2016-08-22  41

问题 在窗体中有命令按钮Commandl和两个文本框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=Tnle
    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!Tcxtl=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://jikaoti.com/ti/vtXiFFFM
0

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