已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim pp (65 To 90) For i = 65 To 90 pp(i) =0 Next x$ = InputBox(" Enter a string", x$ ) x$ = UCase$ (x$) For i = 1 To Len (x$)n =Asc(Mid$ (x$, i, 1) )If n＞= 65 And n＜ = 90 Then 【11】 End If Next For i = 65 To 90Ifpp(i)＞0Then Print Chr$ (i) ; pp (i)End If Next
