Private Sub Command1_Click()
Dim a As String, b(6) As String
Randomize
a = ""
For i = 65 To 97
a = a & Chr(i)
Next i
For i = 0 To 5
b(i) = Mid(a, 1 + Int(Len(a) * Rnd), 1)
a = Replace(a, b(i), "")
b(i) = Asc(b(i)) - 64
Next i
Print Join(b, ",")
MsgBox Join(b, ",")
End Sub
温馨提示:答案为网友推荐,仅供参考