首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上面一个命令按钮,名称为Commandl,然后编写如下代码: Option Base 0 Private Sub Commandl_Click() Dim A1(4)As Integer,A2(4)As Integer
在窗体上面一个命令按钮,名称为Commandl,然后编写如下代码: Option Base 0 Private Sub Commandl_Click() Dim A1(4)As Integer,A2(4)As Integer
admin
2013-11-29
68
问题
在窗体上面一个命令按钮,名称为Commandl,然后编写如下代码:
Option Base 0
Private Sub Commandl_Click()
Dim A1(4)As Integer,A2(4)As Integer
For k:0 T0 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,Al(k+1)=Al(0+1)=A1(1)=2,A2(3-k)=A2(3-0)=A2(3)=2
k=l,输入4,A1(k+1)=Al(1+1)=Al(2)=4,A2(3-k)=A2(3-1)=A2(2)=4
k=2,输入6,A1(k+1)=Al(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/YPQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是______。
把窗体的KeyPreview属性设置为True,并编写如下两个事件过程:PrivateSubForm_KeyDown(KcyCodeAsInteger,ShiftAsInteger)PrintKeyCode;
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommandl_click()DimnumAsIntegernum=1DoUntilnum>6Printnu
设组合框Combol中有3个项目,则以下能删除最后一项的语句是______。
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是______。
以下能判断是否到达文件尾的函数是______。
采用面向对象技术开发的应用系统的特点是
设已经在“菜单编辑器”中设计了窗体的快捷菜单,其顶级菜单为Bs,取消其“可见”属性,运行时,在以下事件过程中,可以使快捷菜单响应鼠标右键菜单的是
下列4项中说法不正确的是()
假如用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
随机试题
常用治阴虚内热、骨蒸劳热及肠燥便秘的药物是()
建设单位应当自建设工程竣工验收合格之日起( )内,将建设工程竣工验收报告和规划、公安消防、环保等部门出具的认可文件或者准许使用文件报建设行政主管部门或其他有关部门备案。
背景资料A公司在冬季承接了一室外压缩空气管网系统的安装,系统工作压力为2.5MPa。由于工期较紧,A公司将系统中部分规格的直管分包给B公司。A公司和B公司均具备与承包管道系统相符的压力管道施工许可证,管道及管件均由业主提供。管道系统施工
按国际工程的惯例,当采用指定分包商时,不论指定分包商与施工总承包方,或与施工总承包管理方,或与业主方签订合同,()应对合同规定的工期目标和质量目标负责。
可转换公司债券到期未转股的,发行人应当于期满后()工作日内偿还债券余额本息。
新课程认为教学本质上是一种沟通与合作的活动,对话是教学活动的重要特点。()
讯问犯罪嫌疑人时,犯罪嫌疑人应讲清有关事实,不能作无罪的辩解。()
长江流域,无疑也是中华民族文化的______之一。考古发现______,旧石器时代处于长江上游今云南境内的元谋人,与黄河流域今陕西境内的蓝田人______。这个结论具有划时代的意义。填入横线部分最恰当的一项是()。
下列叙述中正确的是()。
A、Returnearlythenextday.B、Photocopythearticlesheneeds.C、AskprofessorGrandforacopyofthearticles.D、Waituntilt
最新回复
(
0
)