国外开发游戏代码百科
创建9个命令，1个定时器，时间20000，9个文本和6个farm。
布局如图所示
代码如下所示
私人？Sub？Form_Load()
Text1。文字？=?"100"?我们剩下的士兵
文本2。文字？=?"170"?对方剩余的士兵
短信3。文字？=?"180"?对方剩余的士兵
文本4。文字？=?"200"?对方剩余的士兵
文本5。文字？=?"500"?金钱
文本6。文字？=?"170"?军事指挥官的血量
短信7。文字？=?"120"?军事指挥官的血量
文本8。文字？=?"150"?军事指挥官的血量
文本9。文字？=?"151"?军事指挥官的血量
结束？潜水艇
私人？Sub？command1_click()
如果？Text1。文字？& lt？"0"?还是？文本6。文字？& lt？"0"?然后
MsgBox？“无法攻击！”
否则:
做
Text1。文字？=?Text1。文字？-?五
文本2。文字？=?文本2。文字？-?10
文本6。文字？=?文本6。文字？-?10?你的攻击力暂定为200。
短信7。文字？=?短信7。文字？-?5?你的攻击力暂定为200。
循环？直到？文本2。文字？=?"0"?还是？短信7。文字？=?"0"
MsgBox？“这一轮进攻胜利！”
文本5。文字？=?文本5。文字？+?500
结束？如果
结束？潜水艇
私人？Sub？command2_click()
如果？Text1。文字？& lt？"0"?还是？文本6。文字？& lt？"0"?然后
MsgBox？“无法攻击！”
否则:
做
Text1。文字？=?Text1。文字？-?10
短信3。文字？=?短信3。文字？-?10
文本6。文字？=?文本6。文字？-?10?你的攻击力暂定为200。
文本8。文字？=?文本8。文字？-?10
循环？直到？短信3。文字？=?"0"?还是？短信7。文字？=?"0"
MsgBox？“这一轮进攻胜利！”
文本5。文字？=?文本5。文字？+?300
结束？如果
结束？潜水艇
私人？Sub？command3_click()
如果？Text1。文字？& lt？"0"?还是？文本6。文字？& lt？"0"?然后
MsgBox？“无法攻击！”
否则:
做
Text1。文字？=?Text1。文字？-?20
文本4。文字？=?文本4。文字？-?10
文本6。文字？=?文本6。文字？-?10?你的攻击力暂定为200。
文本9。文字？=?文本9。文字？-?10
循环？直到？文本4。文字？=?"0"?还是？短信7。文字？=?"0"
MsgBox？“这一轮进攻胜利！”
文本5。文字？=?文本5。文字？+?700
结束？如果
结束？潜水艇
私人？Sub？command4_click()
Text1。文字？=?Text1。文字？+?100
文本5。文字？=?文本5。文字？-?50
如果？文本5。文字？=?"0"?然后
MsgBox？“没钱！”
如果？Text1。文字？=?"0"?然后
MsgBox？“没有士兵！”
结束？如果
结束？如果
结束？潜水艇
私人？Sub？command5_click()
文本6。文字？=?Text1。文字？+?300
文本5。文字？=?文本5。文字？-?100
如果？文本5。文字？=?"0"?然后
MsgBox？“没钱！”
如果？文本6。文字？=?"0"?然后
MsgBox？“没有血！”
结束？如果
结束？如果
结束？潜水艇
私人？Sub？command6_click()
文本6。文字？=?Text1。文字？+?1000
文本5。文字？=?文本5。文字？-?500
如果？文本5。文字？=?"0"?然后
MsgBox？“没钱！”
如果？文本6。文字？=?"0"?然后
MsgBox？“没什么可买的！”
结束？如果
结束？如果
结束？潜水艇
私人？Sub？command7_click()
MsgBox？“城市名称；洛阳黄金500？兵马170？张飞，守城将军！”
结束？潜水艇
私人？Sub？command8_click()
MsgBox？“城市名称；长安金400？兵马180？守城将军孙权！”
结束？潜水艇
私人？Sub？command9_click()
MsgBox？“城市名称；合肥黄金700？兵马200？姜维，守城将军！”
结束？潜水艇
私人？苏必夫？Timer1？=?"0"?然后
MsgBox？“台风来了！”
Text1。文字？=?Text1。文字？-?100
文本5。文字？=?文本5。文字？-?100
结束？潜水艇