(34 )窗体上有一个名为 Command1 的命令按钮,并有下面的程序:
Private Sub Comand1_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=U b ound (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 i
End Sub
程序运行时,单击命令按钮后显示的是
A ) 12345
B ) 54321
C ) 01234
D ) 43210
请帮忙给出正确答案和分析,谢谢!