已知B的ASCII码为66 以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim【8】 Fo
字符串,次数,程序
已帮助 人
已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数
Dim 【8】
For i=65 To 90
pp（i） =0
Next
x$=InputBox（"Enter a string", x$）
x$=UCase$（x$）
For i=1 To 【9】
n=Asc（Mid$（x$, i, 1） ）
If n >=65 And n <=90 Then
【10】
End If
Next i
For i=65 To 90
If pp（i） > 0 Then
Print Chr$（i） ; pp（i）
End If
Next