' プログラム設計: Visual Basic を用いてプログラミング: 単純ソート
'
'    formにcommand buttonを貼り付け
'    command button ダブルクリックで開いたコードウインドウに入力

Private Sub Command1_Click()

    Dim X(10)
    Dim I, J, N, W

    N = 5
    X(1) = 40
    X(2) = 20
    X(3) = 50
    X(4) = 10
    X(5) = 30

    For I = 1 To N - 1
        For J = I + 1 To N
        
            If X(I) > X(J) Then
                W = X(I)
                X(I) = X(J)
                X(J) = W
            End If
        
        Next J
    Next I
    
    For I = 1 To N
        Print I, "番目の要素 - ", X(I)
    Next I

End Sub