如何用VB简体版写小游戏

私人?Sub?Command0_Click()

暗淡?xAs?线

x?=?"●"

如果?命令2。标题?=?x?然后

命令2。标题?=?"○"

其他

命令2。标题?=?"●"

结束?如果

如果?命令4。标题?=?x?然后

命令4。标题?=?"○"

其他

命令4。标题?=?"●"

结束?如果

如果?命令6。标题?=?x?然后

命令6。标题?=?"○"

其他

命令6。标题?=?"●"

结束?如果

如果?命令8。标题?=?x?然后

命令8。标题?=?"○"

其他

命令8。标题?=?"●"

结束?如果

结束?潜水艇

私人?Sub?Command1_Click()

暗淡?xAs?线

x?=?"●"

如果?命令8。标题?=?x?然后

命令8。标题?=?"○"

其他

命令8。标题?=?"●"

结束?如果

如果?命令2。标题?=?x?然后

命令2。标题?=?"○"

其他

命令2。标题?=?"●"

结束?如果

如果?命令0。标题?=?x?然后

命令0。标题?=?"○"

其他

命令0。标题?=?"●"

结束?如果

结束?潜水艇

私人?Sub?Command2_Click()

暗淡?xAs?线

x?=?"●"

如果?命令0。标题?=?x?然后

命令0。标题?=?"○"

其他

命令0。标题?=?"●"

结束?如果

如果?命令1。标题?=?x?然后

命令1。标题?=?"○"

其他

命令1。标题?=?"●"

结束?如果

如果?命令3。标题?=?x?然后

命令3。标题?=?"○"

其他

命令3。标题?=?"●"

结束?如果

结束?潜水艇

私人?Sub?Command3_Click()

暗淡?xAs?线

x?=?"●"

如果?命令0。标题?=?x?然后

命令0。标题?=?"○"

其他

命令0。标题?=?"●"

结束?如果

如果?命令2。标题?=?x?然后

命令2。标题?=?"○"

其他

命令2。标题?=?"●"

结束?如果

如果?命令4。标题?=?x?然后

命令4。标题?=?"○"

其他

命令4。标题?=?"●"

结束?如果

结束?潜水艇

私人?Sub?Command4_Click()

暗淡?xAs?线

x?=?"●"

如果?命令0。标题?=?x?然后

命令0。标题?=?"○"

其他

命令0。标题?=?"●"

结束?如果

如果?命令3。标题?=?x?然后

命令3。标题?=?"○"

其他

命令3。标题?=?"●"

结束?如果

如果?命令5。标题?=?x?然后

命令5。标题?=?"○"

其他

命令5。标题?=?"●"

结束?如果

结束?潜水艇

私人?Sub?Command5_Click()

暗淡?xAs?线

x?=?"●"

如果?命令0。标题?=?x?然后

命令0。标题?=?"○"

其他

命令0。标题?=?"●"

结束?如果

如果?命令4。标题?=?x?然后

命令4。标题?=?"○"

其他

命令4。标题?=?"●"

结束?如果

如果?命令6。标题?=?x?然后

命令6。标题?=?"○"

其他

命令6。标题?=?"●"

结束?如果

结束?潜水艇

私人?Sub?Command6_Click()

暗淡?xAs?线

x?=?"●"

如果?命令0。标题?=?x?然后

命令0。标题?=?"○"

其他

命令0。标题?=?"●"

结束?如果

如果?命令5。标题?=?x?然后

命令5。标题?=?"○"

其他

命令5。标题?=?"●"

结束?如果

如果?命令7。标题?=?x?然后

命令7。标题?=?"○"

其他

命令7。标题?=?"●"

结束?如果

结束?潜水艇

私人?Sub?Command7_Click()

暗淡?xAs?线

x?=?"●"

如果?命令0。标题?=?x?然后

命令0。标题?=?"○"

其他

命令0。标题?=?"●"

结束?如果

如果?命令6。标题?=?x?然后

命令6。标题?=?"○"

其他

命令6。标题?=?"●"

结束?如果

如果?命令8。标题?=?x?然后

命令8。标题?=?"○"

其他

命令8。标题?=?"●"

结束?如果

结束?潜水艇

私人?Sub?Command8_Click()

暗淡?xAs?线

x?=?"●"

如果?命令0。标题?=?x?然后

命令0。标题?=?"○"

其他

命令0。标题?=?"●"

结束?如果

如果?命令7。标题?=?x?然后

命令7。标题?=?"○"

其他

命令7。标题?=?"●"

结束?如果

如果?命令1。标题?=?x?然后

命令1。标题?=?"○"

其他

命令1。标题?=?"●"

结束?如果

结束?潜水艇

私人?Sub?yun_Click()

如果?命令0。标题?=?x?& amp?命令1。标题?=?x?然后呢。命令2。标题?=?x?然后呢。命令3。标题?=?x?然后呢。命令4。标题?=?x?然后呢。命令5。标题?=?x?然后呢。命令6。标题?=?x?然后呢。命令7。标题?=?x?然后呢。命令8。标题?=?x?然后

标签2。标题?=?“成功~ ~ ~!!!恭喜你!!!"

其他

标签2。标题?=?“这还没完呢!搞得一塌糊涂。。"

结束?如果

结束?潜水艇