首先保证窗体上有一个标签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