足球胜负十四场算法

        从买胜负彩开始就想自己写一个程序来过滤垃圾注，4月来深圳以来，一直忙与工作的事，根本没有闲情去写算法，最近总算闲了下来，于是利用昨天和今天，按自己的过滤思想写了个过滤算法，请有丰富过滤经验的高手不要笑话，去年和我一同毕业的足彩同志，你们在他乡可否中奖？

' // This code is writed by lovelyccc
' // Develop in home
' // 2006/9/9
' // In ShenZhen province of China
Option   Explicit
Public  temp(), temp1(), temp2(), temp3()
' //temp是投注号,temp1是在1列显示的投注号,temp2是在2列显示的投注号
' //temp3临时储存temp1的投注号，防止temp1的数据在过滤过程中被篡改
Public  finalno()
' //finalno是过滤号
Public  a1(), a2(), a3(), a4(), a5(), a6(), a7(), a8(), a9(), a10(), a11(), a12(), a13(), a14()
Public  L1(), L2(), L3(), L4(), L5(), L6(), L7()
Public  T1(), T2(), T3()
Public  LT1(), LT2()
Public  Lottery()
Public  GridcloPosition  As   Integer
Public  ArrayLenth  As   Integer
Public  BeforePosition  As   Integer
Public   Function Loop2Times() Function Loop2Times(ByRef c1(), ByRef c2())
On Error GoTo err
Dim i, j, l, k As Integer
k = 0
l = (UBound(c1) + 1) * (UBound(c2) + 1)
ReDim temp(l - 1)
For i = LBound(c1) To UBound(c1)
    For j = LBound(c2) To UBound(c2)
        temp(k) = c1(i) & c2(j)
        k = k + 1
    Next
Next
Exit Function
err:
   MsgBox "错误" & err.Description
End Function
Public   Function InitArray() Function InitArray()
Dim i As Integer
Dim count As Integer
count = 1
'//原始数组1///
If FrmLottery.Check1(1).Value = 1 Then
   a1() = Array("3")
   If FrmLottery.Check1(2).Value = 1 Then
      a1() = Array("3", "1")
      If FrmLottery.Check1(3).Value = 1 Then
         a1() = Array("3", "1", "0")
      End If
   Else
      If FrmLottery.Check1(3).Value = 1 Then
         a1() = Array("3", "0")
      End If
   End If
Else
   If FrmLottery.Check1(2).Value = 1 Then
      a1() = Array("1")
      If FrmLottery.Check1(3).Value = 1 Then
         a1() = Array("1", "0")
      End If
   Else
      If FrmLottery.Check1(3).Value = 1 Then
         a1() = Array("0")
      Else
         a1() = Array("*")
      End If
   End If
End If
'//原始数组2///
If FrmLottery.Check1(4).Value = 1 Then
   a2() = Array("3")
   If FrmLottery.Check1(5).Value = 1 Then
      a2() = Array("3", "1")
      If FrmLottery.Check1(6).Value = 1 Then
         a2() = Array("3", "1", "0")
      End If
   Else
      If FrmLottery.Check1(6).Value = 1 Then
         a2() = Array("3", "0")
      End If
   End If
Else
   If FrmLottery.Check1(5).Value = 1 Then
      a2() = Array("1")
      If FrmLottery.Check1(6).Value = 1 Then
         a2() = Array("1", "0")
      End If
   Else
      If FrmLottery.Check1(6).Value = 1 Then
         a2() = Array("0")
      Else
         a2() = Array("*")
      End If
   End If
End If
'//原始数组3///
If FrmLottery.Check1(7).Value = 1 Then
   a3() = Array("3")
   If FrmLottery.Check1(8).Value = 1 Then
      a3() = Array("3", "1")
      If FrmLottery.Check1(9).Value = 1 Then
         a3() = Array("3", "1", "0")
      End If
   Else
      If FrmLottery.Check1(9).Value = 1 Then
         a3() = Array("3", "0")
      End If
   End If
Else
   If FrmLottery.Check1(8).Value = 1 Then
      a3() = Array("1")
      If FrmLottery.Check1(9).Value = 1 Then
         a3() = Array("1", "0")
      End If
   Else
      If FrmLottery.Check1(9).Value = 1 Then
         a3() = Array("0")
      Else
         a3() = Array("*")
      End If
   End If
End If
'//原始数组4///
If FrmLottery.Check1(10).Value = 1 Then
   a4() = Array("3")
   If FrmLottery.Check1(11).Value = 1 Then
      a4() = Array("3", "1")
      If FrmLottery.Check1(12).Value = 1 Then
         a4() = Array("3",