窗体中有文本框Textl和标签Labell。运行程序,输入大于0的整数m,单击按钮Cornmandl,程序判断m是否为素数,若是素数,则Labell显示“m是素数”,否则显示“m是合数”。事件代码如下: Private Sub Commandl_C

admin2018-08-17  37

问题 窗体中有文本框Textl和标签Labell。运行程序,输入大于0的整数m,单击按钮Cornmandl,程序判断m是否为素数,若是素数,则Labell显示“m是素数”,否则显示“m是合数”。事件代码如下:
    Private Sub Commandl_Click()
       m=Val(Me!Text1)
       result=m&“是素数”
       k=2
       Do While k<=m/2
        If m Mod k=0Then
           result=m&“是合数”
           _________
           End H
           k=k+1
        Loop
        Me!Labell.Caption=result
    End Sub
    程序画线处应填写的语句是(    )。

选项 A、Exit
B、Exit Loop
C、Exit While
D、Exit Do

答案D

解析 本题是考查输入的m是否为素数,素数是指除了1和它本身之外没有别的约数,所以在While循环里只要m对k不能整除,说明k不是m的约数,否则m有小于本身的约数就不是素数,下面就不用再判断了,直接跳出Do循环。Do…While退出时,用Exit Do。
转载请注明原文地址:https://jikaoti.com/ti/uG10FFFM
0

最新回复(0)