VB,随机产生8个不重复的A~Z

来源：百度知道 编辑：UC知道 时间：2024/09/28 09:54:39
随机产生8个不重复的A~Z（包括A和Z）的大写字母，并显示结果。
【提示】
（1）要产生A~Z的字母，可通过调用函数Chr()、Int()、Rnd()以及找出字母对应的Ascii码值的关系获得，即C=Chr(Int(rnd*26+65))。
（2）要产生不重复的字母，则每产生一个，在数组中查找已产生的字母。若找到，刚产生的字母作废，重新产生；找不到，则产生的字母放入数组中，下标加1。建议使用Do while 循环结构。

Private Sub Form_Click()
Dim I, J, N As Integer
Dim C(8) As String
Dim Flag As Boolean
Form1.Cls
For I = 1 To 8
L1:
Randomize
N = (Int(Rnd * 26) + 65)
If N Mod 2 = 0 Then Flag = True Else Flag = False
If Flag Then N = N + 32
C(I) = Chr(N)
For J = 1 To I - 1
If C(J) = C(I) Then GoTo L1
Next J
Print C(I);
Next I
End Sub

书上有啊，都写了一大半了