vb 中獲取某個(gè)字符的個(gè)數(shù)

統(tǒng)計(jì)某個(gè)字符的代碼如下：

創(chuàng)新互聯(lián)于2013年創(chuàng)立，先為應(yīng)縣等服務(wù)建站，應(yīng)縣等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為應(yīng)縣企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

private

sub

command1_click()

dim

i

as

integer,

ccount

as

integer

for

i

=

1

to

len(text1)

if

mid(text1,

i,

1)

=

"你所需要統(tǒng)計(jì)的字符"

then

ccount

=

ccount

+

1

next

i

msgbox

"共有"

count

"個(gè)e"

end

sub

VB.net有什么函數(shù)能統(tǒng)計(jì)“漢字、全角字符”這些占用兩個(gè)字節(jié)的數(shù)量？

VB使用Unicode編碼，任何字符（包括半角的字母、數(shù)字、符號(hào)及全角的漢字、符號(hào)等）都是占用兩個(gè)字節(jié)的。

Len() 函數(shù)返回字符串的字符個(gè)數(shù)（要注意，一個(gè)漢字也是算作一個(gè)字符的）

比如： Len("百度baidu")的返回值為7

LenB() 函數(shù)返回字符串的占用字節(jié)數(shù)

比如： LenB("百度baidu")的返回值為14

VB.NET中，如何得到文本框中字符個(gè)數(shù)?

兄弟呀這個(gè)這么簡單 用這個(gè)語法吧 MsgBox(TextBox1.Text.Length)‘就是用消息窗口顯示幾個(gè)字符

vb.net 如何實(shí)現(xiàn)輸出一串字符串中的所有字符以及每個(gè)字符的出現(xiàn)次數(shù)？

使用一個(gè)單重的循環(huán)掃描這個(gè)字符串中的所有字符，對每一個(gè)字符的出現(xiàn)次數(shù)進(jìn)行統(tǒng)計(jì)，最后輸出每個(gè)字符的出現(xiàn)次數(shù)。

Private Sub Command1_Click()

s = InputBox("請輸入一個(gè)英文字符串：")

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代碼聲明一個(gè)一維字符類型的數(shù)組，有20個(gè)元素，每個(gè)元素最多存放十個(gè)字符。字符個(gè)數(shù)隨機(jī)，

Dim?a(20)?As?String

Dim?num?As?Integer

Dim?ppp?As?String?=?""

Dim?temp?As?String?=?""

For?i?=?1?To?20

temp?=?""

num?=?Int(Rnd()?*?10?+?1)

For?j?=?1?To?num

temp?=?temp??Chr(Int(Rnd()?*?26?+?97))

Next

a(i)?=?temp

Next

Dim?max?As?Integer?=?0

For?i?=?1?To?20

If?a(i).Length??max?Then

max?=?a(i).Length

End?If

Next

For?i?=?1?To?20

If?a(i).Length?=?max?Then

ppp?=?ppp??"字符最多的元素是第"??i??"個(gè)元素"??a(i)??vbCrLf

End?If

Next

For?i?=?1?To?20

TextBox1.Text?=?TextBox1.Text??a(i).PadRight(10)??"??????????"

If?i?Mod?4?=?0?Then

TextBox1.Text?=?TextBox1.Text??vbCrLf

End?If

Next

TextBox1.Text?=?TextBox1.Text??ppp

VB下統(tǒng)計(jì)字符串中所含某字符的個(gè)數(shù)

首先保證窗體上有一個(gè)標(biāo)簽label1，一個(gè)按鈕command1,一個(gè)文本框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??"個(gè)e"

End?Sub

擴(kuò)展資料：

字符串函數(shù)（String processing function）也叫字符串處理函數(shù)，指的是編程語言中用來進(jìn)行字符串處理的函數(shù)，如C，pascal，Visual以及LotusScript中進(jìn)行字符串拷貝，計(jì)算長度，字符查找等的函數(shù)。

Visual Basic

定位函數(shù)

InStr,InStrRev,InStrB

截取函數(shù)

Mid,Right,Left

替換函數(shù)

Replace

分割函數(shù)

Split

格式化輸出

Format

比較函數(shù)

StrComp,Like

長度計(jì)算

Len,LenB

編碼轉(zhuǎn)換

StrConv

大小寫轉(zhuǎn)換

LCase,UCase

重復(fù)產(chǎn)生

String,Space

參考資料來源：百度百科-字符串函數(shù)