问题
填空题
下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU()
Dim n As Integer
a$="Beijing University of Technology"
n=Len(a$)
For i=1 To n
b$=______
If b$="i" Then x=x+1
Next
Print "x=":x
End Sub
答案
参考答案：Mid$(a$,i,A)
解析： 从字符串中依次截取每一个字母看是不是i，来统计i的个数，用Mid$(字符串,p,n)函数是从第p个字符开始，向后截取n个字符。