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

admin2020-02-27  18

问题 窗体上有一个名为Command1的命令按钮,并有下面的程序:
    Private Sub Command1_Click()
    Dim arr(5)As Integer
    For k=I To 5
    art(k)=k
    Next k
    prog art()
    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 i=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。Llbound函数返回数组可用的最大下标,过程prog的功能是遍历数组对数组中的元素进行排序,由条件a(j)
转载请注明原文地址:https://jikaoti.com/ti/zmx0FFFM
0

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