首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: Private Sub Command1_Click() Dim i As Integer,a As Integer Do While i<20
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: Private Sub Command1_Click() Dim i As Integer,a As Integer Do While i<20
admin
2013-04-11
24
问题
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: Private Sub Command1_Click() Dim i As Integer,a As Integer Do While i<20 Do While True If i Mod 10=0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+i Loop Printa End Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
选项
A、21
B、32
C、33
D、11
答案
2
解析
本题内层循环的循环条件始终为True,因此内层循环体内的Exit Do语句为终止循环的语句。首先,判断外层循环Do While后面表达式“i<20”的值为True,接着执行内层循环的If语句,表达式“i Mod 10=0”的值为True,执行Exit Do语句,跳出内层循环,执行下面的语句,此时i和a的值分别为11:回到外层循环,判断条件“i<20”,仍为True,执行内层循环语句,此时If条件不满足,执行Else语句,i的值为10,继续内层循环,If语句条件满足,执行Exit Do语句,跳出内层循环,执行下面的语句后,i和a的值分别为21和32。再判断外层循环的条件,不再满足,结束循环。输出变量a的值为32。
转载请注明原文地址:https://jikaoti.com/ti/h4O0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即,号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下:在名称为Form1的窗体上
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上放置两个列表框,名称分别为List1和List2。在Lis
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在窗体上建立一个名称为Text1的文本框,然后建立两个主菜单,标题分别为“销售业态”和“帮助”,名称分别为vbMenu和vbHelp,其中“销售业态”菜单包括“大型百货”、
设有如下变量声明DimTestDateAsDate为变量TestDate正确赋值的表达方式是______。
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click()CommonDialogl.Flags=cdlOFNHideReadOnly
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指______。
下列说法中,不属于数据模型所描述的内容的是______。
需求分析阶段的任务是确定______。
表达式4+5\6*7/8Mod9的值是______。
希尔排序法属于哪一种类型的排序法______。
随机试题
根据产品的商业寿命周期分阶段确定不同的销售价格的定价策略是()
妊娠期妇女可拔牙的时间段为
公开发行可转换为公司股票的公司债券的条件之一是,股份有限公司的净资产不低于人民币()元,有限责任公司的净资产不低于人民币()万元。
证券登记结算机构对每一营业日成交的证券与价格分别予以轧抵,计算证券和资金的应收或应付净额的处理过程,被称为()。
北宋第一个致全力于词作的文人是()。
幼儿美育是社会精神文明建设的组成部分。()
公安教育与科研工作是为公安队伍提供人才培养和科学技术保障的专门工作。()
局域网从介质访问控制方法的角度可以分成()两类。
检索职工表中工资大于800元的职工号,正确的命令是
有如下程序:Functionfun(ByValsumAsInteger)AsIntegerDimkAsIntegerk=1num=Abs(num)DoWhilesumk=k*(humMod10):sum=sum\10L
最新回复
(
0
)