VB编程，急求！！

来源：百度知道 编辑：UC知道 时间：2024/05/23 00:25:50
声明有15个元素的数组，数组元素为随机产生的大写字母并输出，用冒泡排序法进行排序后再次输出数组。
麻烦各位高手，做出必定加分！！

Private Sub Command1_Click()
Dim A(1 To 15) As String, i As Long, j As Long, t As String
For i = 1 To 15
Randomize
A(i) = Chr(Int((90 - 65 + 1) * Rnd + 65))
Print A(i) & Chr(32);
Next
Print Chr(10)
For i = 15 To 2 Step -1
For j = 1 To i - 1
If A(j) > A(j + 1) Then
t = A(j)
A(j) = A(j + 1)
A(j + 1) = t
End If
Next
Next
For i = 1 To 15
Print A(i) & Chr(32);
Next
Print Chr(10)
End Sub

Private Sub Command1_Click()

    Dim s(15) As String

    Dim i, j As Integer

    For i = 0 To 14

        Randomize