知识点：程序填空（五）
下面事件过程用来统计指定字符串中26个英文字母（不区分大小写）各自出现的次数。请填空完善它。
Private Sub Command1_Click()
Dim s As String
Dim m(25) As Integer
s = InputBox("请输入指定的字符串：")
For k = 1 To [ （7） ]
      c = [  (8)  ](Mid$(s, k, 1))
      If c <= "Z" And c >= "A" Then
        n = Asc(c) - Asc("A")
        m(n) = [   (9)   ]
      End If
Next k
For k = 0 To 25
      Print Chr(k + Asc("A")); "---"; m(k)
Next k
End Sub