【求助】随机产生10个大写字母，并进行从小到大的排序。将随机产生的大写字母放在Label1中显示

随机产生10个大写字母，并进行从小到大的排序。将随机产生的大写字母放在Label1中显示

Private Sub Command1_Click()

Dim a(10) As String * 1

Randomize

Call Form_Load

For i = 1 To 10

a(i) = Chr(65 + Int(Rnd * 26))

Label1.Caption = Label1.Caption & a(i) & " "

Next i

For i = 1 To 9

For j = 1 To 10 - i

If a(j) > a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t

End If

Next j

Next i

For i = 1 To 10

Label2.Caption = Label2.Caption & a(i) & " "

Next i

End Sub

Private Sub Form_Load()

Label1.Caption = ""

Label2.Caption = ""

Label1.FontSize = 18

Label2.FontSize = 18

End Sub