窗体上有一个名为Commandl的命令按钮,并有下面的程序: Private Sub Commandl_Click() Dim alT(5)As Integer For k=l T0 5 arr(k)=k Next

admin2020-02-27  46

问题 窗体上有一个名为Commandl的命令按钮,并有下面的程序:
    Private Sub Commandl_Click()
    Dim alT(5)As Integer
    For k=l T0 5
    arr(k)=k
    Next k
    prog aft()
    F0r k=l To 5
    Print art(k):    Next k
End Sub
Sub prog(a()As Integer)
    n=UBound(a)
    For i=n To 2 step-1
           For j=l 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/EWx0FFFM
0

最新回复(0)