用VB編寫壹個程序， 輸入a、b、c三個數，要求按由大到小的順序顯示

Dim A(1 To 3), I, J, X As Integer

For I = 1 To 3

A(I) = Val(InputBox("請輸入數字"))

Next I

For I = 1 To 2

For J = I + 1 To 3

If A(I) < A(J) Then

X = A(I)

A(I) = A(J)

A(J) = X

End If

Next J

Next I

For I = 1 To 3

Print A(I)

Next I

End Sub