下面程序运行时，若输入“visuAlBAsiC progrAmming”，则在窗体上输出的是　　privAtE suBComAnD1_CliCk()　　Dim Count(25)As intEgEr, ChAs 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< p> 　　m=Count(k)　　EnD iF　　nExt k　　print m　　EnD suB
A、0
B．1
C、2
D、3