vb.net统计字符串 vba统计字符数

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

首先保证窗体上有一个标签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.net有什么函数能统计“汉字、全角字符”这些占用两个字节的数量？

VB使用Unicode编码，任何字符（包括半角的字母、数字、符号及全角的汉字、符号等）都是占用两个字节的。

Len()

函数返回字符串的字符个数（要注意，一个汉字也是算作一个字符的）

比如：

Len("百度baidu")的返回值为7

LenB()

函数返回字符串的占用字节数

比如：

LenB("百度baidu")的返回值为14

vb.net 如何实现输出一串字符串中的所有字符以及每个字符的出现次数？

使用一个单重的循环扫描这个字符串中的所有字符，对每一个字符的出现次数进行统计，最后输出每个字符的出现次数。

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