首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
admin
2016-06-23
34
问题
编写如下程序:
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://kaotiyun.com/show/ScLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面的语句用Array函数为数组变量a的各元素赋整数值:a=Array(1,2,3,4,5,6,7,8,9)针对a的声明语句应该是
下面程序段,运行后的结果是PrivateSubCommand1_Click()Dimb%(1To4),i%,t# Fori=1To4 b(i)=i Next t=Tof(b()
随机文件用于读数据的语句是
下列程序段的执行结果为DimA(3,3)ForM=1To3 ForN=1To3 IfN=MOrN=3-M+1Then A(M,N)=1 Else A(M,N)=
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为______。
如果希望定时器控件每秒产生10个事件,则要将Interval属性的值设为()。
下面关于多重窗体的叙述中,正确的是()。
在Visual:Basic的立即窗口内输入以下语句:X=65<CR>PrintChr$(x)<CR>在窗口中显示的结果是
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是______。
表达式Str(Len"123’))+Str(77.7)的值是()。
随机试题
下列DNA中,一般不用作克隆载体的是
据《关于推进大气污染物联防联控工作改善区域空气质量的指导意见》,大气污染物联防联控的重点行业是()。
对施工单位提出的工程变更,总监理工程师应履行的职责有()。
甲、乙、丙、丁四人合作创作一部小说,甲欲将该小说许可给某电影制片厂改编后拍成电影。乙则想把它许可给某网站在网络上传播,丙对这两种做法均表示反对,丁则不置可否。对此,下列哪一选项是正确的?()
Readingisthekeytosuccess.Apparently,everysuccessfulpersondevelopsapassionforreading.Thisisbecausereadingisa
Relativitytheoryhashadaprofoundinfluenceonourpictureofmatterbyforcingustomodifyourconceptofaparticleinan
为当前表中所有学生的总分增加10分,正确的命令是()。
Theorderlycamebackinafewminuteswitharifleandfivecartridges,andmeanwhilesomeBurmanshadarrivedandtoldusthat
ChrisBaildon,tallandlean,wasinhisearlythirties,andtheend-productofanolddecayedislandfamily.Chrissharedt
Humanbodyneedsavarietyofessentialnutrientstofunctionproperly.Unlessyouarea【C1】______,youprobablydon’tknowwhat
最新回复
(
0
)