窗体中有文本框为Textl和Text2。运行程序时单击“运行”按钮Commandl,在Textl中输入整数m(m>0),在Text2中显示输出m的全部除1和自身之外的因子。例如,20的因子有2,4,5,10,输出结果为“2,4,5,10”;16的因子为2,

admin2019-08-21  27

问题 窗体中有文本框为Textl和Text2。运行程序时单击“运行”按钮Commandl,在Textl中输入整数m(m>0),在Text2中显示输出m的全部除1和自身之外的因子。例如,20的因子有2,4,5,10,输出结果为“2,4,5,10”;16的因子为2,4,8,输出结果为“2,4,8”。
    事件代码如下:
    Private Sub Commandl_Click()
    m=Val(Me!Textl)
    resule=""
    k=2
    Do
      If m Mod k=0 Then result=result&k&"."
      k=k+1
Loop While【  】
    Me!Text2=result
    End Sub
    程序【    】处应填写的语句是(    )

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

答案B

解析 Do循环是查找m的因子,循环的条件是因子k小于m,因子k初始值为2,循环结束的条件是k增加到m一1结束,即k<m。故选择B选项。
转载请注明原文地址:https://kaotiyun.com/show/Mu0p777K
0

最新回复(0)