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

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

admin2016-06-23  32
问题 编写如下程序：
Private Sub Command1_Click()
Dim Rum As Integer
Dim k As Integer，n As Integer
num=InputBox("请输入一个正整数：")
k=num
n=2
Do
Do Whhile Rum Mod n=0
Print n；
Bum=Bum／n
Loop
n=n+1
Loop Untiln＞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://www.kaotiyun.com/show/ScLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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