2009年3月20日 星期五

VB LEARNING: 上課教材

 

井宇遊戲 - 人與電腦對戰版 2008/03/11

image

'井宇遊戲 - 人與電腦對戰版
' 電腦每次用亂數法,下一個尚未被使用的格子
Public Class Form1
    Dim btn(9) As Button, i As Integer
    Dim oxFlag As Boolean
    Dim sco(9) As Integer
    Dim no As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call prepare()

        no = Int(Rnd() * 9) + 1
        Call playOne()
    End Sub

:

:

VB LEARNING: 上課教材

沒有留言: