查人人中国名人网昭通交投领导名单:VB程序设计
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 17:09:24
统计字符窜a中出现字符窜b的次数，然后输出。
Private Sub Form_Click()
a$ = "ABCDEHGABCDEFABCDEABCDABCABA"
b$ = "AB"
c = InStr(a$, b$)
x = 0
While c <> 0
x = x + 1
a$=mid$(a$,__!___+2)
c = InStr(a$, b$)
when ___!___
End Sub
Private Sub Form_Click()
a$ = "ABCDEHGABCDEFABCDEABCDABCABA"
b$ = "AB"
c = InStr(a$, b$)
x = 0
While c <> 0
x = x + 1
a$=mid$(a$,__!___+2)
c = InStr(a$, b$)
when ___!___
End Sub
第一个填c
第二个应该换到下行
when
___!___
填print x