首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click( ) Dim a(1 To 6)As Integer Dim min1%,i%,j%,n%,t%,k% a(1)=8:a(2)=6
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click( ) Dim a(1 To 6)As Integer Dim min1%,i%,j%,n%,t%,k% a(1)=8:a(2)=6
admin
2020-07-22
68
问题
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click( )
Dim a(1 To 6)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=1 To n-1
min 1=i
Forj=i+1 To n
If a(j)<a(min1)Then mini=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1 To n
Print a(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从l变化到n-1;另外一条循环语句为输出数组中的所有元素,即把排序以后的结果输出。
转载请注明原文地址:https://kaotiyun.com/show/ajHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体模块的声明部分声明变量时,不能使用的关键字是
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load() Show Text1.Text="" Text1.SetFocusEndSubPrivateSubForm_Click()
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
对于含有多个窗体的工程而言,以下叙述中正确的是
以下关于文件的叙述中,错误的是()。
在窗体上有一个文本框Textl,Text属性值为空,然后编写如下事件过程:PrivateSubTextlKeyPress(KeyAsciiAsInteger)DimstrAsString,nAsInteger
下列关于窗体的描述中,错误的是()。
程序运行时,要清除图片框Picture1中的图像,应使用语句()。
在考生文件夹下有一个数据库文件“samp3.accdb”,其中存在已经设计好的表对象“tEmployee”和查询对象“qEmployee”,同时还设计出以“qEmployee”为数据源的报表对象“rEmployee”。请在此基础上按照以下要求补充报表设计。
随机试题
斯密和李嘉图是()
有关膈的说法哪个是错误的
预算材料数量内应包含的数量有材料的()。
采暖系统中把热水输送给散热器的是( )。
根据《劳动合同法》的规定,我国实行劳动者每日工作8小时、每周工作40小时的工时制度是综合计算工时制。()。
经济学家与考古学家就货币的问题展开了争论。经济学家:在所有使用货币的文明中,无论货币以何种形式存在,它都是因为其稀缺性而产生价值的。考古学家:在索罗斯岛上,人们用贝壳作货币,可是该岛上贝壳遍布海滩,随手就能拾到啊。下面哪项能对两位专家论述之间的矛盾作出解
BankruptcyratesintheU.S.havebeengrowingformorethantwodecadesdespitegenerallyrisinglevelsofpersonalincome.The
WheredidTomgettheideaofbecomingabusinessman?
Thecompanypresidentannouncedhe______nextyear.
Wemightbelivingforlongerthanever,butwearesick.About95percentofpeoplehaveatleastonehealthcomplaint,witha
最新回复
(
0
)