柠檬试题库
search
首页 计算机 公务员 驾照 关于

若窗体上有一个名为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 kEnd SubSub prog(a()As Integer) n=UBound(a) For i=n To 2 step-1 For j=1 To n-1 if a(j)<a(j+1)Then t=a(j):a(j)=a(j+1):a(j+1)=t End If Next j Next iEnd 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
热度🔥691
参考答案:B
解析:

【解析】程序对数组元素赋初值为1、2、3、4、5。Ubound函数返回数组可用的最大下标,过程prog的功能是遍历数组对数组中的元素进行排序,由条件a(j)<a(j+1)可知程序是将数组按从大到小排序。当用数组作为过程的参数时,使用的是"传地址"方式,因此程序输出的是排序后的数组元素值,即5、4、3、2、1。
复制题目向AI提问