Dim a(97 To 122) As IntegerPrivate Sub Command1_Click() '输出矩阵For i = 1 To 25Randomizeb = Int(Rnd * 26 + 97)a(b) = a(b) + 1If i Mod 5 = 0 ThenPicture1.Print Chr(b) & vbCrLfElsePicture1.Print Chr(b) & vbTab;End IfNextEnd SubPrivate Sub Command2_Click() '统计For i = 97 To 122If i Mod 6 = 0 ThenPrin...