用vb源代码编写的井子棋

在窗体上添加：ChessBoard-PictureBox,AutoRedraw=true,width=3000,height=3000,Enabled=falseCommand1-Button,Caption="开战"Command2-Button,Caption="退出"'WhiteByRichTextBox(张力-广西百色市)OptionExplicitOptionBase1DimcxAsLong,cyAsLongDimch(3,3)AsIntegerDimsco(3,3)AsInteger'WhiteB