随机生成100个大写英文字母,排成10×10的方阵,输出.统计其中每个字母出现的次数

Question

随机生成100个大写英文字母,排成10×10的方阵,输出.统计其中每个字母出现的次数

Answer 1

Dim Ar(26) As Integer
Dim A(100) As Integer
Me.cls
AutoRedraw = True
ForeColor = vbRed
Print "生成10X10随机大写字母矩阵";
For i = 0 To 99
n = Int(Rnd * 10000) Mod 26
Ar(n) = Ar(n) + 1
A(i) = n + Asc("A")
If i Mod 10 = 0 Then Print vbCrLf; i / 10 + 1; Space(4 - Len(Str(i / 10 + 1)));
Print Chr(A(i));
Next
ForeColor = vbBlue
Print vbCrLf; vbCrLf; "统计";
For i = 0 To 25
If i Mod 5 = 0 Then Print vbCrLf; " ";
ForeColor = IIf(Ar(i) = 0,vbGreen,vbBlue)
Print Chr(Asc("A") + i); Ar(i); Space(5 - Len(Str(Ar(i))));
Next
Print