2. 计算机
  3. 编写如下程序： Prirate Sub Command1_Click() Dim Bum As Integer Dim k As Integer，n As Integer num=InputBox("

编写如下程序： Prirate Sub Command1_Click() Dim Bum As Integer Dim k As Integer，n As Integer num=InputBox("

admin2020-07-22  61
问题 编写如下程序：
    Prirate Sub Command1_Click()
        Dim Bum As Integer
        Dim k As Integer，n As Integer
        num=InputBox("请输入一个正整数：")
        k=num
        n=2
        Do
            Do While num Mod 12=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循环在Hum MOd n不等于0时退出。Do Loop Until循环满足n＞k／2条件时退出，执行结果选A。
转载请注明原文地址:https://www.kaotiyun.com/show/twHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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