OX 遊戲設計

OX 遊戲設計:


判斷下圖 OX 遊戲的勝負結果.



變數宣告

Dim x1, x2, x3 As Integer

Dim x4, x5, x6 As Integer

Dim x7, x8, x9 As Integer



分別代表OX 棋盤上的位置 與 資料.

變數的值分別為:

1. 空格 : 數字 0

2. 畫 O : 數字 1

2. 畫 X : 數字 2

x1 = 1
x2 = 1
x3 = 1
x4 = 0
x5 = 2
x6 = 0
x7 = 2
x8 = 2
x9 = 0

If (x1 = 1 And x2 = 1 And x3 = 1) Then
MsgBox(" O 獲勝 ! ")
End If