编写如下程序: Private Sub Command1_Click() Dim num As Integer Dim k As Integer, n As Integer num = InputBox("请输入一个正整数:") k

admin2020-06-30  29

问题 编写如下程序:
Private Sub Command1_Click()
   Dim num As Integer
   Dim k As Integer, n As Integer
   num = InputBox("请输入一个正整数:")
   k = num
   n = 2
   Do
      Do While num Mod n = 0
         Print n;
         num = num / n
       Loop
       n = n + 1
    Loop Until n > k / 2
End Sub
程序运行后,单击命令按钮Command1,并输入数值20,则输出结果为

选项 A、2  2  5
B、2  3  4
C、2  3  4  5
D、2  5

答案A

解析 Mod为求余函数。内层Do While循环在num Mod n 不等于0时退出。Do Loop Until循环满足n > k / 2条件时退出。执行结果选A)。
转载请注明原文地址:https://kaotiyun.com/show/tQHp777K
0

最新回复(0)