（ 35 ）下面程序运行时，若输入 “ Visual Basic Programming ” ，则在窗体上输出的是
Private Sub Comand1_Click （）
Dim count （ 25 ） As Integer, ch As String
ch=U c ase （ InputBox （ ' 请输入字母字符串 ' ） ）
For k=1 To Len （ ch ）
n=Asc （ Mid （ ch,k,1 ） ） -Asc （ ' A ' ）
If n>=0 Then
Count （ n ） =Count （ n ） + 1
End If
Next k
m=count （ 0 ）
For k=1 To 25
If m<count （ k ） Then
m=count （ k ）
End If
Next k
Print m
End Sub