首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim i As Integer, n As Integer Dim arr() As Integer n = InputBox("请输入数值:") ReDi
编写如下程序: Private Sub Command1_Click() Dim i As Integer, n As Integer Dim arr() As Integer n = InputBox("请输入数值:") ReDi
admin
2020-02-27
42
问题
编写如下程序:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim arr() As Integer
n = InputBox("请输入数值:")
ReDim arr(n)
For i = 1 To UBound(arr)
arr(i) = i
Next
For i = 1 To UBound(arr) \ 2
temp = arr(i)
arr(i) = arr(n - i + 1)
arr(n - i + 1) = temp
Next
For i = 1 To UBound(arr)
Print arr(i);
Next
End Sub
程序运行后,单击命令按钮Command1,并在输入对话框中输入7,输出结果为
选项
A、7 6 5 4 3 2 1
B、1 2 3 4 5 6 7
C、3 2 1 4 7 6 5
D、4 3 2 1 5 6 7
答案
A
解析
第一个For循环,是对arr(7)赋值,此时arr(7)=[0,1,2,3,4,5,6,7]。第二for循环用来对下标1到7的arr数组,进行以下标为4的数组元素为中心的,对调,结果arr(7)=[0,7,6,5,4,3,2,1]。故选择A项。
转载请注明原文地址:https://kaotiyun.com/show/atTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面关于直线控件的叙述中正确的是()。
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为()。
要使得文件列表框File1中只显示文件扩展名为jpg的图片文件,则下列正确的语句是()。
(1)在考生文件夹下有一个工程史件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Label1中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该
(1)在名称为:Form1的窗体上画一个标题为“直辖市”、名称为Framel的框架,在框架中画一个名称为Combol的组合框,其编辑域为空,有如图所示的4个列表项,外观风格也与图中相同。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗
(1)在称为Form1的窗体上添加一个名称为Shape1的形状控件,通过设置参数使其形状为圆形;添加一个名称为Label1的标签,标题为“形状”,标签的大小能够根据标签内容的字数、大小而定;添加一个名称为Text1的文本框,文本框最多能够显示5个字符,文小
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
以下声明数组和给数组赋值的语句中,正确的是()。
下列有关数据库的描述,正确的是()。
随机试题
在面向对象方法中,不属于“对象”基本特点的是()。
X线最强波长(λmax)与最短波长(λmin)的关系是
组织设计的原则包括()。
有利于录音室混响时间适当、声音扩散均匀的措施是()。
2007年1月,全国金融工作会议确定的中国农业银行的改革方向是:充分利用在县域的资金、网络和专业等方面的优势,更好地为“三农”和()服务。
对会计政策、会计估计变更和会计差错,企业中期财务报表附注应当包括的信息有()。
合理情绪疗法的主要目标中的“完美目标”是()。
()是对心理咨询员最起码的要求。
下列有关天文知识的表述,正确的是()。
WhathaspromptedthenewadministrationtoreviewtheAustralia’scitizenshiptest?
最新回复
(
0
)