Private Sub Command1_Click()Dim a(20) As IntegerFor i = 1 To 20
Randomize
a(i) = Int(Rnd * 90) + 10Next iFor i = 1 To 19
For j = i + 1 To 20
If a(i) > a(j) Then
r = a(i)
a(i) = a(j)
a(j) = r
End If
Next jNext iFor i = 1 To 20
Print a(i)...
Private Sub Form_Click()Dim a(20) As IntegerPrint "排序前"For i = 1 To 20
Randomize
a(i) = Int(Rnd * 90) + 10
Print a(i);Next iPrintFor i = 1 To 19
For j = i + ...