首先保證窗體上有一個標簽label1,一個按鈕command1,一個文本框text1
我們提供的服務(wù)有:成都網(wǎng)站設(shè)計、網(wǎng)站制作、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認證、清豐ssl等。為1000+企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的清豐網(wǎng)站制作公司
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
重復(fù)產(chǎn)生
String,Space
參考資料來源:百度百科-字符串函數(shù)
VB使用Unicode編碼,任何字符(包括半角的字母、數(shù)字、符號及全角的漢字、符號等)都是占用兩個字節(jié)的。
Len()
函數(shù)返回字符串的字符個數(shù)(要注意,一個漢字也是算作一個字符的)
比如:
Len("百度baidu")的返回值為7
LenB()
函數(shù)返回字符串的占用字節(jié)數(shù)
比如:
LenB("百度baidu")的返回值為14
使用一個單重的循環(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
當前題目:vb.net統(tǒng)計字符 vb中統(tǒng)計字符個數(shù)
URL地址:http://m.rwnh.cn/article8/doophop.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供企業(yè)建站、定制開發(fā)、網(wǎng)站收錄、商城網(wǎng)站、品牌網(wǎng)站建設(shè)、云服務(wù)器
聲明:本網(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)