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

admin2018-12-20  29

问题 若窗体上有一个名为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://jikaoti.com/ti/QAm0FFFM
0

最新回复(0)