Private Sub Command1_Click()
Text1.Text=123，234，345，123，456，123，345，678，789，123
ss = Text1.Text
j = 0
For i = 1 To Len(ss) - 1
If Mid(ss, i, 3) = "123" Then
j = j + 1
End If
Next i
Text2.Text = j
end sub
这是找123完全符合个数的代码。。
会在text2.text中显示有4个
接下来我要找出符合123中任意2个的数组（上面是有5个）
再来是要找出符合123中任意1个数组（上面有7组）
再来是打出完全不符123中的数组（上面有3个）
上面三个的代码怎么写？（一项一项分开怎么写，合起来按一键就显示4种
关系（符合，2位符合，1位符合，不符合）又怎么写？
上面是任意位关系符合的代码，然后定位符合又怎么写？
请有心人帮忙看看，先谢过了！
參考答案:在窗体上加三个文本框（Text3、Text4、Text5），再将代码为下面的代码，请试试。
Private Sub Command1_Click()
Text1.Text=123，234，345，123，456，123，345，678，789，123
ss = Text1.Text
j = 0
For i = 1 To Len(ss) - 1
selec case
*完全符合
case Mid(ss, i, 3) = "123"
j=j+1
*二位符合
case Mid(ss, i, 2) = "23"
k=l+1
*一位符合
case Mid(ss, i, 1) = "3"
l=h+1
*不符合
case Mid(ss, i, 1) <> "3"
h=h+1
end caseNext i
Text2.Text = j
Text3.Text = k
Text4.Text = l
Text5.Text = h
end sub
