（ 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 m=count （ k ） End If Next k Print m End Sub A ） 0