Question

vb编写一个过程Reverse, 实现将一个长度为10的数组逆序存储。

它的代码

Answer 1

Private Sub Command8_Click()
Dim b(0 To 10) As Integer, mp As Integer, i As Integer, x As Integer
Randomize
For i = 0 To 10
b(i) = Int(Rnd * (100 - 1 + 1) + 1)
Print b(i)
Next
Print
For i = 0 To UBound(b)
For x = i + 1 To UBound(b)
If b(x) > b(i) Then
mp = b(i)
b(i) = b(x)
b(x) = mp
End If
Next
Print b(i)
Next

End Sub

追问

它是用reverse作函数名做函数名的子过程

它是用reverse作函数名做函数名的子过程