Question

随机产生8个不重复的A~Z（包括A和Z）的大写字母，并显示结果。

（1）要产生A~Z的字母，可通过调用函数Chr()、Int()、Rnd()以及找出字母对应的Ascii码值的关系获得，即C=Chr(Int(rnd*26+65))。
（2）要产生不重复的字母，则每产生一个，在数组中查找已产生的字母。若找到，刚产生的字母作废，重新产生；找不到，则产生的字母放入数组中，下标加1。建议使用Do while 循环结构。

Answer 1

Private Sub Command1_Click()
Dim a As Integer, myTempStr As String, myTempChr As String, myOutPut As String
For a = 65 To 90
myTempStr = myTempStr & Chr(a)
Next
Randomize (Timer)
For a = 1 To 8
myTempChr = Mid(myTempStr, Int(Rnd * (27 - a) + 1), 1)
myOutPut = myOutPut & myTempChr
myTempStr = Replace(myTempStr, myTempChr, "")
Next
Print myOutPut
End Sub