( 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