vb中输出反序代码

Question

如题所述

Answer 1

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

Answer 2

StrReverse 函数 返回一字符串，其中字符的顺序与指定的字符串中的顺序相反。