对于全体或者多数党员严重违犯党纪的党组织，应当予以改组。

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