VB从A开始生成20个英语大写字母RT

Question

VB 从A开始生成20个英语大写字母
RT

Answer 1

因为你的要求不太明了,所以分了两种情况：
1）以下是从A到T生成20个连续的大写字母.
Private Sub Command1_Click()
Dim a(20) As Integer
For i = 65 To 84
Print Chr(i);
Next i
End Sub
2)以下是从A开始随机生成20个大写字母
Private Sub Command1_Click()
Dim a(20) As Integer
Print "A";
For i = 1 To 19
Randomize
n = Int(Rnd * 26) + 65
Print Chr(n);
Next i
End Sub
如果不是你要的效果,