建一个Command1,Text1 . 代码如下。 ========================= Private Sub Command1_Click() Dim i As Integer, t As String, l1 As Long, l2 As Long t = Text1.Text: l1 = Len(t) For i = 0 To 9 l2 = Len(Replace(t, i, "")) MsgBox i & "有" & l1 - l2 & "个" l2 = l1 Next End Sub
参考下吧....