首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,并编写如下程序代码: Private Const NUM As Integer = 10 Private Sub Command1_Click() Dim a As Integer, b As Int
在窗体上画一个名称为Command1的命令按钮,并编写如下程序代码: Private Const NUM As Integer = 10 Private Sub Command1_Click() Dim a As Integer, b As Int
admin
2015-09-23
23
问题
在窗体上画一个名称为Command1的命令按钮,并编写如下程序代码:
Private Const NUM As Integer = 10
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 1
b = NUM
Do Until b > NUM
a = a * NUM
b = b + 1
Loop
Print a
End Sub
则当程序运行时,单击Command1后,在窗体上的输出结果是( )。
选项
A、10
B、1
C、21
D、100
答案
A
解析
在"Do Until……Loop"循环中,先判断循环条件是否为"假",若条件为"假",则执行循环体语句;若条件为"真",则结束循环。本题中第一次判断循环条件语句b = 10,"b>NUM"为假,执行循环体语句"a=a*NUM:b=b+1"后,a=10,b=11。第一次循环结束;第二次循环开始前,先判断条件"b>NUM"为真,结束循环,所以最终a的值为10。故A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/bLLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
变量的类型可以用类型说明符来标识。下列使用类型说明符不正确的是______。
数据流图用于抽象描述一个软件的逻辑模型,数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是______。
算法分析的目的是______。
设在工程中定义了如下类型:TypestutypeinoAsIntegerstrnameAsString*20strsexAsString*1smarkAsSingleEndType在窗体上正
在考生文件夹中有工程文件execise15.vbp及其窗体文件execise15.frm。在窗体上有3个名称分别为Opt1、Opt2和Opt3的单选按钮,标题分别为“宋体”、“隶书”和“黑体”;一个名称为Text1的文本框,字体为楷体GB2312,字号为四
数列:1,1,2,3,5,8,13,21,…的规律是从第3个数开始,每个数是它前面两个数之和。在考生文件夹下有一个工程文件execise36.vbp(相应的窗体文件为execise36.frm)。窗体Form1中已经给出于所有控件,如下图所示;
在考生文件夹中有一个工程文件execise81.vbp及窗体文件execise81.frm。在名为Form1的窗体上已经绘制出所有控件,如下图所示。在Text1文本框中输入一个任意的字符串(要求串的长度≥10),然后选择组合框中的3个截取运算选项之一。单击
在考生文件夹中有一个工程文件execise77.vbp及窗体文件execise77.frm。在名为Form1的窗体上有两个框架,其中一个框架中有两个单选按钮,另一个框架中有两个复选框,窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控
以下关于局部变量的叙述中错误的是()。
下列说法正确的是
随机试题
该损伤的类型为现场应给予的主要急救措施是
A、10%B、5%C、1%D、逐件取样E、5件100件以下的样品同批药材包件中抽取鉴定用样品的原则是()
青霉素可用于( )。
甲、乙双方当事人签订货物买卖合同,并在合同中约定了仲裁条款:凡因本合同所发生之一切纠纷,均提交某市仲裁委员会仲裁。后因市场情况发生变化,双方经协商将合同终止,但关于合同的部分履行及相应价款问题仍有争议存在。甲方据该仲裁协议向仲裁委员会申请仲裁,乙方则向仲裁
在工程项目的所有管理者中,()可使用的管理手段是最全面的。
账页格式一般有()。
在企业的日常经营管理工作中,成本管理工作的起点是()。
(2x³-5x²+3x-2)÷(-x+1+2x²)=()。
在客户/服务器模式中,为了解决多客户同时请求的问题,服务器可以建立一个请求队列。客户的请求到达后在队列中排队,服务器按照先进先出的原则进行响应。这种方案被称为
Whatdoesthemanwant?
最新回复
(
0
)