配列を反転させる。
Array.Reverse(配列名)
ソース
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim hairetu() As String = {6, 5, 4, 3, 2, 1, 0}
Array.Reverse(hairetu)
For i = 0 To 6
MsgBox(hairetu(i))
Next
End Sub
End Class
要素の並び替えではないので後ろから表示されます。
降順にしたいときはソート処理をしてから使えばいけます。
ソース
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim hairetu() As String = {6, 4, 9, 2, 1, 0, 8}
Array.Sort(hairetu)
For i = 0 To 6
MsgBox(hairetu(i))
Next
MsgBox(“反転開始”)
Array.Reverse(hairetu)
For i = 0 To 6
MsgBox(hairetu(i))
Next
End Sub
End Class