首先保证窗体上有一个标签label1，一个按钮command1,一个文本框text1
目前创新互联已为近1000家的企业提供了网站建设、域名、网络空间、网站改版维护、企业网站设计、东昌网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
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
参考资料来源：百度百科-字符串函数
VB使用Unicode编码，任何字符（包括半角的字母、数字、符号及全角的汉字、符号等）都是占用两个字节的。
Len()
函数返回字符串的字符个数（要注意，一个汉字也是算作一个字符的）
比如：
Len("百度baidu")的返回值为7
LenB()
函数返回字符串的占用字节数
比如：
LenB("百度baidu")的返回值为14
使用一个单重的循环扫描这个字符串中的所有字符，对每一个字符的出现次数进行统计，最后输出每个字符的出现次数。
Private Sub Command1_Click()
s = InputBox("请输入一个英文字符串：")
Dim a(128) As Integer
For i = 1 To Len(s)
t = Asc(Mid(s, i, 1))
a(t) = a(t) + 1
Next i
For i = 1 To 127
If a(i) 0 Then Print Chr(i); ":"; a(i)
Next i
End Sub
