注意是字符数组啊
第1个回答 推荐于2016-07-23
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本回答被提问者采纳
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本回答被提问者采纳