如何用VB做这个三局棋的游戏？(见附图)急！！！！！！！！！！！！！！！

在窗体上绘制11个按钮，前9个是控件数组，style属性设置为1。使用下面的代码。

选项显式

私有子命令1_Click(索引为整数)

静态A(8)为整数

A(索引)= (A(索引)+ 1) Mod 2

如果A(索引)= 0，则

命令1(索引)。BackColor = vbRed

其他

命令1(索引)。BackColor = vbBlue

如果…就会结束

末端接头

私有子命令2_Click()

将I标注为整数

对于i = 0到8

命令1(i)。BackColor = -2147483633

接下来我

末端接头

私有子命令3_Click()

结束

末端接头

私有子窗体_Load()

将I标注为整数

对于i = 0到8

命令1(i)。BackColor = -2147483633

命令1(i)。标题= " "

接下来我

命令2。Caption = "重置"

命令3。Caption = "退出"

末端接头