Private Sub Command1_Click()Dim w As Integer, n As Integer, t As Integer
'我你他的个数
For i = 1 To Len(Text1)
Select Case Mid(Text1, i, 1)
Case "我"
w = w + 1
Case "你"
n = n + 1
Case "他"
t = t + 1
End Select
Next
Text2 = "我" & w & "个,你" & n & "个,他" & t & "个"End Sub