首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Form_Click() Dim a a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) n = InputBox("请输入一个小于10的正整数") i
编写如下程序: Private Sub Form_Click() Dim a a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) n = InputBox("请输入一个小于10的正整数") i
admin
2015-10-23
45
问题
编写如下程序:
Private Sub Form_Click()
Dim a
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
n = InputBox("请输入一个小于10的正整数")
i = UBound(a)
For k = n To (i - n) / 2 + n
x = a(k)
a(k) = a(i)
a(i) = x
i = i - 1
Next k
For k = 0 To UBound(a)
Print a(k);
Next k
End Sub
程序运行后,单击窗体,并输入4,则输出结果是
选项
A、1 2 3 4 5 6 7 8 9 10
B、10 9 8 7 6 5 4 3 2 1
C、1 2 3 4 10 9 8 7 6 5
D、1 2 3 4 5 10 9 8 7 6
答案
C
解析
程序意思是将以从输入的数值为开始下标,以数组的最大下标为结束下标,以这两个下标的均值为中心,对调两个下标之间的数组元素值。输入4,以下标为4的数组元素开始,以下标为9的数组元素结束,a(4)和a(9),a(5)和a(8),a(6)和a(7)对调元素值,得到数组a为(1, 2, 3, 4, 10, 9, 8, 7, 6, 5),故选择C项。
转载请注明原文地址:https://kaotiyun.com/show/HPLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOutputAs#1Fori=1T
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:DimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后输写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7z=0Text1.Text="
要将Form2作为无模式对话框打开,且随窗体Form3最小化而最小化,随Form3关闭而关闭,相应的Show语句为______。
程序运行后,利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容,将程序补充完整。PtivateSubForm_load()Dima(1T05)AsInteger,n=5a(1)=20:a(2)=25:a(3)=10:
关于VisualBasic"方法"的概念错误的是
以下关于焦点的叙述中,错误的是()。
设有如下语句:Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码的叙述中,错误的是()。
下面程序运行后,输出的结果是Dimarr(3,3)Forj=1To3Fork=1To3Arr(j,k)=(j-1)*3+kNextkNextjForj=2To3Forj=2To
设在工程中定义了下列类型:TypeStutypeinoAsIntegerstrnameAsString*20strsexAsString*1smarkAsSingleEndType在窗体上正确使用这个类型的是下列哪个操作(
随机试题
Myfatheroftenworksveryhard:Andhehas【C1】______toseeafilm.HereI’lltellyou【C2】______abouthim.Oneafternoon,whe
下列药物中,具有杀虫,疗癣功效的药物是
干燥保藏食品需将食品的水分降至何种程度
有利于防水、防潮,并能调整地基土的不均匀沉降,适用于地基土承载力较低的基础是()。
背景资料:某工贸集团决定新建一机械制造厂,通过招标方式与市建工集团安装公司签订了工程施工合同。因该安装公司没有能力完成土建工程施工,经业主同意,将基础工程、屋面工程和装修工程分包给了市建工集团星鼎公司。开工日期为2016年5月18日,合同工期67天。施工
在限制明星天价片酬,影视内容生产、采购成本得到有效_________所引发的连锁反应中,平台虽然是受益匪浅的一方,但绝不是唯一的获利者,_________明星本身而言,平台的内容成本控制迫使天价演员走下神坛,未成名演员_________,新人效应逐渐明显。
Illiteracymaybeconsideredmoreasanabstractconceptthanacondition.WhenafamousEnglishwriterusedthe(1)_____overt
(46)Theanswerdependsonwhatkindofsystemisultimatelyadopted.(47)Thefirstisaspecial-purposelanesystem,inwhichcer
WhatmemorandumdidPresidentWilliamJ.Clintonissue?
Theindustrialsocietieshavebeenextremelyproductiveduringthelasttwocenturies.Theeconomicadvancehasbeen【C1】______
最新回复
(
0
)