Question

随机产生15个不重复的A~Z之间的大写字母,存放在字符数组中

注意是字符数组啊

Answer 1

Private Sub Command1_Click()
Dim i%, j%, s$(1 To 26), t$
For i = 1 To 26
s(i) = Chr(i + 64)
Next
Randomize
For i = 1 To 15
j = Int(Rnd * (26 - i + 1) + i)
t = s(i): s(i) = s(j): s(j) = t
Print s(i);
Next
End Sub