大神求教！！！要求是在str1中查找字符串str2，并显示结

第一空：Len(str1)
第二空：InStr(s, str2)
第三空：k
第四空正确
吐槽：刚看到这个题目我还以为是禁止使用InStr函数，仔细一看原来还是要用的，但是这个出题人似乎不知道InStr还有个可以省略的第一参数
所以这个题的Do...Loop循环可以这样改：
i = InStr(str1, str2) '嗯，前面加一句初始化
Do While i
sum = sum + 1
i = InStr(i + 1, str1, str2)
Loop
一共五行，简单明了，而且节省了好几个变量

如何找出两个列表框中不同的项目：
这个说法本身不太合适，应该说成“从一个列表框中找出另一个列表框没有的项目”，对两个列表框分别执行一次就是最终结果了
这个可以有两种思路：
1.正向思路，比如对于List1和List2两个列表框，先找List1中要找的项目：
for i=0 to list1.listcount-1
for j=0 to list2.listcount-1
if list1.list(i)=list2.list(j) then exit for
next j
if j=list2.listcount then list3.additem list1.list(i)
next i
把上述代码中List1和List2交换一下，就是从List2中找的过程了
2.逆向思路，即先把List1和List2中相同的项目找出来，添加到一个临时数组中（也可以借助隐藏列表框List4），然后把List1和List2中的所有项目都添加到List3中，再从List3中去掉临时数组中的项目，即为最终结果