首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序代码: Option Base1 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=UBoun
编写如下程序代码: Option Base1 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=UBoun
admin
2018-06-20
36
问题
编写如下程序代码:
Option Base1
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 j=1To n/2
!=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 Base1语句声明数组下标从1开始。在Form_Click事件过程中定义了默认数组x,然后使用Amy函数给数组元素赋值,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/ciGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load()Textl.Text="":Textl.SetFocusEndSubPrivateSubFor
窗体上有一个名称为commandl的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:PrivateSub
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommandl_Click()Dima(10)AsInteger,iAsIntegerR
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandlClick()a$=InputBox(”请输入一个二进制数”):n=Len(a$)Fori=1Ton
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)DimCA
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=””:strL=Len
随机试题
休克时正确的补液原则是
患者,女,35岁。间断腹痛、腹泻5年。发作时大便3~5次/天,带黏液,无脓血,便后腹痛缓解,受凉及紧张后症状加重,无发热,抗生素治疗无效,发病以来体重无明显变化。粪便隐血试验阴性。为确定诊断,首选的检查是
特发性血小板减少紫癜治疗首选
甲想与妻子乙离婚,但乙一直不同意。甲便产生杀乙的念头,但苦于没有机会。一天,甲与乙约定上山打猎,甲在出发前一边检查猎枪一边与乙交谈,不经意地将枪口朝向了乙,正好枪支走火击中乙致其死亡。关于甲的主观心态的分析,下列哪一选项是正确的?()
设计文件与有关资料管理的内容包括()。
根据事故责任判定的基本原则中,重大事故由()调查判定,报铁道部审查批复。
在系统效率SE和寿命周期LCC之间进行权衡时,可采用的有效手段是( )。
甲为一有限责任公司的小股东,不参与公司经营管理。根据《公司法》规定,下列文件中,甲有权查阅和复制有()。
复代理发生法律效力的条件有()。
英文缩写ISP指的是___________。
最新回复
(
0
)