首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click() Dim a(1 To 6)As Integer Dim minl%,i%,j%,n%,t%,k% a(1)=8
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click() Dim a(1 To 6)As Integer Dim minl%,i%,j%,n%,t%,k% a(1)=8
admin
2016-03-21
52
问题
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click()
Dim a(1 To 6)As Integer
Dim minl%,i%,j%,n%,t%,k%
a(1)=8:(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7
n=6
For i=1 To n-1
min1=i
For i=i+1 To n
Ifa(j)
Nextj
t=a(i):a(i)=a(minl):a(minl)=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从1变化到n.1;另外一条循环语句为输出数组中的所有元素,即把排序以后的结果输出。
转载请注明原文地址:https://www.kaotiyun.com/show/ArLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
3在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1),然后编写如下事件过程:PrivateSubCommandl_Click()x=Val(Text1.Text)SelectCaseX
设有如下通用过程:PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text1的文本
在窗体上画一个命令按钮,名称为Commandl,然后编写如下代码:OptionBase0PrivateSubCommandl_Click()DimA(4)AsInteger,B(4)AsIntegerFo
在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后,在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Labe1中显示所选中的项目,如图所示。请在空白处填入适当的内容,将程序补充完整。PrivateSubForm
在窗体上添加一个文本框Text1,然后编写下列Load事件过程,则程序运行结果是()。PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFork=1To5t=t*kNextkT
若要将一个窗体从内存中清除,应该使用的方法是()。
在窗体上画一个名称为List1的列表框,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是
下列可作为VisualBasic变量名的是
要将窗体Form1标题设为“学习VB”,以下能正确实现该功能的语句为
软件开发的结构化生命周期方法将软件生命周期划分成
随机试题
个体在特定情境下由于练习或反复经验而产生的行为或行为潜能的较持久的变化是()。
既抑制原核生物又抑制真核生物蛋白质生物合成的抗生素是
阴户是指:
A.蒲黄B.地榆C.大蓟D.侧柏叶E.白及治疗下焦血热所致的出血,应选用的药物是
财政部门于2009年4月派出检查组对甲公司的会计工作进行检查,检查中了解到以下情况: 1.2009年2月,甲公司购买5台计算机,会计人员刘某在审核其发票时,发现发票金额栏中的数字有更改现象,经查阅相关买卖合同单据,确认更改后的金额数字是正确的,于是要
面向对象方法中,继承是指
WherewillRaphaelgothismorning?
TheLibrary
Educationisanareaofsociallifeinwhichinformationtechnologyischangingthewaywecommunicate.Today’scollegestudents
Noteverybodyreadsthe【B1】_____newspaper.Peoplewhodonotreadnewspapersaresometimes【B2】_____asnon-readers.Earlyresear
最新回复
(
0
)