Dim a(100),jl(100),cs(100)\x0d\x0astr="你","我","他","他","你","我","我","你","他","我","他","你","明","天","大","家","明","天"\x0d\x0ab=split(str,",")\x0d\x0ai=0 \x0d\x0ap = 0\x0d\x0aq=0\x0d\x0an=0\x0d\x0aRem pd\x0d\x0asm = 1\x0d\x0aFor UBound (b)+1\x0d\x0a c = b(i)\x0d\x0a d = b(p + 1)\x0d\x0a If CStr(c) = CStr(d) Then \x0d\x0a TracePrint sm\x0d\x0a sm = sm + 1 \x0d\x0a End If\x0d\x0a If p 1 Then \x0d\x0a a(q) = b(i) \x0d\x0a q=q+1\x0d\x0aEnd If\x0d\x0aRem pd2\x0d\x0ai = i + 1\x0d\x0ap = i \x0d\x0aFor qq=0 to ubound(a)\x0d\x0a cc = len(a(qq))\x0d\x0a If cc = 0 Then \x0d\x0a Exit for\x0d\x0a End If \x0d\x0aNext\x0d\x0aFor pp=0 to qq\x0d\x0a If a(pp) = b(i) and i
