下面程序运行时，若输入"Visual Basic Programming"，则在窗体上输出的是(　　)。Private Sub Command1_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