在窗体中有文本框Text1和Text2。运行程序时,在Text1中输入整数m(m>0),单击Command1"运行"按钮,程序能够求出m的全部除1之外的因子,并使用Text2显示结果。例如,18的全部因子有2,3,6,9,18,输出结果为"2,3,6,9,

admin2021-04-27  28

问题 在窗体中有文本框Text1和Text2。运行程序时,在Text1中输入整数m(m>0),单击Command1"运行"按钮,程序能够求出m的全部除1之外的因子,并使用Text2显示结果。例如,18的全部因子有2,3,6,9,18,输出结果为"2,3,6,9,18,";28的全部因子为2,4,7,14,28,输出结果为"2,4,7,14,28"。
事件代码如下:
Private Sub Command1_Click()
    m = Val(Me!Text1)
    resule = ""
    k = 2
    Do
        If m Mod k = 0 Then result = result & k & ","
        k = k + 1
    Loop Until 【    】
    Me!Text2 = result
End Sub
程序【    】处应填写的语句是

选项 A、k > m
B、k = m
C、k >= m
D、k < m

答案A

解析 本题考查的是Do循环until结束的条件。本题要找输入值m的除1之外所有的因子,循环结束的条件是k>m。但是不能用k=m或k>=m作为结束条件。例如,如果m输入值为1,循环会一直满足条件,就会形成死循环。因此,本题应选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/DvSp777K
0

最新回复(0)