vb反向输出？

已经完成的代码如下：

Sub ReverseDigit()

Dim number As Integer, digit As Integer

number = Val(InputBox("请输入一个非负整数"))

If (number <0) Then

Debug.Print number"不是非负整数，请输入非负整数"

Exit Sub

End If

Debug.Print number"早巧芹的逆宽手序数为:"

Do

digit = number Mod 10 '（陆毕1）

number = number \ 10 '（2）

Debug.Print Format(digit, "#")

Loop While (number >0) '（3）

Debug.Print

End Sub

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim a() As Integer

n = InputBox("请输差告入数的个数")

ReDim a(n)

For i = 1 To n

a(i) = InputBox("请输入第" &i &"个纯或数")

Print a(i)

Next i

Sub sort(a() As Integer, n As Integer)

For i = 1 To n / 2

x = a(i)

a(i) = a(n - i + 1)

a(n - i + 1) = x

Next i

For i = 1 To n

Print a(i)

Next

End Sub

你所说的反序是从大到小，还是把数组元素顺序倒过来？上以上程序满足后者

从大做庆伍到小这样

Sub sort(a() As Integer, n As Integer)

Dim i As Integer, j As Integer, temp As Integer

For i = 1 To n - 1

k = i

For j = i + 1 To n

If a(j) >a(k) Then k = j

Next j

temp = a(k): a(k) = a(i): a(i) = temp

Next i

For i = 1 To n

Print a(i)

Next

End Sub

---