首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。 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
33
问题
下面的程序运行时,单击窗体后,窗体上显示的结果是( )。
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://jikaoti.com/ti/UWS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)考生文件夹中有工程文件sjt3.vbp。在窗体上有名称为Combol的组合框,请设置该组合框的属性,使该组合框只能用于选择操作,不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断"的命令按钮。程序运行时在组合框中选中一项,如图5(a)所示,
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load() Show Text1.Text="" Text1.SetFocusEndSubPrivateSubForm_Click()
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:DimssAsStringPrivateSubText1_KeyPress(KeyAsciiAsInteger) IfChr(KeyAsc
执行语句DimX,YAsInteger后( )。
以下叙述中错误的是( )。
在窗体上画一个名称为Combo1的组合框,名称为Text1的文本框,以及名称为Command1的命令按钮,如图所示。运行程序,单击命令按钮,将文本框中被选中的文本添加到组合框中,若文本框中没有选中的文本,则将文本框中的文本全部添加到组合框中。命
在设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框:PrivateSubCommand1_Click() CD1.DialogTitle="打开文件" CD1.InitDir="C:" CD1.Filte
以下关于过程及过程参数的描述中,错误的是()。
能够产生1到50之间(含1和50)随机整数的表达式是()。
在考生文件夹下有一个数据库文件“samp3.accdb”,其中存在已经设计好的表对象“tAddr”和“tUser”。同时还有窗体对象“fEdit”和“fEuser”。请在此基础上按照以下要求补充“fEdit”窗体的设计。(1)将窗体中名称为“Lr
随机试题
在Excel2003中,若在某单元格中输入公式:5*-10,则该单元格的显示结果为_______。
同等质量下可以释放能量最多的物质是
中风之发生,病理复杂,其根本在于
A.实证B.虚证C.虚实夹杂证D.真虚假实证E.真实假虚证
按贷款的用途,房地产贷款可以划分为()。
在外部融资需求为正值的情况下,若其他条件不变,下列关于外部融资需求的销售额百分比法的表述中,不正确的是()。
秘书与领导沟通的切人点是学会()。
文稿签发前的最后一个处理环节是()。
以下选项中,属于从行为的是()
It’sanannualback-to-schoolroutine.Onemorningyouwavegoodbye,andthat(1)_____eveningyou’reburningthelate-nightoil
最新回复
(
0
)