首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
admin
2015-06-30
35
问题
编写如下程序:
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/u5Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在待排序的元素序列基本有序的前提下,效率最高的排序方法是
下列语句的输出结果为【】。
冒泡排序在最好情况下时间复杂度为【】。
向顺序文件Temp.txt中写入1,2,3这3个数。在程序中加入以下语句的那项可以使程序功能完整。PrivateSubCommand1_Click()Open"c:\Temp.txt",OutputAs#1For
数据库设计包括两个方面的设计内容,它们是______。
以下关于MsgBox的叙述中,错误的是
设x=4,y=8,z=7,表达式x>zOrz<X的值是()。
假定有以下程序段:Fori=1To4Forj=5To1Step-1Printi*jNextj,Nexti则语句Printi*j的执行次数是
设窗体Form1中有一名为mnuFile的菜单,它只有一个标题为Open的子菜单。为使程序运行时,按下AIt+F键窗体中能够显示如下图所示的菜单项,则mnuFile的标题应为______。
“软件危机”产生的主要原因是______。
随机试题
直肠癌晚期出现肠梗阻的病人需要进行的手术是
李某自营地下商场,应税房产原值为40万元,每年需要缴纳的房产税额最多为()元。
不锈钢管道的法兰连接可采用( )。
某企业只生产一种产品,其产品成本计算采用标准成本计算系统,有关资料如下:(1)单位产品标准成本(2)本月生产及销售情况(3)月初材料2500千克,本月购入原材料12500千克,实际成本27500元;本月生产领用原材料
可以由().
()
【马克.布洛赫】(MarcBroch,1885—1977)北京大学2001年世界古代史真题
根据国际费雪效应()。
在微波炉清洁剂中加入漂白剂,就会释放出氯气;在浴盆清洁剂中加入漂白剂,也会释放出氯气;在排烟机清洁剂中加入漂白剂,没有释放出任何气体。现有一种未知类型的清洁剂,加入漂白剂后,没有释放出氯气。根据上述实验,以下哪项关于这种未知类型的清洁剂的断定一定为真?
Nomatterwhatyoursituationis,oneofthegreatestdangersnowisthatyou’llstopdoingwhatyou’realreadydoingright.
最新回复
(
0
)