填空题

下面程序的功能是统计字符串中"i"的个数，请填空。 Sub COU() Dim n As Integer 　　a$="Beijing University of Technology" 　　n=Len(a$) 　　For i=1 To n 　　　　b$=Mid$(a$,i,1) 　　　　If ______ Then x=x+1 　　Next 　　Print "x=";x End Sub