已知B的ASCII码为66 以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim【 】 Fo
已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim【 】 For i=65 To 90 pp(i) =0 Next x$=InputBox("Enter a string"，x$) x$=UCase$(x$) For i=1 To【 】 n=Asc(Mid$(x$，i，1)) If n ＞=65 And n ＜=90 Then 【 】 End If Next i For i=65 To 90 If pp(i) ＞0 Then Print Chr$(i)；pp(i) End If Next
请帮忙给出正确答案和分析，谢谢！
参考解答
410***264
2023-07-22 04:24:14
正确答案：pp(65 To 90) Len(x$) pp(n)=pp(n)+1
程序中，在【】处定义了一个数组，从程序中反映出数组的下标的范围是65～90，在【】处有一个循环语句，决定了循环的次数，由于一次循环只处理一个字符，因此循环次数要与字符串的长度相等；而空【】处是统计相同字符出项的次数，因为相同字符的ASCII码也不同，因此利用字符的ASCII码作为数组的下标，下标相同者统计到同一个下表变量中，这样就实现了统计功能。
相似问题
在Visual Basic的立即窗口内输入以下语句 X=65 ? Chr$(X) 在窗口中显示的结果
在Visual Basic的立即窗口内输入以下语句 X=65 ? Chr$(X) 在窗口中显示的结果是【 】。请帮忙给出正确答案和分析，谢谢！
在窗体上面画一个命令按钮 然后编写如下程序： Function M(x As Integer y A
在窗体上面画一个命令按钮，然后编写如下程序： Function M(x As Integer，y As Integer)As Integer M=IIf(x＞y，x，y) End Function Private
在窗体上有一个过程函数 然后编写如下事件程序 该过程的功能是用选择交换法将10个数排成升序 请在空白
在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。 Sub SORT( ) Dim a(1
当用【 】方式打开文件时 如果对文件进行与操作 则写入的数据附加到原来文件的后面。请帮忙给出正确答案
当用【 】方式打开文件时，如果对文件进行与操作，则写入的数据附加到原来文件的后面。请帮忙给出正确答案和分析，谢谢！
以下程序段执行后y的值是【 】。 x=6 y=int(x+0.5) print y请帮忙给出正确答案
以下程序段执行后y的值是【 】。 x=6 y=int(x+0 5) print y请帮忙给出正确答案和分析，谢谢！
