VB編程 三個任意填的數字，按照升序或者降序排序，點擊“排序”按鈕後，就有排好序的數字。越詳細越好。

Dim n(NUM) As Double

Private Sub Command1_Click()

'按鈕1，升序

For i = 0 To NUM - 1

For j = i + 1 To NUM

If n(i) > n(j) Then

tmp = n(i)

n(i) = n(j)

n(j) = tmp

End If

Next

Next

For i = 0 To NUM

Print n(i) & " ";

Next

Print

End Sub

Private Sub Command2_Click()

'按鈕2，降序

For i = 0 To NUM - 1

For j = i + 1 To NUM

If n(i) < n(j) Then

tmp = n(i)

n(i) = n(j)

n(j) = tmp

End If

Next

Next

For i = 0 To NUM

Print n(i) & " ";

Next

Print

End Sub

Private Sub Form_Load()

For i = 0 To NUM

n(i) = Val(InputBox("輸入第" & i + 1 & "個數"))

Next

End Sub