2. 计算机
  3. 编写如下程序： Private Sub Command1_Click() Dim num As Integer Dim k As Integer, n As Integer num = InputBox("请输入一个正整数：") k

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

admin2020-06-30  27
问题 编写如下程序：
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://jikaoti.com/ti/z6S0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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