已知B的ASCII码为66,以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim pp (65 To 90) For i = 65 To 90 pp(i) =0 Next x$ =

admin2010-03-30  31

问题 已知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
         【  】
         End If
     Next
     For i = 65 To 90
         Ifpp(i)>0Then
             Print Chr$ (i) ; pp (i)
         End If
     Next

选项

答案pp(n)=pp(n)+1

解析 程序中,在【  】处定义了一个数组,从程序中反映出数组的下标的范围是65-90,在【  】处有一个循环语句,决定了循环的次数,由于一次循环只处理一个字符,因此循环次数要与字符串的长度相等;而空【  】处是统计相同字符出项的次数,因为相同字符的ASCII码也不同,因此利用字符的ASCII码作为数组的下标,下标相同者统计到同一个下表变量中,这样就实现了统计功能。注意:常用函数的应用。
转载请注明原文地址:https://kaotiyun.com/show/zO1p777K
0

最新回复(0)