tongjizifugeshu.txt

主要实现的功能是：任意输入一字符串

Private Sub command1_Click()

Dim search2 As String, start&, Num&, a#, Zifushu1%, Zifushu2#, searchInwhere$
search2 = InputBox(Chr(10) & Chr(10) & Chr(10) & Chr(10) & " 统计内容")
start = 1: Num = 0: Zifushu1 = Len(search2): searchInwhere = Text1.Text: Zifushu2 = Len(searchInwhere)
If search2 <> "" Then
Do While start <= Zifushu2
If search2 = Mid$(searchInwhere, start, Zifushu1) Then Num = Num + 1
start = start + 1
Loop
MsgBox "共找到" & Num & "个" & "'" & search2 & "'", vbOKOnly + vbInformation
End If
End Sub