Sub 不用chr函数随机小写字母()
Dim arr(1 To 50) As String
Dim n As Integer
Randomize
Debug.Print "随机字母如下:"
Debug.Print
For i = 1 To 50
arr(i) = Chr(Int(Rnd * 26 + 97))
Debug.Print arr(i); " ";
If i Mod 10 = 0 Then Debug.Print
Next
For i = 1 To 50
If arr(i) = "a" Then n = n + 1
Next
Debug.Print
Debug.Print "字母a出现的次数为:" & n
End Sub