ネタ元 → ソートが熱いらしいので
くそっ、一個多くしてやる...
Module Module1
Sub 逆順なら交換(ByRef x As Integer, ByRef y As Integer)
If x > y Then
Dim tmp As Integer = x
x = y
y = tmp
End If
End Sub
Sub Main()
Dim ソート対象(3) As Integer
Dim rnd As Random = New Random(DateTime.Now.Millisecond)
' 対象初期化
ソート対象(0) = rnd.Next(1, 100)
ソート対象(1) = rnd.Next(1, 100)
ソート対象(2) = rnd.Next(1, 100)
ソート対象(3) = rnd.Next(1, 100)
'表示
For Each 値 In ソート対象
Console.Write("{0} ", 値)
Next
Console.WriteLine(vbCrLf & "------------------")
'ソート
逆順なら交換(ソート対象(0), ソート対象(1))
逆順なら交換(ソート対象(1), ソート対象(2))
逆順なら交換(ソート対象(2), ソート対象(3))
逆順なら交換(ソート対象(0), ソート対象(1))
逆順なら交換(ソート対象(1), ソート対象(2))
逆順なら交換(ソート対象(0), ソート対象(1))
'表示
For Each 値 In ソート対象
Console.Write("{0} ", 値)
Next
Console.WriteLine(vbCrLf & "------------------")
Console.ReadKey()
End Sub
End Module
※ﾄﾃｰﾓ大きなヒントになってんだよ♪ > のんちゃん