Private Sub Form_Click()
Dim i As Integer
n = InputBox("请输入数据n")
ReDim a(n) As Single
For i = 1 To n
a(i) = InputBox("")
Print a(i）
Next i
Call fx(a(), n)
For i = 1 To n
Print a(i)
Next i
End Sub
Private Sub fx(a() As Single, n As Integer)
Dim i As Integer, t As Single
For i = 1 To n \ 2
t = a(i): a(i) = a(n - i + 1): a(n - i + 1) = t
Next i
End Sub
Call fx(a(), n) 这里的n出问题了 求高手看看