Private Sub Command1_Click()
Dim a(1 To 10)
For i = 1 To 10
a(i) = Val(InputBox("a(" & i & ")="))
Print a(i);
Next i
Print
For i = 1 To 9
For j = 10 To i + 1 Step -1
If a(i) < a(j) Then
b = a(i): a(i) = a(j): a(j) = b
End If
Next j, i
For i = 1 To 10
Print a(i);
Next i
Print
End Sub
Private Sub Command1_Click()Dim a(1 To 10)For i = 1 To 10 a(i) = Val(InputBox("a(" & i & ")=")) Print a(i);Next iPrintFor i = 1 To 9 For j = 10 To i + 1 Step -1 If a(i) < a(j) Then