（ 35 ）下面程序运行时，若输入 “ Visual Basic Programming ” ，则在窗体上输出的是

Private Sub Comand1_Click （）

D．im count （ 25 ） As Integer, ch As String

ch=U c ase （ InputBox （ " 请输入字母字符串 " ） ）

F．or k=1 To Len （ ch ）

n=Asc （ Mid （ ch,k,1 ） ） -Asc （ " A " ）

If n>=0 Then

C．ount （ n ） =Count （ n ） + 1

E．nd If

Next k

m=count （ 0 ）

F．or k=1 To 25

If m<count （ k ） Then

m=count （ k ）

E．nd If

Next k

Print m

E．nd Sub

A． ） 0

B． ） 1

C． ） 2

D． ） 3