admin 管理员组

文章数量: 1184232


2024年4月30日发(作者：kindeditor上传图片和视频)

Vb制作小游戏

一、射击游戏

Option Explicit

Dim RandX As Single

Dim RandY As Single

Dim Score As Single

Dim Thisscore As Single

Dim Average As Single

Dim Shot As Integer

Dim Appear As Boolean

Dim Distance As Single

Private Sub Command1_Click()

d = True

d = True

If d = True Then

n = "暂停"

End If

d = True

End Sub

Private Sub Command2_Click()

If d = True Then

MsgBox "请先结束游戏", 48, "警告"

Else

End

End If

End Sub

Private Sub Command3_Click()

d = False

n = "继续"

d = Not d

If d = True Then

n = "暂停"

End If

End Sub

Private Sub Command4_Click()

d = False

d = False

d = True

n = "射击："

n = "平均得分："

n = "环数："

n = "总分："

d = False


本文标签： 游戏 图片 上传

版权声明：本文标题：vb小游戏制作 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1714454680a680813.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。