首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,X As Integer For i=l To 6 If i=
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,X As Integer For i=l To 6 If i=
admin
2010-03-22
58
问题
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer,X As Integer
For i=l To 6
If i=1 Then x=i
lf i<=4 Then
x=x+1
Else
x=x+2
End If
Next i
MsgBox X
End Sub
程序运行后,单击命令按钮,其输出结果为______。
选项
答案
9
解析
本题考查VBA中程序设计的知识。对于这个问题,首先注意到循环的次数为6次;然后注意到循环内的两个If语句为顺序关系而不是嵌套关系,第一个If语句只有第一次循环时才会满足;第一次循环时首先执行第一个If语句把x赋值为1,然后执行第二个If语句;以后各次循环均照此分析,前4次循环x自加1,后两次循环x自加2,所以最后输出结果为9。
转载请注明原文地址:https://kaotiyun.com/show/b8wp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
下面程序的运行结果是()。#includeintx=5:intfun(inta){intc;C=X*a:returnC;}voidmain()
C++系统预定义了4个用于标准数据流的对象,下列选项中不属于此类对象的是()。
下列描述中,属于面向对象思想主要特征的是
软件详细设计产生的图如下:该图是()。
字面常量42、4.2、42L的数据类型分别是()。
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
使用VC6打开考生文件夹下的源程序文件modi3.cpp。类Person完成对人的姓名和年龄的绑定。函数fun()获得年龄比较大的姓名。然后输出这个姓名到屏幕。其中定义的类并不完整,按要求完成下列操作,将类的定义补充完整。(1)完成类的
下列选项中正确的定义语句是()。
结构化程序设计中,下面对goto语句使用描述正确的是
结构化程序设计的基本原则不包括( )。
随机试题
下列不属于人身保险的是()。
某工业企业2012年销售收入为2000万元,发生销货折让共计200万元,该企业申报的应纳税所得额为600万元,其余部分资料为:(1)在管理费用中列支业务招待费20万元;(2)向某公司贷款75万元,企业全年支付该项利息9.6万元(银行同期
甲公司于2012年12月10日与乙租赁公司签订了一份设备租赁合同,合同主要条款如下:(1)租赁标的物:生产设备。(2)起租日:2012年12月31日。(3)租赁期:2012年12月31日至2014年12月31日。(4)租金支付方式:2013年和20
研究者根据预先拟定好的问题向被调查者提出,在面对面的一问一答中搜集资料,然后对群体的心理特点及心理状态进行分析和推测,这种心理学研究方法属于()。
某地财政局会计钟某涉嫌贪污被举报,检察机关对其立案侦查。在查账的过程中,侦查人员发现钟某经手的现金有5万元对不上账。后钟某向检察机关提供了一张5万元现金的付款单,用来证明其并没有贪污。侦查人员对此进行了侦查,查明该付款单上的现金并没有付往标注的收款单位。检
Themajortaskfacingadolescentsistocreateastableidentity.Therearesomedevelopmentaltasksthatenablethemtocreate
Weoftentendtoassociatesmilingastheresultofapositiveeventormood.Butresearchdemonstratesthattheactofsmiling,
分析运算符LENGTH只有用( )定义的变量才有意义。
度为3的一棵树共有30个节点,其中度为3,1的节点个数分别为3,4。则该树中的叶子节点数为()。
Readthistextaboutthejobcreationcuttingbyprivateemployers.Choosethebestsentenceformtheoppositepagetofill
最新回复
(
0
)