Question

编写程序VB，在一文本框中输入简短的英文文章,另一文本框中输入一个单词，显示该单词在英文文章出现几次

最好给全代码，参考一下

Answer 1

Do While True
a = InStr(a + 1, LCase(Text1.Text), LCase(Text2.Text))
If a = 0 Then Exit Do
i = i + 1
Loop
MsgBox i & "次"

追问

我怎么运行不了啊，能提示点吗？

追答

添加一个按钮 2个文本框 点击按钮进入代码窗口 复制代码到 按钮click事件里

追问

恩恩，会了，谢谢啊