首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有以下程序代码: 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
24
问题
有以下程序代码:
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://jikaoti.com/ti/GUy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load()Textl.Text="":Textl.SetFocusEndSubPrivateSubFor
语句:PrintInt(Rnd*5+20)的输出不可能是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml的窗体上画一个名称为:Labell、标题为”设置速度”的标签,通过属性窗口把标签的大小设置为自动调整。画一个名称为HScrolll的水平滚动条,通过属性窗口设
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml的窗体上画三个单选按钮,其名称分别为Optionl、Option2和Option3,如图2-67(a)所示,然后通过属性窗口设置窗体和单选按钮的属性,实现如下
下列说法中,不属于数据模型所描述的内容的是()。
如果在窗体模块中所有程序代码的前面有语句:DimX,则x是()。
执行语句DimX,YAsInteger后,()。
能够产生1到50之间(含1和50)随机整数的表达式是
下列关于菜单的说法中,错误的是
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是( )。
随机试题
对糖尿病诊断首选对糖尿病分型首选
惠临公司的行政管理部门于2006年12月底增加设备一项,该项设备的账面原值为360000元,预计净残值为1000元,预计可使用5年,采用双倍余额递减法计提折旧。至2008年末,在对该项设备进行检查后,估计其可收回金额为100000元,此前该设备尚未计
李平、李亮和李光同为明星合伙企业的合伙人。李平欠张石人民币20万元,无力用个人财产清偿。张石在不满足于用李平从明星合伙企业分得的收益偿还其债务的情况下,可以()。
当一位胆小的学生敢于主动向教师提问时,教师耐心解答并给予表扬和鼓励。教师的这种做法属于行为改变方法中的()。
猕猴桃:火龙果
韩愈在《师说》中关于教师职能的一句名言是——,揭示了教师授业解惑者的角色。
设f(x)在[0,1]上连续,在(0,1)内可导,且f(0)=f(1),证明:存在ξ,η∈(0,1),使得f’(ξ)+f’(η)=0.
Parenthoodisn’tacareer-killer.Infact,economistswithtwoormorekidstendtoproducemoreresearch,notless,thantheir
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DiminAsInteger,nAsInteger,pAsInteger m=3:n=5:p=0 C
程序执行结果s的值是【】.PrivateSubCommandl-Click()I=0DoS=I+SI=I+lLoopUntilI>=4EndSub
最新回复
(
0
)