机器人足球 实验之11V11
有11V11平台 11V11代码 使用手册
Private Sub Form_Click() Print fun(100) Print fun(1000) Print fun(10000) Print fun(100000) End Sub
在窗体上添加: ChessBoard - PictureBox,AutoRedraw=true,width=3000,height=3000,Enabled=false Command1 - Button,Caption="开战" Command2 - Button,Caption="退出" 'White By RichTextBox (张力-广西百色市) Option Explicit Option Base 1 Dim cx As Long, cy As Long Dim ch(3, 3) As Integer Dim sco(3, 3) As Integer 'White By RichTextBox (张力-广西百色市) Private Sub Command2_Click() End