首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command l_Click() Dim num As Integer,k As Integer,n As Integer num=InputBox(”请输入一个正整数:
编写如下程序: Private Sub Command l_Click() Dim num As Integer,k As Integer,n As Integer num=InputBox(”请输入一个正整数:
admin
2019-06-11
15
问题
编写如下程序:
Private Sub Command l_Click()
Dim num As Integer,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
程序运行后,单击命令按钮Commandl,并输入数值20,则输出结果为
选项
A、2 2 5
B、2 3 4
C、2 3 4 5
D、2 5
答案
A
解析
Do型循环结构,首先看条件判断在循环体的前面还是后面,如果是先判断条件,则有可能一次也不执行循环体;如果是后判断条件,则无论条件是什么,至少执行一次循环体。在Until循环中条件为False时执行循环体,条件为True时退出循环;在While循环中条件为True时执行循环体,条件为False时退出循环。本题是一个嵌套的Do循环,外层循环是后判断条件的Until型循环,内层循环是先判断条件的While型循环。根据输入的值20可判断出三次输出的结果为2、2、5。
转载请注明原文地址:https://kaotiyun.com/show/YxUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序:PrivateSubeornmandl_Click()DimnIfTextl.Text<>”123456”Thenn=n+1Pr
假定有以下程序段:Fori=1To3Forj=5To1Step一1Printi*jNextjNexti则语句Printi*j的执行次数是()。
下面程序运行时,若输入395,则输出结果是()。PrivateSubCommand1_Click()Dimx%x=InputBox("请输入一个3位整数")PrintxMod10,x\100,(x
窗体上有一个名称为Picturel的图片框控件,一个名称为Label1的标签控件,如图所示。现有如下程序:PublicSubdisplay(xAsControl)IfTypeOfxisLabelThenx
为了使文本框Text1中的文本不能被编辑,但能滚动和选择,下列正确的设置为()。
某系统总体结构图如下图所示:该系统总体结构图的深度是()。
在学生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加两个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为Text1和Text2,初
数据字典(DD)所定义的对象都包含于
软件(程序)调试的任务是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml标题为“选课”的窗体上面一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、
随机试题
假设某企业只生产销售一种产品,单价50元,边际贡献率40%,每年固定成本300万元,年产销量20万件,假设其他因素不变,则销售量对利润影响的敏感系数为()。
一定量的可交换产品既包括有形的物质产品,也包括无形的服务,还包括各种商品化了的资源要素。下列属于商品化了的资源要素的有()
Sorry,Imistakeyouroffice______John’s.
急性ITP死亡的主要原因是
A.利尿药B.钙拮抗剂C.中枢性降压药D.β受体阻断剂E.血管紧张素转化酶抑制剂可逆转心肌肥厚的药物是()
败血症病人发热时常见的热型是
预算控制属于行政事业单位内部控制的一种方法。()
关于场外交易市场,下列说法正确的有()。
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性。
IrecentlyreadtheOxford【C1】______oftheTolstoy’sWarandPeace,translatedbyLouiseandAylmerMaude.【C2】______myshame,
最新回复
(
0
)