首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
2020-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
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click() x=0 DoWhilex
如果要将一个窗体从内存中清除,应使用的语句是
在窗体上画一个名称为Commandl的命令按钮,再画两个名称分别为Labell、Label2的标签,然后编写如下程序代码:PrivateXAsIntegerPrivateSub(20mmandl_Click()X=5
在窗体上有一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化
以下叙述中错误的是( )。
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsInteger:CaptionAsStringEndTypeDimart(5)Asrec则下面的输出语句中正确的是
下面有关标准模块的叙述中,错误的是
在E-R图中,用来表示实体的图形是
下列关于线性链表的叙述中,正确的是
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是
随机试题
“其身正,不令而行;其身不正,虽令而不从”体现教师劳动特点的()
患者身患外感实热病证,兼见喘喝,气不能接续,甚则心悸气短。其病机是
人体在术后早期应激状态下出现的代谢改变是
.管道吹洗的顺序应按()依次进行。
从理论上来说,就业说法不合适的是()。
该企业当月应税销售额包括()。本月应纳增值税税额为()。
对于经营性的存款人,有下列行为,给予警告并处以5000元以上3万元以下的罚款,这些行为包括()。
在一次外展服务中,社会工作者小王遇到酒醉后的小林在地铁站口乞讨。小王与小林交谈后得知,小林酗酒多年,身体十分虚弱,长期乞讨。小王除了向小林派发“救助指引卡”,还可以采取的措施是()。
当今世界上所有的国家,不论其社会制度和发展程度,都在进行经济调整和改革,制定新的国家发展战略,这是因为大家清醒地认识到:今后最终决定本国在国际上的地位,取决于______。
(2010年)设函数z=z(x,y)由方程确定,其中F为可微函数,且F’2≠0,则
最新回复
(
0
)