程序代码：

Private Sub command1_click()
Dim a(1 To 10) As Integer
a(1) = 1
Print a(1)

 For j = 2 To 10

 a(j) = a(j - 1) + 1

 Print a(j)

 Next j
For i = 1 To 10
For j = i To 个10
If a(i) < a(j) Then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub