填空题下面程序的功能是统计字符串中“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

1、

【正确答案】 1、Mid$(a$,i,1)

【答案解析】[解析] 从字符串中依次截取每一个字母看是不是i，来统计i的个数，用Mid$(字符串,p,n)函数是从第p个字符开始，向后截取n个字符。