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

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

admin2020-02-27  62
问题 若窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click()
　　Dim arr(5)As Integer
　　For k＝1 To 5
　　　　arr(k)＝k
　　Next k
　　prog arr()
　　For k＝1 To 5
　　　　Print arr(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。Ubound函数返回数组可用的最大下标，过程prog的功能是遍历数组对数组中的元素进行排序，由条件a(j)
转载请注明原文地址:https://www.kaotiyun.com/show/xjTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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