VB 怎样统计Text中某个字符个数

Question

比如说Text中有字符"*",怎样统计它的个数

还有个问题,我有一个文本框,一个Label.运行时怎样在Text中输入一个字符Labe就马上统计出个数

Answer 1

统计某个字符的代码如下：

Private Sub Command1_Click()
Dim i As Integer, Ccount As Integer
For i = 1 To Len(Text1)
If Mid(Text1, i, 1) = "你所需要统计的字符" Then Ccount = Ccount + 1
Next i
msgbox "共有" & Count & "个e"
End Sub

Answer 2

统计字符个数
text2=len(text1)-len(replace(text1,"*",""))
要统计个数可以用len函数，在文本框的change事件里面写代码。

Answer 3

假如你的文本框是text1,label是label1
Private Sub Text1_Change()
Dim i As Long
Dim s As Long
s = 0
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "*" Then s = s + 1
Next i
Label1.Caption = s
End Sub本回答被提问者采纳