首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(10) For i=6 To 10 arr(i)=i-5 N
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(10) For i=6 To 10 arr(i)=i-5 N
admin
2015-08-28
26
问题
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(10)
For i=6 To 10
arr(i)=i-5
Next i
Label1.Caption=arr(0)+arr(arr(10)/ arr(6))
End Sub
运行程序,单击命令按钮,则在标签中显示的是( )。
选项
A、0
B、1
C、2
D、3
答案
A
解析
程序为使用For语句为数组中部分元素赋值,没显示赋值的数组元素的值默认为0,因此arr(0)=0,arr(10)=10-5=5,arr(6)=6-5=1,arr(arr(10)/ arr(6))即,arr(5 / 1)=arr(5)=0,arr(0)+arr(5)=0+0=0。因此标签中显示为0。
转载请注明原文地址:https://jikaoti.com/ti/Z6J0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionFunc(ByValxAsInteger,yAsInteger)y=x*yIfy>0Then
使用目录列表框的______属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是______。
要把一个命令按钮设置成无效,应设置属性______的值为False。
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,yAsIntegera=10:y=0doa=a+2:y=y+aPr
ScrollBars属性用来设置文本框是否含有滚动条,要设置该属性,______属性的值必须设置为True。
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。PrivateSubForm_Click()StaticxAsIntegerClsPri
在滚动条的滑块移动时,Scroll事件连续返回______属性的数值。
在dountil…Loop循环中,判断循环表达式与结束循环的关系是______。
随机试题
A.生麻黄B.炙麻黄C.炙麻黄绒D.麻黄绒E.炒麻黄表证较轻,咳嗽气喘较重的患者宜用()。
以下哪项不属实脉类
方某向孙某借款1万元,孙某要求其提供担保,方某说:“我有一部手提电脑被刘某租去用了,就以它作质押吧,但租金不作质押。”孙某同意,遂付款。下列哪种说法是正确的?
某建筑工程,建筑面积3.8万m2,地下一层,地上16层。施工单位(以下简称“乙方”)与建设单位(以下简称“甲方”)签订了施工总承包合同,合同期600d。合同约定工期每提前(或拖后)1d奖励(或罚款)l万元。乙方将屋面和设备安装两项工程的劳务进行了分包,分包
如果一项建造合同包括多项资产,每项资产可以分立为单项合同处理,但必须具备一定条件。下列各项中不属于必备条件的是()。
会计科目有结构和格式,而会计账户没有结构和格式。()
李女士的孩子小静是初三学生,今年16岁,未经李女士的许可,从家中拿走现金3000多元,到珠宝店买了一条白金项链,李女士拒绝认可,那么小静的购买行为()。
(2012年)2011年1月,甲、乙、丙、丁、戊共同出资设立A有限合伙企业(简称A企业),从事产业投资活动。其中,甲、乙、丙为普通合伙人,丁、戊为有限合伙人。丙负责执行合伙事务。2011年2月,丙请丁物色一家会计师事务所,以承办本企业的审计业务。丁在合伙
以下几方面描述中,不是PC机的主要性能指标的是
Youwillhearanotherfiveshortpieces.Foreachpiecedecidewhatthespeakeristalkingabout.Writeoneletter(A-H)nextto
最新回复
(
0
)