VB下统计字符串中所含某字符的个数

首先保证窗体上有一个标签label1，一个按钮command1,一个文本框text1

Private Sub Command1_Click()

Dim ii As Integer, Ccount As Integer    

For ii = 1 To Len(Text1)

If Mid(Text1, ii, 1) = "e" Then Ccount = Ccount + 1

Next ii    

Label1.Caption = "共有" & Count & "个e"

End Sub

扩展资料：

字符串函数（String processing function）也叫字符串处理函数，指的是编程语言中用来进行字符串处理的函数，如C，pascal，Visual以及LotusScript中进行字符串拷贝，计算长度，字符查找等的函数。

Visual Basic

定位函数

InStr,InStrRev,InStrB

截取函数

Mid,Right,Left

替换函数

Replace

分割函数

Split

格式化输出

Format

比较函数

StrComp,Like

长度计算

Len,LenB

编码转换

StrConv

大小写转换

LCase,UCase

重复产生

String,Space

参考资料来源：百度百科-字符串函数

'  首先保证窗体上有一个标签label1，一个按钮command1,一个文本框text1

Private Sub Command1_Click()

    Dim ii As Integer, Ccount As Integer    

    For ii = 1 To Len(Text1)

        If Mid(Text1, ii, 1) = "e" Then Ccount = Ccount + 1

    Next ii    

    Label1.Caption = "共有" & Count & "个e"

End Sub

n=(len(text1.text)-len(replace(text1.text,"e","")))/len("e")
如果E是变量，那么取消双引号！

如果要用FOR的形式
n=0
for i=1 to len(text1.text)-1
if mid(text1.text,i,len("e"))="e" then n=n+1
next i
label1.caption= n
同样如上！

或者
Dim a() As String
a = Split(Text1.Text, "e")
label1.caption= UBound(a)

'  首先保证窗体上有一个标签label1，一个按钮command1,一个文本框text1

Private Sub Command1_Click()

    Dim ii As Integer, Ccount As Integer    

    For ii = 1 To Len(Text1)

        If Mid(Text1, ii, 1) = "e" Then Ccount = Ccount + 1

    Next ii    

    Label1.Caption = "共有" & Count & "个e"

End Sub