首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序代码: Option Base 1 Private Sub Form_Click() Dim x,t Dim i As Integer Dim n As Integer x=Array(一8,20
编写如下程序代码: Option Base 1 Private Sub Form_Click() Dim x,t Dim i As Integer Dim n As Integer x=Array(一8,20
admin
2020-07-22
41
问题
编写如下程序代码:
Option Base 1
Private 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
解析
在程序开始之前,使用OptionBase l语句声明数组下标从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/a5Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
组合框是文本框和()特性的组合。
下面关于算法的叙述中,正确的是()。
设变量x的值是845,则下面语句的输出是Printx\100+(xMod100)\10+xMod10
A、选择B、投影C、自然连接D、并A由关系R到关系S为一元运算,排除C和D。关系S是关系R的一部分,是通过选择之后的结果,因此选A。
下列关于滚动条的叙述中,错误的是
己知数组Dima(1To10)AsInteger,则下面正确调用GetValue函数的是()。PrivateFunctionGetValue(a()AsInteger)AsIntegerFori=1To10
在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为( )。
能够将组合框Combo1中最后一个数据项删除的语句为( )。
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是()。
线性表的长度为n。在最坏情况下,比较次数为n-1的算法是()。
随机试题
患者,女,15岁,恒牙殆,磨牙中性关系,上下牙弓Ⅱ度拥挤,口腔卫生差,牙石++,低角,深覆牙合Ⅱ°,深覆盖Ⅱ°。
角膜上皮层发育来源于
患者素有眩晕,性情急躁,时见肢端和面颊发麻,喜食肥甘,嗜烟酒,近两年来症状明显加重,就诊前与人口角,眩晕随之加剧,继而昏仆倒地,不省人事,牙关紧闭,面赤无汗,双手固握,舌淡,苔白腻,脉弦滑而数。诊断为()
集体之间土地所有权的界限所遵循的原则是()。
人员任用的程序包括()。
简单会计分录指只涉及一个账户借方和另一个账户贷方的会计分录,即一借多贷的会计分录。()
互联网的应用使采购电子化得以实现。
在VisualFoxPro中,过程的返回语句是
A、Theyshouldputthemeetingtoanend.B、Shewouldliketodiscussanotheritem.C、Shewantstodiscusstheissueagainlater.
TheWorldHealthOrganizationsayspeopleneedmoreinformationabouthowto【B1】______usetraditionalmedicines.TheW.H.O.now
最新回复
(
0
)