使用Final进行简单的数字多点交叉

利用Final软件，先使其生成10以内的两列随机数字，代表随机两个个体，然后进行多点交叉，用0和1来表示交叉出的数字在第一列中相应位置是否相同。下面是代码及演示结果。

代码如下：

Public Class Form1

    Dim ary1 As New List(Of Object)

    Dim ary2 As New List(Of Object)

    Dim ran As New Random()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ary1.Clear()

        ary2.Clear()

        ''生成1~length+1的List

        Dim temp As New List(Of Integer)

        For i = 1 To 10

            temp.Add(i)

        Next

        ''随机顺序抽取到另一个数列

        For i = 10 To 1 Step