13518219792
VB6的代码：
创新互联公司是一家专业提供长白企业网站建设,专注与网站建设、成都网站建设、H5页面制作、小程序制作等业务。10年已为长白众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
Dim s As String
Dim Need as string '需要找的字符
Dim i as integer,Count as integer
s="abc.def.gh.i.gkl.mn"
Need = "."
Count = 0
For i=1 To Len(s)
if Mid(s,i,1)=Need then Count=Count+1
Next
Print Count
VB2005的代码:
Dim s As String = "abc.def.gh.i.gkl.mn"
Dim Need as string ="." '需要找的字符
Dim i ,Count as integer
For i=0 To s.length-1
if Mid(s,i,1)=Need then Count += 1
Next
Console.WriteLine(count)
(假设Option Strict为Off)
看了2楼的代码，思路很好的
不过Split函数要对多个字符串拆分赋值
还要用Preserve重新定义数组
在s过长时操作十分占用CPU
而如果字符串含有Unicode字符则不能用Byte数组处理
所以使用Mid函数（或.net的SubString函数）速度比较快
如果不限使用版本的话
VB2005中新增数据类型Char则是最好选择
Char类型的数组代替String操作起来快很多倍
使用一个单重的循环扫描这个字符串中的所有字符，对每一个字符的出现次数进行统计，最后输出每个字符的出现次数。
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
VB使用Unicode编码，任何字符（包括半角的字母、数字、符号及全角的汉字、符号等）都是占用两个字节的。
Len() 函数返回字符串的字符个数（要注意，一个汉字也是算作一个字符的）
比如： Len("百度baidu")的返回值为7
LenB() 函数返回字符串的占用字节数
比如： LenB("百度baidu")的返回值为14
首先保证窗体上有一个标签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
参考资料来源：百度百科-字符串函数
兄弟呀这个这么简单 用这个语法吧 MsgBox(TextBox1.Text.Length)‘就是用消息窗口显示几个字符
