(｡･艸･)

Module sort_test
    Sub main()
        Dim x As Integer


        Dim test(2) As Integer
        test(0) = 80
        test(1) = 7
        test(2) = 100


        sort_x(test(2), test(1))
        sort_x(test(2), test(0))
        sort_x(test(1), test(2))
        sort_x(test(1), test(0))
        sort_x(test(0), test(2))
        sort_x(test(0), test(1))

        For Each x In test
            Console.WriteLine(x)
        Next

    End Sub

    Sub sort_x(ByRef x As Integer, ByRef y As Integer)
        If x > y Then
            Dim test As Integer = x
            x = y
            y = test
        End If
    End Sub
End Module

コード挿入以外にも。



長文になる場合、こうやったほうが見やすいんじゃないかと。

明日は

わんくま同盟 東京勉強会 #22





だよ～☆

 Sub Main()
        Dim a As Integer
        Dim sort_test() As Integer = {20, 60, 80}
        Console.WriteLine(sort_test(0))
        Console.WriteLine(sort_test(1))
        Console.WriteLine(sort_test(2))
        Console.WriteLine("普通に表示")

        '昇順
        If sort_test(0) < sort_test(1) Then
            If sort_test(1) < sort_test(2) Then
                If sort_test(0) < sort_test(2) Then
                    Console.WriteLine(sort_test(2))
                    Console.WriteLine(sort_test(1))
                    Console.WriteLine(sort_test(0))
                Else
                    Console.WriteLine(sort_test(0))
                    Console.WriteLine(sort_test(1))
                    Console.WriteLine(sort_test(2))
                End If
            End If
        End If
        For Each a In sort_test
        Next
    End Sub