???用VB代码编写一个双色球中奖号码查询的程序？

查询会出现很多问题，用简单的数组判断行不通！蓝球就一个很好判断，但是另外六个就很难！情况如下：
1，A（1，2，13，14，23，32）B（3，4，11，12，24，25） 一个不中的情况！！好判断！
2，A(1，2，13，14，23，32）B(1，4，11，12，24，15）  中一个的情况！
3，A(1，1，13，14，23，32）B(1，4，11，12，24，15）  中一个，但是A里面有两个1，如果用简单的判断两个数组元素相等，会出现判断错误，误认为中两个！
4，A(1，1，1，14，23，32）B(1，4，11，12，24，15）  中一个，但是A里面有三个1，情况跟第三种一样！
5，A(1，1，1，14，23，32）B(1，1，11，12，24，15）  中两个，但是A中含有三个1，B中含有两个1，简单判断会误认为中了6个！其实只中了两个！
6，A(1，1，1，14，23，32）B(1，4，11，12，23，15）   中两个，1和23！简单判断也会错误！
7，A(1，1，1，14，23，23）B(1，1，11，12，23，15）   中三个，1，1，和23 ！
8，A(1，2，3，14，23，32）B(1，1，1，12，24，15）    只中一个，简单判断也会错误！
9，A(1，2，3，12，12，32）B(1，1，1，12，24，15）    中两个，简单判断也会出错！备注：这里的简单判断是指：       A数组代表自己所买号码，B数组代表摇奖号码！             
For i = 1 To 6
    For j = 1 To 6
        If A(i) = B(j) Then
            count = count + 1
        End If
    Next j
Next i