扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
首先保证窗体上有一个标签label1，一个按钮command1,一个文本框text1
我们提供的服务有：成都网站设计、网站制作、微信公众号开发、网站优化、网站认证、清丰ssl等。为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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网