单项选择题

下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是（）
　　Private Sub Comand1_Click()
　　Dim count(25) As Integer, ch As String
　　ch=Ucase(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< p>
　　m=count(k)
　　End If
　　Next k
　　Print m
　　End Sub

点击查看答案&解析