![[填空题] 下面程序的功能是统计字符串中“i”的个数请填空。 Sub COU( ) Dim n As Integer a$ =" Beijing University of Tec](http://www.mshxw.com/aiimages/31/261401.png "[填空题] 下面程序的功能是统计字符串中“i”的个数请填空。 Sub COU( ) Dim n As Integer a$ =\" Beijing University of Tec")
[填空题] 下面程序的功能是统计字符串中“i”的个数请填空。
Sub COU( )
Dim n As Integer
a$ =" Beijing University of Technology"
n = Len(a$)
For i = 1 To n
b$ = 【15】
If b$ ="i" Then x=x+1
Next
Print" x="; x
End Sub
参考答案：
Mid$(a$，i，1) b$=“i”问题解析:
从字符串中依次截取每一个字母看是不是i，来统计i的个数，用Mid$(字符串，P，n)函数是从第p个字符开始，向后截取n个字符。
