首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base 0 Private Sub Command1_Click() Dim A1(4)As Integer, A2(4)As Integer For k=0 To
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base 0 Private Sub Command1_Click() Dim A1(4)As Integer, A2(4)As Integer For k=0 To
admin
2015-08-28
36
问题
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
Option Base 0
Private Sub Command1_Click()
Dim A1(4)As Integer, A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox("请输入一个整数")
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
选项
A、0
B、1
C、2
D、3
答案
C
解析
程序运行过程如下:
k=0,输入2,A1(k+1)=A1(0+1)=A1(1)=2,A2(3-k)=A2(3-0)=A2(3)=2
k=1,输入4,A1(k+1)=A1(1+1)=A1(2)=4,A2(3-k)=A2(3-1)=A2(2)=4
k=2,输入6,A1(k+1)=A1(2+1)=A1(3)=6,A2(3-k)=A2(3-2)=A2(1)=6
k=3,For循环结束,输出A2(k)的值即A2(3)的值,即2。
转载请注明原文地址:https://kaotiyun.com/show/VoLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列说法错误的是()。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c="ABCD"Forn=1To4Print______
下列概念中,不属于面向对象基本机制的是______。
在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
执行语句Print"Sgn(-34)=";Sgn(-34)后,其输出结果为()。
用下面的语句所定义的数组的元素个数是Dimarr(3To-2to2)
用树形结构来表示实体之间联系的模型称为______。
用树形结构来表示实体之间联系的模型称为______。
VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括______。
随机试题
A.抑制胆碱酯酶活性B.高温引起的人体体温调节功能失调,体内热量过度积蓄C.高铁血红蛋白蓄积D.碳氧血红蛋白蓄积E.迷走神经过度兴奋一氧化碳中毒的发病机制是
A.适当磨改人工牙的舌面B.适当磨改人工牙的切缘舌侧C.适当磨改人工牙的邻面轴面角D.适当磨改人工牙的颈缘E.适当调整人工牙的轴向倾斜人工牙的宽窄、长短基本合适,排牙时还应注意
关于拘传和传唤两者区别的说法,下列哪一选项是错误的?
某施工合同约定,现场主导施工机械一台,由承包人租得,台班单价为200元/台班,租赁费100元/天,人工工资为50元/工日,窝工补贴20元/工日,以人工费和机械费为基数的综合费率为30%。在施工过程中,发生了如下事件:①遇异常恶劣天气导致停工2天,人员窝工3
工程建设项目不符合规定的范围和标准的小规模的建筑材料、建筑构配件和设备的采购的三种形式有( )。
施工企业购买材料设备后交付承运人运输,未按约定给付承运费用时,承运人有权扣留足以清偿其所欠运费的货物,承运人行使的是()。
名义利率与实际利率的关系是:名义利率越(),计息周期越(),则实际利率与名义利率的差异就越()。
我至今还记得那一晚被昏黄的灯光和烟雾________着的人们一声声因输赢而________着的喜悦或者痛苦的叫声。填入画横线部分最恰当的一项是:
齐某与李某是同学。因李某住房困难,2000年齐某将自己继承的3间房屋借给李某居住,2005年李某将其中两间出租给别人用于商业经营,月租金800元,齐某得知这一情况后,遂向李某提出收回出借的3问房。李某以自己居住多年、多次翻修、长期管理为由拒绝返还。李某并认
Scientistsrequireobservabledata,not(i)______,tosupportahypothesis;soundscienceisgroundedin(ii)______resultsrathe
最新回复
(
0
)