首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有以下程序代码: Const NUM As Integer=5 Private Sub Form_Click() Dim a As Integer,b As Integer a=1:b=NUM Do a=a+b b=b+1 Loop Until b>NUM
有以下程序代码: Const NUM As Integer=5 Private Sub Form_Click() Dim a As Integer,b As Integer a=1:b=NUM Do a=a+b b=b+1 Loop Until b>NUM
admin
2018-06-20
25
问题
有以下程序代码:
Const NUM As Integer=5
Private Sub Form_Click()
Dim a As Integer,b As Integer
a=1:b=NUM
Do
a=a+b
b=b+1
Loop Until b>NUM
Print a
End Sub
当程序运行时,单击窗体产生的输出结果是( )。
选项
A、5
B、1
C、6
D、出错
答案
C
解析
本题在过程开始之前定义了一个符号常量NUM,并赋值为5,在Form_Click事件中,定义了整型变量a和b,a的初始值为1,b的初始值为NUM。接着,程序使用Do……Loop Until结构,该结构的特点为:首先执行循环体语句,然后再判断循环条件是否成立,并且只有当条件为假时,才会继续执行循环体。第一次执行循环体后,变量a=6,变量b=6,条件表达式“b>NUM”为真,循环结束,故最终输出变量a的值为6,C选项正确。本题选择C选项。
转载请注明原文地址:https://kaotiyun.com/show/CaGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommandl_Click()i=1DoWhilei<5j=1Doj=j+1
窗体上有一个名称为Commandl的命令按钮,编写如下事件过程:PrivateSubCommandl_Click()i=0DoWhilei<6For
下列控件中,不响应Click事件的是
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值"按钮时,调用find过程分别找
用Write和Print语句向文件中写入多个数据的差别在于()。
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有两个标题分别为”添加”和”退出”的命令按钮,一个内容为空的列表框Listl。请画一个标签,其名称为Labell,标题为”请输入编号”;再画一个名称为Textl,初始值为空的文本框,如图2-42所示。程
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml的窗体上画一个名称为:Labell、标题为”设置速度”的标签,通过属性窗口把标签的大小设置为自动调整。画一个名称为HScrolll的水平滚动条,通过属性窗口设
在窗体上建立一个二级菜单,第一级含两个菜单项,标题分别为”编辑”、”帮助”,名称分别为edit、help。其中”编辑”菜单含有子菜单,共有三个菜单项,其标题依次为”剪切”、”复制”、”粘贴”,名称分别为”cut”、”copy”、”paste”(如图2.10
设窗体上有2个文本框Textl和Text2,并有下面的事件过程:DimnPrivateSubTextl—KeyPress(KeyAsciiAsInteger)lf“A”
下列说法中,错误的是( )。
随机试题
“陈述事实要清楚扼要、表达观点要精练清晰、语言要简洁朴实”这是________的写作要求()
周围血管征包括()
药物或化学物质中毒所致的高铁血红蛋白血症,其发绀特点是
原始粒细胞、早幼粒细胞和中幼粒细胞均有合成DNA的能力,这类粒细胞应属于
PRI卡环组成为
适用于建筑物的门窗、隔墙、幕墙及橱窗、家具的安全玻璃是()。
TCP/IP协议是一种开放的协议标准,下列哪些是它的特点?()
世界上公认的第一台电子计算机诞生在()。
Mom’sTrafficAccidentsTheybicyclingcrazecameinwhenwewerejustaboutattherightagetoenjoyit.Atfirsteven"sa
Likemanyhighschoolheads,MikeWarbelhadaplanreadywhenthebadnewscame.Itproveduseful,yet【C1】______madehimfeela
最新回复
(
0
)