已知B的ASCⅡ码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数。
Dim [10]
Fori=65 To 90
pp(i)=0
Next
x$=InputBox("Enter a string",K$)
x$=U Case$(x$)
Fori=1 To Len(x$)
n=Asc(Mid$(x$,i,1))
If n＞=65Andn＜=90Then
[11]
End If
Nexti
Fori=65 To 90
If pp(i)＞Then
Print Chr$(i);pp(i)
End If
Next
