OX game : O 與 X 的輸入

Public Class Form1

Dim a, b As String '宣告 a, b 為字串變數

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

a = "O" '當使用者按下O的按鈕

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

a = "X" '當使用者按下X的按鈕

End Sub


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

Button1.Text = a

End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Button2.Text = a

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Button3.Text = a

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Button1.Text = " " '當使用者按下清空棋盤的按鈕
Button2.Text = " "
Button3.Text = " "

End Sub

End Class