2. 计算机
  3. 窗体上有一个名为Commandl的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim art(5)As Integer For k=1 TO 5 arr(k)=k Next k prog art() For k=1

窗体上有一个名为Commandl的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim art(5)As Integer For k=1 TO 5 arr(k)=k Next k prog art() For k=1

admin2010-04-10  59
问题 窗体上有一个名为Commandl的命令按钮，并有下面的程序：
Private Sub Command1_Click()
Dim art(5)As Integer
For k=1 TO 5
arr(k)=k
Next k
prog art()
For k=1 To 5
Print alT(k)；
Next k
End sub
Sub prog(a()As Integer)
n=UBound(a)
For i=n To 2 step-1
For j=1 To n-1
if a(j)t=a(j)：a(j)=a(j+1)：a(j+1)=t
End If
Next j
Next i
End sub
程序运行时，单击命令按钮后显示的是
选项 A、1 2 3 4 5
B、5 4 3 2 1
C、0 1 2 3 4
D、4 3 2 1 0
答案B
解析 在第一个循环中，对数组进行赋值分别为1、2、3、4、5；调用子程序prog()，该过程是按从大到小进行排列，在第二个循环中，将数组依次输出，所以正确的答案为B)。
转载请注明原文地址:https://kaotiyun.com/show/pQmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)