VB.net有什么函数能统计“汉字、全角字符”这些占用两个字节的数量？

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

公司主营业务：网站设计、网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出行唐免费做网站回馈大家。

Len()

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

比如：

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

LenB()

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

比如：

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

如何用VB.NET生成一个随机字符串

用法 RndString(xx) xx为随机数字长度

比如12位长度的随机字符串 则为 RndString(12)

字符串包含数字和大小写字母，函数如下：

Function RndString(ByVal l As Integer) As String

Randomize()

Dim R, i As Integer

Dim S As Char

Dim returnStr As String

returnStr = ""

'a-z 的ASCII码是：97-122

'A-Z 的ASCII码是：65-90

'0-9 的ASCII码是：48-57

For i = 1 To l

R = Int(Rnd() * 62) '随机生成的字符有大小写字母和数字，共有26个

If R 10 Then '如果小于10，则是数字 数字的ASCII是48-57 对应 随机数字 0-9 所以要将随机数字加48

S = Chr(R + 48) 'Chr 是将把数字按Ascii码转换为对应的字符

ElseIf R 36 Then '如果小于36，则是大写字母 大写字母的ASCII是65-90 对应 随机数字10-35 所以要将随机数字加55

S = Chr(R + 55)

Else '如果大于36，则是小写字母 小写字母的ASCII是97-122 对应 随机数字36-62 所以要将随机数字加61

S = Chr(R + 61)

End If

returnStr = returnStr + S

Next

RndString = returnStr

End Function

vb 中获取某个字符的个数

统计某个字符的代码如下：

private

sub

command1_click()

dim

i

as

integer,

ccount

as

integer

for

i

=

1

to

len(text1)

if

mid(text1,

i,

1)

=

"你所需要统计的字符"

then

ccount

=

ccount

+

1

next

i

msgbox

"共有"

count

"个e"

end

sub

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

vb.net.问题：通过文本框输入一串字符，单击命令按钮，要求分别统计字符串中所含字母和数字的个数。

要改成这样；

for i = 1 to Len(s)

j = Mid(s,i,1)

select case j

case "a" to "z","A" to "Z"

C = C + 1

CASE "0" TO "9"

D = D + 1

CASE ELSE

M= M+1

END SELECT

NEXT

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

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

参考资料来源：百度百科-字符串函数

网站名称：vb.net字符串个数,vb统计字符串中字母个数
转载源于：http://scyanting.com/article/hegicd.html