首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序代码: Option Base 1 Privzte Sub Form_Click() Dim x.t Dim i As Integer Dim n As Integer x=Array(-8,20
编写如下程序代码: Option Base 1 Privzte Sub Form_Click() Dim x.t Dim i As Integer Dim n As Integer x=Array(-8,20
admin
2020-02-27
76
问题
编写如下程序代码:
Option Base 1
Privzte Sub Form_Click()
Dim x.t
Dim i As Integer
Dim n As Integer
x=Array(-8,20,15,10,-30,13,17)
n=UBound(x)
For i=1 To n/2
t=x(i)
x(i)=x(n-i+1)
x(n-i+1)=t
Next i
Print x(n)
End Sub
当程序运行时,单击窗体产生的输出结果为( )。
选项
A、20
B、17
C、10
D、-8
答案
D
解析
在程序开始之前,使用Option Base 1语句声明数组下标从1开始。在Form_click事件过程中定义了默认数组x,然后使用Array函数给数组元素赋值,UBound函数可以获得数组下标的上限值,然后赋值给变量n,n=7。在For循环中变量i的初始值为1终止值为n/2,For循环体语句的功能是对数组首尾两个数进行互换,循环结束后数组中的元素依次为(17,13,-30,10,15,20,-8),故最后输出x(n)的值为数组最后一个元素的值,D选项正确。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/bDTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
关于菜单设计,下列叙述中错误的是()。
(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3.119所示。要求:①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;②请编写适当的程序完成以下功能:在Text1中输入40(
执行语句DimX,YAsInteger后,()。
以下过程的功能是从数组中寻找最大值:PrivateSubFindMax(a()AsInteger,ByRefMaxAsInteger) DimsAsInteger,fAsInteger DimiAsInteger
在学校每间宿舍住1到6名学生,每个学生只在一间宿舍居住,则实体宿舍与实体学生间的联系是()。
设变量x的值是845,则下面语句的输出是()。sPrintx\100+(xMod100)\10+xMod10
如果要在语句:a=Array(1,2,3,4,5)的前面声明变量a,则正确的声明是()。
已知二叉树后序遍历序列是CDABE,中序遍历序列是CADEB,它的前序遍历序列是()。
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
随机试题
某家电销售企业为增值税一般纳税人。2015年6月销售H型空调80台,每台含税价款2925元;采取“以旧换新”方式销售同型号空调20台,每台旧空调作价585元,实际每台收取款项2340元。根据增值税法律制度的规定,该企业当月上述业务增值税销项税额为(
中国自古是农耕国家,在农耕社会,农业经济收益周期较长,而且大自然往往具有不确定性,因此长年与大自然打交道的中国人就养成了________和勤俭节约的良好品质。“细水长流,吃穿不愁”的文化观念,使我们习惯于平常________,将省下或富裕的财富储蓄起来,为
地下水渐变渗流,过流断面上各点的渗透速度按()。
根据《城乡规划法》的规定,()的组织编制机关,应当组织有关部门和专家定期对规划实施情况进行评估,并采取论证会、听证会或者其他方式征求公众意见。
甲、乙、丙、丁共同设立A有限责任公司,丙拟提起解散公司诉讼。根据公司法律制度的规定,丙拟提出的下列理由中,人民法院应予受理的是()。
因为味觉的感受器味蕾位于舌面和上颚等处,所以它的适宜刺激必须是()。
A、 B、 C、 D、 C内部图形的顺时针旋转和左右移动。
根据《中华人民共和国刑法》第81条的规定,被判处有期徒刑的犯罪分子,执行原判刑期( )以上,被判处无期徒刑的犯罪分子,实际执行( )年以上,可以适用假释。
在数据处理中,其处理的最小单位是()。
Justhowmuchdopeopleknowaboutkeepingtheirhomessafefromburglary?Surprisingly,manyofusmakeassumptionsabouthome
最新回复
(
0
)