你是想显示文本框中每个文字的出现次数吧,可以通过 InStr 函数实现:
Dim iFind As Integer,iCount As Integer
iFind = 1
Do While iFind <> 0
iFind = InStr(iFind,Text1.Text,"我") '查找第一个"我"字的出现位置,如果找不到则返回 0
If iFind <> 0 Then '找到了
'次数 + 1
iCount = iCount + 1
iFind = iFind + 1
End If
Loop
MsgBox """我""字共出现了 " & iCount & " 次。"
其他的也可以根据以上代码写出来。