窗体中有文本框为Text1和Text2。运行程序,在Text1中输入整数m(m>0),单击"运行"按钮Command1,将m分解为质因子之积,并在Text2中给出结果。例如,18=2*3*3,输出结果为"2,3,3,";28=2*2*7,输出结果为"2,2

admin2021-06-03  30

问题 窗体中有文本框为Text1和Text2。运行程序,在Text1中输入整数m(m>0),单击"运行"按钮Command1,将m分解为质因子之积,并在Text2中给出结果。例如,18=2*3*3,输出结果为"2,3,3,";28=2*2*7,输出结果为"2,2,7,"。事件代码如下:
Private Sub Command1_Click()
    m = Val(Me!Text1)
    resule = ""
    k = 2
    Do While m > 1
        If m Mod k = 0 Then
            result = result & k & ","
            m = m / k
        Else
           【     】
        End If
    Loop
    Me!Text2 = result
End Sub
程序【  】处应填写的语句是

选项 A、k = k + 1
B、k = 1
C、m = m - k
D、m = m / k

答案A

解析 本题是求解m的所有质因子之积,while循环结束的条件是m的值大于1。If循环中,如果m mod k=0,则说明k为其中的质因子,所有将k加入结果中,并且把m/k的值赋给m;否则m mod k<>0,则k不是m的因子, k需要加1,以查找较大的质因子。因此,本题应选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/Dzvp777K
0

最新回复(0)