Question

vb查找文本重复次数

比如说我在有个按钮Command1和文框text1，还有一个标签Label1，我点击按钮然后查找重复了几次，然后以数字的形式写在label1中

Answer 1

Private Sub Command1_Click()
Dim cz$
cz = InputBox("要查找什么")
Label1.Caption = (Len(Text1.Text) - Len(Replace(Text1.Text, cz, ""))) / Len(cz)
End Sub

Answer 2

Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
Dim str As String
str = InputBox("要查找什么")
i = 1
Do While i < Len(Text1.Text)
i = InStr(i, Text1.Text, str, vbTextCompare)
If i > 0 Then sum = sum + 1: i = i + Len(str) Else Exit Do
Loop
Label1.Caption = sum
End Sub

Answer 3

要在label1上显示你查找的次数？把下面代码粘贴到按钮单击事件中就可以了
Private Sub Command1_Click()
Static a As Integer
a = a + 1
Label1.Caption = "你当前查到了" & a & "次"
End Sub

Answer 4

是查找“字”重复还是“句”重复？