字符串 = "ABAABBABBBABBBAABAAABBABAAABBBABBBABAABAABBBBAB"'假设这是有相同数的随机字符串
//字符串 = "ABAABBABBBABBBAABAAABBABAAABBBABBBABABABBBBAB"'假设这是没有相同随机字符串
TracePrint "字符串为 :"&字符串
取得 = mid(字符串, 1, 5)
TracePrint "得知前五个为 :"&取得'然后调试输出取得的前5个看看
查找 = instr(5, 字符串, 取得, 1)'从第五个开始在字符串查找取得的前五个进行文本比较
TracePrint "返回的结果是 :" & 查找
If 查找 > 0 Then
TracePrint "找到相同的!字符串位置为! :" & 查找
Else
TracePrint "没找到相同的返回结果为 :"&查找
End If