首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click() Dim a(1To6)As Integer Dim min1%,i%,j%,n%,t%,k% a(1)=8:a(2)=6:a(3)=9:a(4
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click() Dim a(1To6)As Integer Dim min1%,i%,j%,n%,t%,k% a(1)=8:a(2)=6:a(3)=9:a(4
admin
2017-03-26
43
问题
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click()
Dim a(1To6)As Integer
Dim min1%,i%,j%,n%,t%,k%
a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:
a(6)=7
n=6
For i=1To n-1
min1=i
For j=i+1Ton
If a(j)<a(min1)Then min1=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1Ton
Printa(i)
Next i
End Sub
选项
A、9 8 7 6 3 2
B、2 3 6 7 8 9
C、9 8 7 6 3
D、2 3 6 7 8
答案
B
解析
本题考查循环程序的分析。程序主要包括两条循环语句,一条为两层循环的嵌套语句,内层循环找到当前i到n之间的最小元素的下标,退出内循环则把最小元素放到a(i)的位置,i从1变化到n-1;另外一条循环语句为输山数组中的所有元素,即把排序以后的结果输出。
转载请注明原文地址:https://kaotiyun.com/show/41Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及经在原来12optionBase1PrivateSubForm_Click()Dimxx=Array(57,-9,17,42,-31,46,11,8,6,
设有如下程序:PrivateSubsearch(a()AsVariant,ByValkeyAsVariant,index%)DimI%ForI=Lbound(a)ToUbound(A)Ifke
下列关于栈的描述中错误的是______。
属性窗口分为4个部分,这4个部分分别是______。
如果在C盘当前文件夹下已经存在名称为Sdat.dat的顺序文件,那么执行语句Open"c:/Sdat.dat"ForAppendAs#1之后,将()。
当一个工程含有多个窗体时,其中的启动窗体是______。
VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括______。
要设置窗体为固定对话框,并包含控制莱单栏和标题栏,但没有最大化和最小化控钮,设置的操作是
表达式Abs(-5)+Len("ABCDE")的值是______。
为了在运行时把“d:\pie”文件夹下的图形文件“a.jpg”装入图片框Picturel,所使用的语句为【】。
随机试题
女,65岁。5年前诊断左股骨颈骨折。近1年左髋疼痛,行走困难,X线片示左髋关节间隙变窄,股骨头变形,最佳治疗方案是()
What’sthelanguage_____inGermany?
A.食滞胃脘B.胃阴虚C.肝脾不调D.肝胃不和E.胃阳虚干呕呃逆,胃脘嘈杂,口干咽燥,舌红少苔。其证候是
肺炎喘嗽的基本病机是()
下列费用中属于夜间施工增加费的有()。
甲公司员工唐某受公司委托从乙公司订购一批空气净化机,甲公司对净化机单价未作明确限定。唐某与乙公司私下商定将净化机单价比正常售价提高200元,乙公司给唐某每台100元的回扣。商定后,唐某以甲公司名义与乙公司签订了买卖合同。下列选项中正确的是()。
老师发给甲班每人4张白纸,乙班每人3张白纸,共发白纸716张;若发给甲班每人3张白纸,乙班每人4张白纸,则共发白纸705张,问两班共有多少人?()
结合材料,回答问题:材料1联合国创建于第二次世界大战的凯歌中。1945年4月25日在旧金山召开《联合国宪章》制宪会议,6月26日参加会议的51国代表签署了《联合国宪章》,10月24日开始生效,联合国正式成立。联合国是当今世界各国政府问最大的一个国际性组
The approach we propose is a system-oriented methodology for knowledge acquisition. This orientation emphasizes ongoing document
Whatdidyoulearnabouttheman?
最新回复
(
0
)