随机产生15个不重复的A~Z（包括A，Z）的大写字母，存放到字符数组中，并显示整个数组的值。

Private Sub Form_click()
Dim arr(14) As String
Dim b(65 To 90) As Boolean
For i = 0 To 14
Do
x = Int(Rnd * 26) + 65
Loop While b(x)
b(x) = True
arr(i) = Chr(x)
Print arr(i); " ";
Next i
Print
End Sub

'在窗体内复制下面代码，运行即可。
Option Explicit
Dim s()

Function GetRnd(ScorceArray(), GetCounts As Long, OutArray())
Dim i, MaxNuMynubmerser, seq, MainLoop, ChosenNuMynubmerser, Mynubmers
Dim A
GetCounts = GetCounts - 1
If GetCounts < 0 Then Exit Function
Mynubmers = UBound(ScorceArray)
ReDim A(Mynubmers)
ReDim OutArray(GetCounts)
MaxNuMynubmerser = Mynubmers
For seq = 0 To MaxNuMynubmerser
A(seq) = seq
Next seq
i = 0
Randomize (Timer)
For MainLoop = MaxNuMynubmerser To LBound(ScorceArray) Step -1
ChosenNuMynubmerser = Int(MainLoop * Rnd)