首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim i AS Integer x As Integer F
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim i AS Integer x As Integer F
admin
2012-09-03
33
问题
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:
Private Sub Commandl_Click()
Dim i AS Integer x As Integer
For i=1 To 6
Ifi=1 Thenx=i
Ifi<=4 Then
x=x+1
Else
x=x+2
End If
Nexti
MsgBoxx
End Sub
程序运行后,单击命令按钮,其输出结果为__________。
选项
答案
9
解析
本题考查VBA中程序设计的知识。对于这个问题,首先注意到循环的次数为6次;然后注意到循环内的两个If语句为顺序关系而不是嵌套关系,第一个If语句只有第一次循环时才会满足:第一次循环时首先执行第一个If语句把X赋值为1,然后执行第二个If语句;以后各次循环均照此分析,前4次循环x自加1,后两次循环x自加2,最后输出结果为9。
转载请注明原文地址:https://jikaoti.com/ti/ZKw0FFFM
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
有如下的类声明:#includeusingnamespacestd;classAA{public:virtualvoiddisp(){cout
请使用VC6或使用【答题】菜单打开考生文件夹proj3下的工程proj3,其中包含了类IntegerSet和主函数main的定义。一个IntegerSet对象就是一个整数的集合,其中包含0个或多个无重复的整数;为了便于进行集合操作,这些整数按升序存放在成员
数据库系统的三级模式不包括( )。
设R是一个2元关系,有3个元组,S是一个3元关系,有3个元组。如T=RxS,则T的元组的个数为()。
下面是一个模板声明的开始部分:templatedouble…由此可知()。
支持子程序调用的数据结构是( )。
已知函数FA调用函数FB,若要把这两个函数定义在同一个文件中,则()。
堆排序最坏情况下的时间复杂度为
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
如果派生类以protected方式继承基类,则原基类的protected成员和public成员在派生类中的访问属性分别是()。
随机试题
银行吸收所有存款都必须坚持“存款自愿,取款自由,存款有息,为储户保密”的工作原则。()
A、Tocheckthelaboratoryreport.B、Havingafever.C、Abnormalbloodpressure.D、TohaveanX-ray.Btonsillitis指“扁桃体炎”,对话中还说ther
男性,74岁,右侧腹股沟区可复性肿块8年。查体:病人直立时。在腹股沟内侧端、耻骨结节上外方有一4cm×4cm半球形肿物,未进入阴囊,平卧后自行消失。该病人最有效的治疗方法是
指出下列正确的
甲公司于2014年12月1日出口销售产品一批,价格为100万美元,成本为480万元人民币,合同约定收款日为2015年3月1日。为了减少汇率波动给甲公司带来的风险,销售产品当日甲公司与某银行签订了一项3个月期售出美元的远期合同。根据该远期外汇合同,甲公司将于
下列方法中,()适用于生产周期长、产品结构和工艺加工过程比较复杂的企业。
取得重大成功后的狂喜,惨遭失败后的绝望,这种情绪状态是()。
工业革命之后,大量生产使经济活动大幅扩充;中产阶级形成,人类的生活质量不断地提升。这一切巨变,都是围绕着市场。稍微详细一些来说,工业革命带来量产,而量产使经济活动蓬勃发展。通过市场的交易,买卖双方互蒙其利。在供给面,随着市场规模的扩大,企业家得到可观的利润
PoliceinthepopularresortcityVirginiaBeachrecentlybeganoperatingvideosurveillancecameraswithcontroversialfacerec
IcecreambecamepopularinFranceinthe1500s,butonlyamongroyalty.Overthenextfewcenturies,theprocessofmakingthem
最新回复
(
0
)