下面程序运行时,若输入“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 m=count(k) End If Next k Print m End Sub