統(tǒng)計某個字符的代碼如下:

創(chuàng)新互聯(lián)于2013年創(chuàng)立,先為應縣等服務建站,應縣等地企業(yè),進行企業(yè)商務咨詢服務。為應縣企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務解決您的所有建站問題。
private
sub
command1_click()
dim
i
as
integer,
ccount
as
integer
for
i
=
1
to
len(text1)
if
mid(text1,
i,
1)
=
"你所需要統(tǒng)計的字符"
then
ccount
=
ccount
+
1
next
i
msgbox
"共有"
count
"個e"
end
sub
VB使用Unicode編碼,任何字符(包括半角的字母、數(shù)字、符號及全角的漢字、符號等)都是占用兩個字節(jié)的。
Len() 函數(shù)返回字符串的字符個數(shù)(要注意,一個漢字也是算作一個字符的)
比如: Len("百度baidu")的返回值為7
LenB() 函數(shù)返回字符串的占用字節(jié)數(shù)
比如: LenB("百度baidu")的返回值為14
兄弟呀這個這么簡單 用這個語法吧 MsgBox(TextBox1.Text.Length)‘就是用消息窗口顯示幾個字符
使用一個單重的循環(huán)掃描這個字符串中的所有字符,對每一個字符的出現(xiàn)次數(shù)進行統(tǒng)計,最后輸出每個字符的出現(xiàn)次數(shù)。
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
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??"個元素"??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
首先保證窗體上有一個標簽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
擴展資料:
字符串函數(shù)(String processing function)也叫字符串處理函數(shù),指的是編程語言中用來進行字符串處理的函數(shù),如C,pascal,Visual以及LotusScript中進行字符串拷貝,計算長度,字符查找等的函數(shù)。
Visual Basic
定位函數(shù)
InStr,InStrRev,InStrB
截取函數(shù)
Mid,Right,Left
替換函數(shù)
Replace
分割函數(shù)
Split
格式化輸出
Format
比較函數(shù)
StrComp,Like
長度計算
Len,LenB
編碼轉(zhuǎn)換
StrConv
大小寫轉(zhuǎn)換
LCase,UCase
重復產(chǎn)生
String,Space
參考資料來源:百度百科-字符串函數(shù)
當前標題:vb.net字符個數(shù),vb計算字符串個數(shù)
URL標題:http://chinadenli.net/article18/dsedsdp.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站建設、網(wǎng)站收錄、建站公司、定制開發(fā)、電子商務、虛擬主機
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)