下面程序的功能是统计字符串中"i"的个数,请填空。 Sub COU( ) Dim n As Integer a$=" Beijing Uni

下面程序的功能是统计字符串中"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$I1)Mid$(a$,I,1) 解析：从字符串中依次截取每一个字母看是不是i,来统计i的个数,用Mid$(字符串,p,n)函数是从第p个字符开始,向后截取n个字符。