求一个VB精简版能做的简单小游戏的制作过程和代码
private?sub?command0_click()dim?xas?stringx?=?"●"if?command2.caption?=?x?thencommand2.caption?=?"○"elsecommand2.caption?=?"●"end?ifif?command4.caption?=?x?thencommand4.caption?=?"○"elsecommand4.caption?=?"●"end?ifif?command6.caption?=?x?thencommand6.caption?=?"○"elsecommand6.caption?=?"●"end?ifif?command8.caption?=?x?thencommand8.caption?=?"○"elsecommand8.caption?=?"●"end?ifend?subprivate?sub?command1_click()dim?xas?stringx?=?"●"if?command8.caption?=?x?thencommand8.caption?=?"○"elsecommand8.caption?=?"●"end?ifif?command2.caption?=?x?thencommand2.caption?=?"○"elsecommand2.caption?=?"●"end?ifif?command0.caption?=?x?thencommand0.caption?=?"○"elsecommand0.caption?=?"●"end?ifend?subprivate?sub?command2_click()dim?xas?stringx?=?"●"if?command0.caption?=?x?thencommand0.caption?=?"○"elsecommand0.caption?=?"●"end?ifif?command1.caption?=?x?thencommand1.caption?=?"○"elsecommand1.caption?=?"●"end?ifif?command3.caption?=?x?thencommand3.caption?=?"○"elsecommand3.caption?=?"●"end?ifend?subprivate?sub?command3_click()dim?xas?stringx?=?"●"if?command0.caption?=?x?thencommand0.caption?=?"○"elsecommand0.caption?=?"●"end?ifif?command2.caption?=?x?thencommand2.caption?=?"○"elsecommand2.caption?=?"●"end?ifif?command4.caption?=?x?thencommand4.caption?=?"○"elsecommand4.caption?=?"●"end?ifend?subprivate?sub?command4_click()dim?xas?stringx?=?"●"if?command0.caption?=?x?thencommand0.caption?=?"○"elsecommand0.caption?=?"●"end?ifif?command3.caption?=?x?thencommand3.caption?=?"○"elsecommand3.caption?=?"●"end?ifif?command5.caption?=?x?thencommand5.caption?=?"○"elsecommand5.caption?=?"●"end?ifend?subprivate?sub?command5_click()dim?xas?stringx?=?"●"if?command0.caption?=?x?thencommand0.caption?=?"○"elsecommand0.caption?=?"●"end?ifif?command4.caption?=?x?thencommand4.caption?=?"○"elsecommand4.caption?=?"●"end?ifif?command6.caption?=?x?thencommand6.caption?=?"○"elsecommand6.caption?=?"●"end?ifend?subprivate?sub?command6_click()dim?xas?stringx?=?"●"if?command0.caption?=?x?thencommand0.caption?=?"○"elsecommand0.caption?=?"●"end?ifif?command5.caption?=?x?thencommand5.caption?=?"○"elsecommand5.caption?=?"●"end?ifif?command7.caption?=?x?thencommand7.caption?=?"○"elsecommand7.caption?=?"●"end?ifend?subprivate?sub?command7_click()dim?xas?stringx?=?"●"if?command0.caption?=?x?thencommand0.caption?=?"○"elsecommand0.caption?=?"●"end?ifif?command6.caption?=?x?thencommand6.caption?=?"○"elsecommand6.caption?=?"●"end?ifif?command8.caption?=?x?thencommand8.caption?=?"○"elsecommand8.caption?=?"●"end?ifend?subprivate?sub?command8_click()dim?xas?stringx?=?"●"if?command0.caption?=?x?thencommand0.caption?=?"○"elsecommand0.caption?=?"●"end?ifif?command7.caption?=?x?thencommand7.caption?=?"○"elsecommand7.caption?=?"●"end?ifif?command1.caption?=?x?thencommand1.caption?=?"○"elsecommand1.caption?=?"●"end?ifend?subprivate?sub?yun_click()if?command0.caption?=?x?&?command1.caption?=?x?and?command2.caption?=?x?and?command3.caption?=?x?and?command4.caption?=?x?and?command5.caption?=?x?and?command6.caption?=?x?and?command7.caption?=?x?and?command8.caption?=?x?thenlabeL2.caption?=?"成功了~~~~！！！祝贺啊！！！"elselabel2.caption?=?"又没完成！乱点个嘛啊。。"end?ifend?sub
