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

admin2019-04-13  22

问题 在窗体中有文本框Textl和Text2。运行程序时,在Textl中输入整数m(m>0),单击Commandl“运行”按钮,程序能够求出m的全部除1之外的因子,并在Text2中显示结果。例如,18的全部因子有2,3,6,9,18,输出结果为2,3,6,9,18,;28的全部因子为2,4,7,l4,28,输出结果为2,4,7,14,28,。事件代码如下:
    Private Sub Commandl Click()
    m=Val(Me!Textl)
    resule=""
    For k=2 To
    If m Mod k=0 Then
    result=resuIt& k &"."
    End If
    Next k
    Me!Text2=result
End Sub
程序画线处应填写的语句是(    )。

选项 A、m
B、k<m
C、k<=m
D、m一1

答案A

解析 本题考查的是For循环,只要k满足条件就一直循环。本题要找输入值m的除1之外所有的因子,循环结束的条件是k>m,因此k的取值为2,…,m一1,m。括号内应该填写一个数值,因此B和C选项不正确,D选项应去除m本身。因此,A选项符合题意。
转载请注明原文地址:https://kaotiyun.com/show/OG0p777K
0

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