首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b>= 10 t
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b>= 10 t
admin
2010-09-11
27
问题
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b>= 10 then exit for if b Mod 3 = 1 then b=b+3 End ifNext aPrint aEnd Sub在命令按钮上单击后,窗体上显示的结果是______。
选项
A、101
B、6
C、5
D、4
答案
D
解析
当发生Conunand1_Click事件时,给变量b赋值1,然后执行for循环:首先给a赋初值1,判断if后面的条件“b>=10”为False,接着执行下面的if语句,判断条件“b Mo d 3=1”为True,执行语句“b=b+3”,b的值为4,第一次循环结束,循环变量a增加1变为2,没有超过终值,接着执行第二次循环;同样解析可知第二次循环结束后,b的值为7,a的值为3,接着执行第三次循环:同样解析可知第三次循环结束后b的值为10,a的值为4,接着执行第四次循环;判断第一个if语句的条件“b>=10”为 True,执行后面的exit for语句,退出循环。输出的a的值为4。
转载请注明原文地址:https://kaotiyun.com/show/Gwmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果用户定义的Applet类中没有init()方法,则该程序
下面程序中需要对Empleyee的对象进行存储,请在下画线处填入正确的选项。classEmployeeimplements______{…}
每个Java小应用程序必须定义为
在程序读入字符文件时,能够以该文件作为直接参数的类是
请完善程序(程序文件名:Java_2.java)并进行调试。请在下画线处填入正确内容,然后删除下画线。请勿删除注释行和其他已有的语句内容。[题目要求]打开一个文本文件test.txt,统计该文件中包含的数字的个数与英文字母的个数(忽略大小写
对二进制进行算术右移的运算符是______。
在数据库设计中,将E-R图转换成关系数据模型的过程属于
请完善程序(程序文件名:Java_3.java)并进行调试。请在下画线处填入正确内容,然后删除下画线。请勿删除注释行和其他已有的语句内容。[题目要求]统计一个英文文本字符串包含的英文元音字母的个数,使程序的运行结果如下:Thete
随机试题
VisualFoxPro中的索引种类不包括()
护理诊断指出护理方向,有利于()。
某公司在出口一批保鲜大蒜(检验检疫类别为P.R./Q.S),经检验检疫台合格后于2005年2月 17日领取了《出境货物通关单》。以下情况中,无须重新报检的是( )。
投资者在买卖开放式基金时要支付的费用有()。
某啤酒厂销售啤酒时,采用购买者可以免费使用啤酒储藏罐1年的优惠政策,为了保证啤酒罐按时收回,啤酒厂在提供啤酒罐时,每个啤酒罐收取2500元的押金。2018年6月,当月销售啤酒200吨,每吨不含税价格2800元,共发出免费使用啤酒罐20个。对啤酒罐押金进行审
一天,全陪发现一位每天准时用早餐的住单人房间的游客没有来吃早饭。全陪有点纳闷,但以为游客已起身外出散步,没有在意。但集合登车时还没有见此游客,他就找领队询问,领队也不知道;于是打电话,没人接,他们俩就上楼找。敲门,无人应;推门,门锁着;问楼层服务员,回答说
劳动权保障具体体现为()。
甲公司长期购买乙厂的水泥,现因急需水泥向乙厂发出传真,请其立即运送某型号水泥50吨到某工地,价格与以往相同,货到付款。乙厂接到传真后,按照以往惯例,立即组织货源,并将水泥送到了甲公司指定的工地。不料,甲公司因另外购得水泥,拒绝接受乙厂的水泥,为此引起纠纷。
采用树型结构表示实体之间联系的数据模型为()。
Backintheday,agoodreportcardearnedyouaparentalpatontheback,butnowitcouldbemoneyinyourpocket.Experiments
最新回复
(
0
)