首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click() Dim a(1 To 6)As Integer Dim mini%,i%,j%,n%,t%,k% a(1)=8
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click() Dim a(1 To 6)As Integer Dim mini%,i%,j%,n%,t%,k% a(1)=8
admin
2018-09-29
21
问题
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click()
Dim a(1 To 6)As Integer
Dim mini%,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
min1=i
Forj=i+1 To n
Ifa(j)<a(min1)Then mini=j
Nextj
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1 To n
Print a(i)
Nexti
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/rhFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个通用对话框,其名称为CommonDialog1,则下列与CommonDialog1.ShowOpen方法等效的语句是( )。
有下面的程序段:x=InputBox("字符串","输入","请输入")Printx如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键,则输出内容是
下列叙述中正确的是
下面关于组合框Cb1的叙述中正确的是
把数学表达式表示为正确的VB表达式应该是( )。
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。下列说法错误的是()。
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是( )。
设程序中有以下语句:MsgBox"Visual",,"Basic","等级考试",2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
(1)在名称Form1的窗体上画一个名称为check1的复选框数组(Index属性从0开始),含三个复选框,其标题分别为“语文”、“数学”、“体育”,利用属性窗口设置适当的属性,使“语文”未选,“数学”被选中,“体育”为灰色,再把窗体的标题设置为“选课”,
窗体上有一个如右图所示的图形控件,控件中显示了如图所示的文字,可以判断这个图形控件( )。
随机试题
Thecarcrashedintothetrain,andthedriverwaskilled______thespot.
一位18岁的男患者,入院后常卧于床并侧耳倾听,说屋外有人说自己的坏话,为此常愤愤不平。并常向窗外说:“我要和你辩论,我太冤枉了”。该患者最适宜做如下哪种检查
企业应当自月份或者季度终了之日起()日内,向税务机关报送预缴企业所得税纳税申报表,预缴税款。
常规高空气象探测资料。观测资料的时次根据所调查常规高空气象探测站的实际探测时次确定,一般应至少调查()(北京时间08点)的距地面1500m高度以下的高空气象探测资料。
读“某地区等高线分布图”,完成下列问题。图中为____________地形,判断理由是____________。
评定学生成绩的方法除百分制记分法外,还有一类是()。
下列关于社会主义法治理论主要内涵的说法,正确的有
市内一家珠宝店在大年初一营业后,竟然在夜间打烊后失窃了大量珠宝。店方紧急报案,警方发现作案的手法干脆利落,因而怀疑在三名店员中有人监守自盗,于是对他们进行了逐一询问。店员甲说:“我昨天下班后,吃过晚饭,见时间尚早,就一个人去看了场电影,大概在12点才回家睡
Itwilltakeustwentyminutestogettotherailwaystation,______trafficdelays.
Whycan’tthemangotothemovie?
最新回复
(
0
)