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

Prirate Sub Command1_Click()

D．im count(25)As Integer，ch As String

ch=UCase(InputBox(”请输入字母字符串”))

F．or k=1 To Len(ch)

n=Asc(Mid(ch，k，1))-Asc(”A”)

If n>=0 Then

count(n)=count(n)+1

E．nd If

Next k

m=count(0)

F．or k=1 T0 25

IfIn<count(k)Then

Ill=count(k)

E．nd If

Next k

Print m

E．nd sub

A．0

B．1

C．2

D．3