中科新闻网微商中国下载软件:VB编程问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/13 05:42:59
统计字符窜a中出现字符窜b的次数，然后输出。
Private Sub Form_Click()
a$ = "ABCDEHGABCDEFABCDEABCDABCABA"
b$ = "AB"
c = InStr(a$, b$)
x = 0
While e <> 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 e <> 0
x = x + 1
a$=mid$(a$,__!___+2)
c = InStr(a$, b$)
when ___!___
End Sub
sdf