快来救救菜鸟啊，我烦死了

Question

请问，vb中怎样取得一个字符串在另一个字符串中出现的次数，，，急

Answer 1

Function CC(str1 As String, str2 As String) As Integer  For i = 1 To Len(str2)
 
    If Mid$(str2, i, Len(str1)) = str1 Then idd = idd + 1
   
  Next i
  
 CC = iddEnd Function

Answer 2

用到mid函数Mid(string, start[, length])Mid 函数的语法具有下面的命名参数：部分 说明 
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。 
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。 
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。 

Answer 3

Mid 函数示例
本示例使用 Mid 语句来得到某个字符串中的几个字符。Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"   建立一个字符串。
FirstWord = Mid(MyString, 1, 3)   ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4)   ' 返回 "Demo"。
MidWords = Mid(MyString, 5)   ' 返回 "Funcion Demo"。

Answer 4

Private Function GetX(ByVal strSource As String, ByVal strX As String) As Integer
    Dim i As Integer
    Dim j As Integer
    
    i = InStr(1, strSource, strX)
    j = 0
    Do While i <> 0
        i = InStr(i + 1, strSource, strX)
        j = j + 1
    Loop
    
    GetX = j
End Function经过测试，可以用比如
Msgbox GetX("A1A2A3A4","A")
结果为4