如何判断一个字符串中含有两个a?

[bluesky_wjs]

比如“abcdadse”中，如何能知道它含有几个a?

[qdcb]

自己写个函数吧 循环查找就是了

[Intelement]

Private Sub Command1_Click()
Dim intIdx As Integer
Dim intCnt As Integer
Dim strSearched As String
Dim strElem As String

strSearched = "abbbbbbacccccccaddddddddaeeeeee"
strElem = "a"

intIdx = InStr(1, strSearched, strElem)
Do While intIdx > 0
intCnt = intCnt + 1
intIdx = InStr(intIdx + 1, strSearched, strElem)
Loop
MsgBox intCnt
End Sub

[Sean918]

事实上是很简单的字符串问题

请参考这个：

http://www.easthot.net/topic.asp?TOPIC_ID=246&FORUM_ID=2&CAT_ID=2&Topic_Title=%D4%DA%D7%D6%B7%FB%B4%AEA%D6%D0%D5%D2%B3%F6%CB%F9%D3%D0%B2%BB%CF%E0%CD%AC%B5%C4%D7%D3%D7%D6%B7%FB%B4%AE%A1%A3%CD%AC%D2%BB%B8%F6%D7%D6%B7%FB%B5%C4%B4%F3%D0%A1%CA%D3%CE%AA%CD%AC%D2%BB%D7%D6%B7%FB&Forum_Title=VB%2CVB%2Enet+%BF%AA%B7%A2%C2%DB%CC%B3

[wdy136]

Private Function Counter() As Integer
Dim intCHARCount As Integer
Dim strAchar As String
Dim str1 As String
Dim str2 As String

Dim intStepCount As Integer '循环控制变量

strAchar = "a" '此变量为要查找的字符
strChar=text1.text
str2 = strChar '被查找的文本
For intStepCount = 1 To Len(strChar)
str1 = Left$(str2, 1) '取最左边的字符
If StrComp(str1, strAchar) = 0 Then
intCHARCount = intCHARCount + 1
End If
str2 = Mid(strChar, intStepCount + 1) '比较一次后余下的字符
Next intStepCount
Counter = intCHARCount
End Function