如何用vB程序随机产生30个不同的字母?

如何用vB程序随机产生30个不同的字母?

'以下代码产生30个区分大小写的不同字母
Private Sub Command1_Click()
Dim i As Integer, j As Integer, ich(30) As Integer, ch As String, Ach(30) As String
i = 0
Randomize
Do While i < 30
ch = Int(Rnd * 52)
For j = 1 To i
If ich(j) = ch Then Exit For
Next
If j > i Then
i = i + 1
ich(i) = ch
End If
Loop
For i = 1 To 30
If ich(i) < 26 Then
Ach(i) = chr(65 + ich(i)) '0-25为大写字母
Else
Ach(i) = chr(97 + ich(i) - 26) '26-51为小写字母
End If
Next
For i = 1 To 30
Print Ach(i) & ;
If i Mod 10 = 0 Then Print
Next
End Su

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息