老师们：
    有两数组
========================================================================
Dim A,B,Count
    Count=0
A=Array("2","4","9","10","11","16","37","38","39","49")
B=Array("3","8","9","11","15","36","37","38","39","40")
 FOR i=0 to 9
 FOR J=0 to 9
       IF A(i) - B(j) = 1 OR A(i) - B(j)= -1 THEN
       Count=Count + 1
       END IF
NEXT
NEXT
=======================================================================
//以上代码实现的是：
统计数组B中的数是数组A中的相邻数的个数
例如：
数组B中的"3"是数组A中"4"的相邻数；数组B中的"38"是数组A中"39"的相邻数等等等等......
但是，以上代码会碰到以下问题，例如：
数组B中的"38"，既是数组A中"39"的相邻数，同时也是数组A中"37"的相邻数，程序会把数组B中的"38"统计为2次；
可是我想实现的是，当碰到如数组B中"38"这样的数时，只统计1次即可，怎么修改代码？？感谢老师！！

B中10个数在A中不一定都相邻，本题取数时没注意；都是相邻的了，可现实不一定都是相邻的！！
另外：如果跳出循环，还是解决不了重复统计的可能！！
如：
B的“38”与A的“37”为相邻；虽然B的“38”与A的“39”也相邻，但B的“38”已和A的“37”统计过一次了，碰到A的“39”虽然也满足条件，但不能在累加统计了！！
怎么实现！谢谢！！

感谢dzt0001老师！！！测试通过！感谢！

另外还有个类似问题：
有数组：
A=Array("2","4","9","10","11","16","37","38","39","49")
求该数组“任意两个数字之间不相同的正差值的总个数”怎么实现？感谢！

老师真用心，感谢~~

太感谢了dzt0001，就是我要的结果！
但怎么将B再转为数组，我弄了很久做不出来！麻烦再提示了老师！感谢！