vb四环棋，劳拉

劳拉四环棋，与电脑互动下棋。

只要用到的算法是上下左右检查。VB语言制作。

    '打印
    Private Sub Print()
        RichTextBox1.Text = " 1 2 3 4 5 6 7 8" + Chr(10)

        For i As Integer = 1 To 6
            For j As Integer = 1 To 8
                RichTextBox1.Text = RichTextBox1.Text + "|" + a(i, j)
            Next
            RichTextBox1.Text = RichTextBox1.Text + "|" + Chr(10)
        Next

        RichTextBox1.Text += "-----------------"
    End Sub

    '打印
    Private Sub Print()
        RichTextBox1.Text = " 1 2 3 4 5 6 7 8" + Chr(10)

        For i As Integer = 1 To 6
            For j As Integer = 1 To 8
                RichTextBox1.Text = RichTextBox1.Text + "|" + a(i, j)
            Next
            RichTextBox1.Text = RichTextBox1.Text + "|" + Chr(10)
        Next

        RichTextBox1.Text += "-----------------"
    End Sub

完整源码，看个人简介。