VB LEARNING: 上課教材

 

井字遊戲 -- 二種電腦邏輯對戰版

'二種電腦邏輯對戰版
'○採用由第1至第9格，依序找一個可以下的格子就下的方法
'×採用由第1至第9格，隨機方式找一個可以下的格子就下的方法
Public Class Form1
    Dim btn(9) As Button
    Dim i
    Dim j
    Dim sco(9)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
        btn(1) = Button1

:

:

VB LEARNING: 上課教材