首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
31
问题
编写如下程序:
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全国计算机二级
相关试题推荐
下列叙述中正确的是( )。
以下程序在文本框Textl中输入任‘字符串,并按相反的次序显示在文本框Text2中,在横线处应填写()。DimNAsString,CAsString,DAsStringN=Text1.TextM=____
如图2所示,在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每ls在文本框中显示一次当前的时间。PrivateSubTimer1_______TextTime.Text=Time
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序:PrivateSubCommand1_Click()Dimcount(10)AsInt
设有如下声明语句OptionBase1Dimart(2,-1To5)AsInteger则数组air中数组元素的个数是
窗体上有一个名称为Combo1的组合框,为了引用Combo1中最后一个列表项,应使用的表达式是
下列有关文件的叙述中,正确的是
下列与队列结构有关联的是()。
在学校中,“班级”与“学生”两个实体集之间的联系属于()关系。
为了判断字符串变量ch中是否是一个大写字母,需要编写这样一个表达式:当ch中字符为大写字母时,表达式的值为True,否则为False。下面能正确实现这一目的的表达式是
随机试题
下列哪些说法是正确的?
在国际货物运输保险中,再保险的权利属于()
A、wasteB、pasteC、voyageD、snakeCA、B、D三项划线部分发[ei],而C项划线部分发[i],因此选C项。
为确保所建立与实施的职业健康安全管理体系能够达到控制职业健康安全风险和持续改进职业健康安全绩效的目的,生产经营单位所制定的职业健康安全方针必须包括()。
道路土质路基碾压的原则是()。
1.背景某综合办公楼工程,建设单位(甲)通过招标投标程序确定工程由承包商(乙)为中标单位,双方签订了工程总承包合同,由于工程涉及勘察设计任务,而乙不具备上述能力,后经甲建设单位同意,乙分别与丙设计公司和丁建筑工程公司签订了工程勘察设计合同和工程施工合同。
假设A证券的期望报酬率为10%,标准差是12%,B证券的期望报酬率为18%,标准差是20%,A、B的投资比例分别为60%和40%。要求:假设证券A、B报酬率的相关系数为0.6,投资组合报酬率与整个股票市场报酬率的相关系数为0.8,整个市场报酬率的标准
在循环双链表的p节点之后插As节点的操作是______。
Inshort,artexpressestheessentialqualitiesofatimeandaplace,andastudyofitclearlyoffersusadeeperunderstandin
Theydonotthrowlavishparties.Theireditorsarenotimmortalisedinfilms.ButthemagazinesputoutbyBritain’ssupermarke
最新回复
(
0
)