VB编程,随机产生20个不重复的A~Z之间的英文字母,按字母顺序输出,每行6个.

Private Sub Form_Load()
Dim a(1 To 20)
Randomize Timer
For i = 1 To 20
a(i) = Int(Rnd() * 26 + 1)'产生20个1-26的随机数
Next

For i = 1 To 20'冒泡排序
For j = i To 20
If a(j) < a(i) Then
b = a(i)
a(i) = a(j)
a(j) = b
End If
Next j
Next i

For i = 1 To 20'输出
Print Chr(a(i) + 65),'转化为字母的ascii，然后转化为字符输出，用；号可以紧挨着输出
If i Mod 6 = 0 Then Print'每6次输出一个换行
Next
End Sub

Private Sub Command1_Click()
Dim Zf(20) As String, Jh As String
Randomize
Zf(1) = Chr(Int(26 * Rnd) + Asc("A"))
For i = 2 To 20
CF: Zf(i) = Chr(Int(26 * Rnd) + Asc("A"))
For j = 1 To i - 1
If Zf(i) = Zf(j) Then GoTo CF
Next
Next

For i = 1 To 19
For j = i + 1 To 20
If Zf(i) > Zf(j) Then
Jh = Zf(i)
Zf(i) = Zf(j)
Zf(j) = Jh
End If
Next
Next
Print: Print "结果为："
For i = 1 To 20
Print Zf(i);
If i Mod 6 = 0 Then Print
Next

End Sub