Private Sub Command1_Click()
D.im art(5)As Integer
F.or k=1 TO 5
arr(k)=k
Next k
prog art()
F.or k=1 To 5
Print alT(k);
Next k
E.nd sub
Sub prog(a()As Integer)
n=UBound(a)
F.or i=n To 2 step-1
F.or j=1 To n-1
if a(j)<a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
E.nd If
Next j
Next i
E.nd 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