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

admin2018-09-25  32

问题 在窗体中有文本框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)
result=" "
k=2
Do
If m Mod k=0Then result=result&k&","
k=k+1
Loop ntil【    】
Me!Text2=result
End Sub
程序【    】处应填写的语句是(    )。

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

答案A

解析 根据题意,Do…Loop循环用来判断m的因子,每次执行循环都用一个小于m的数k去整除m,如果能够整除,则说明k是m的因子。故当k<m的时候执行循环;当k>m的时候循环结束。
转载请注明原文地址:https://jikaoti.com/ti/zL10FFFM
0

最新回复(0)