VB坦克大战代码.doc

资源ID：2389326 资源大小：21.50KB 全文页数：5页
资源格式： DOC 下载积分：8金币

快捷下载

会员登录下载

三方登录下载：

下载资源需要8金币

邮箱/手机：
温馨提示：	用户名和密码都是您填写的邮箱或者手机号，方便查询和重复下载（系统自动生成）
支付方式：
验证码：	换一换

加入VIP免费专享

账号：
密码：
验证码：	换一换
当日自动登录忘记密码？

友情提示

1、下载资料失败解决办法

2、PDF文件下载后，可能会被浏览器默认打开，此种情况可以点击浏览器菜单，保存网页到桌面，就可以正常下载了。

3、本站不支持迅雷下载，请使用电脑自带的IE浏览器，或者360浏览器、谷歌浏览器下载即可。

4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩，下载后原文更清晰。

5、试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓。

网站客服

侵权投诉

VB坦克大战代码.doc

Private Sub Form_Load() La.Top = 4000 La.Left = 3000 La.Height = 800 La.Width = 900 Lb.Top = 4300 Lb.Left = 3900 Lb.Height = 200 Lb.Width = 900 Lc.Top = 4300 Lc.Left = 4560 Lc.Height = 200 Lc.Width = 200 End SubPrivate Sub Form_keypress(keyascii As Integer) If keyascii = 106 ThenLa.Enabled = FalseLb.Enabled = FalseIf La.Top - Lb.Top = 900 And Lb.Left - La.Left = 300 Then Lc.Top = La.Top - 900 Lc.Left = La.Left + 300 Lc.Visible = True Timer1.Enabled = True Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False ElseIf La.Left - Lb.Left = 900 And Lb.Top - La.Top = 300 Then Lc.Top = La.Top + 300 Lc.Left = La.Left - 900 Lc.Visible = True Timer1.Enabled = False Timer2.Enabled = True Timer3.Enabled = False Timer4.Enabled = False ElseIf Lb.Top - La.Top = 900 And Lb.Left - La.Left = 300 Then Lc.Top = La.Top + 1600 Lc.Left = La.Left + 300 Lc.Visible = True Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = True Timer4.Enabled = False ElseIf Lb.Left - La.Left = 900 And Lb.Top - La.Top = 300 Then Lc.Top = La.Top + 300 Lc.Left = La.Left + 1600 Lc.Visible = True Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = True End IfElseIf keyascii = 119 Then La.Enabled = True Lb.Enabled = True Lb.Left = La.Left + 300 Lb.Top = La.Top - 900 La.Height = 900 La.Width = 800 Lb.Width = 200 Lb.Height = 900 If Lb.Top <= 0 Then Lb.Enabled = False La.Enabled = False Else La.Top = La.Top - 100 Lb.Top = Lb.Top - 100 End IfElseIf keyascii = 97 Then La.Enabled = True Lb.Enabled = True Lb.Left = La.Left - 900 Lb.Top = La.Top + 300 La.Height = 800 La.Width = 900 Lb.Width = 900 Lb.Height = 200 If Lb.Left <= 0 Then Lb.Enabled = False La.Enabled = False Else La.Left = La.Left - 100 Lb.Left = Lb.Left - 100 End If ElseIf keyascii = 100 Then La.Enabled = True Lb.Enabled = True Lb.Left = La.Left + 900 Lb.Top = La.Top + 300 La.Height = 800 La.Width = 900 Lb.Width = 900 Lb.Height = 200 If Lb.Left >= 8700 Then Lb.Enabled = False La.Enabled = False Else La.Left = La.Left + 100 Lb.Left = Lb.Left + 100 End If ElseIf keyascii = 115 Then La.Enabled = True Lb.Enabled = True Lb.Left = La.Left + 300 Lb.Top = La.Top + 900 La.Height = 900 La.Width = 800 Lb.Width = 200 Lb.Height = 900 If Lb.Top >= 7600 Then Lb.Enabled = False La.Enabled = False Else La.Top = La.Top + 100 Lb.Top = Lb.Top + 100 End IfElseIf keyascii = 8 Then EndEnd IfEnd SubPrivate Sub Timer1_Timer() Do While Lc.Top > 0 Lc.Top = Lc.Top - 2 Lc.Left = Lc.Left If Lc.Left > Ld.Left And Lc.Left < Ld.Left + Ld.Width And Lc.Top > Ld.Top And Lc.Top < Ld.Top + Ld.Height Then Ld.Visible = False Lc.Visible = False End If Loop Lc.Visible = False Timer1.Enabled = FalseEnd SubPrivate Sub Timer2_Timer()Do While Lc.Left > 0 Lc.Left = Lc.Left - 2 Lc.Top = Lc.Top If Lc.Left > Ld.Left And Lc.Left < Ld.Left + Ld.Width And Lc.Top > Ld.Top And Lc.Top < Ld.Top + Ld.Height Then Ld.Visible = False Lc.Visible = False End If Loop Lc.Visible = False Timer2.Enabled = FalseEnd SubPrivate Sub Timer3_Timer() Do While Lc.Top < 8880 Lc.Top = Lc.Top + 2 Lc.Left = Lc.Left If Lc.Left > Ld.Left And Lc.Left < Ld.Left + Ld.Width And Lc.Top > Ld.Top And Lc.Top < Ld.Top + Ld.Height Then Ld.Visible = False Lc.Visible = False End If Loop Lc.Visible = False Timer3.Enabled = FalseEnd SubPrivate Sub Timer4_Timer()Do While Lc.Left < 9750 Lc.Left = Lc.Left + 2 Lc.Top = Lc.Top If Lc.Left > Ld.Left And Lc.Left < Ld.Left + Ld.Width And Lc.Top > Ld.Top And Lc.Top < Ld.Top + Ld.Height Then Ld.Visible = False Lc.Visible = False End If Loop Lc.Visible = False Timer4.Enabled = FalseEnd Sub

注意事项

本文（VB坦克大战代码.doc）为本站会员（仙人指路1688）主动上传，三一办公仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。若此文所含内容侵犯了您的版权或隐私，请立即通知三一办公（点击联系客服），我们立即给予删除！

温馨提示：如果因为网速或其他原因下载失败请重新下载，重复下载不扣分。