求做一个简单vb的打地鼠游戏。 明天要交好久没搞好

来源:百度知道    2019/5/30 0:40:25
责任编辑:李平
字体:

好心游戏问答中心有网友提出了一个比较有代表性的问题【求做一个简单vb的打地鼠游戏。 明天要交好久没搞好】,【求做一个简单vb的打地鼠游戏。 明天要交好久没搞好】具体问题如下:

求做一个简单vb的打地鼠游戏。
明天要交好久没搞好
小编觉得可能对其他网友也有帮助,所以将此问答整理出来了,希望对您有帮助。

小编为您搜罗的答案1

1、控件:
Picture1(0~8) 排三列三排
Timer1 Interval设为1000
Text1 Text 设为0
Command1 caption 设为“开始”
2、代码:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim m, i, n As Integer
Private Sub Form_Load()
Timer1.Enabled = False
For l = 0 To 8
Picture1(l).Visible = False
Next l
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If i < 9 Then
Picture1(i).Visible = False
End If
Randomize
i = (Rnd() * 8) Mod 10
Picture1(i).Visible = True
Picture1(i).ZOrder
If n = 10 Then
Picture1(i).Visible = False
If Text1 >= 80 Then
m = m + 1
c = MsgBox("恭喜你过关了。你的得分为" & Text1 & vbCrLf & "是否进入" & m + 1 & "关", 4)
If c = vbYes Then
Timer1.Interval = Timer1.Interval - 100 * (11 - m) / 10
Else
Timer1.Enabled = False
End If
Else
MsgBox "请重新开始!"
End If
n = 0
Text1 = 0
End If
n = n + 1
End Sub
Private Sub Picture1_Click(Index As Integer)
Select Case Index
Case Index
If Index = i Then
Timer1.Enabled = False
Text1 = Text1 + 10
MsgBox "恭喜你!"
Timer1.Enabled = True
End If
End Select
End Sub 本回答被网友采纳

小编为您搜罗的答案2

昨天也有个人问 你们不会是同学吧 请注意:本文为编辑制作专题提供的资讯,页面显示的时间仅为生成静态页面时间而非具体内容事件发生的时间,由此给您带来的不便敬请谅解!

相关攻略及问答:

求做一个简单vb的打地鼠游戏。 明天要交好久没搞好

问:求做一个简单vb的打地鼠游戏。 明天要交好久没搞好

答:昨天也有个人问 你们不会是同学吧

教我做一个超级超级简单的VB打地鼠游戏吧,要图文...

答:图文并茂。。。。好难啊~~ 流程给你讲一下吧 9个 图片控件 1个 按钮控件 2个时间控件 按钮按下 游戏开始 按下按钮的 事件 应该是修改 时间控件 响应为 true 时间控件 是 设置时间间隔 然后 清空 图片控件的 图片 随机 1~9数字 随机数字对应 9个 ...

如何用VB程序设计打地鼠游戏

答:下面是源代码: Form1: Private Sub Form_Load() Dim temp As Integer Randomize temp = Int(Rnd * 3) + 1 Form1.Picture = LoadPicture("C:\Users\Administrator\Desktop\打地鼠\picture" & temp & ".jpg") WindowsMediaPlayer1.URL = "C:\User...

vb打地鼠游戏中,怎样才能让地鼠在地洞中随机出现呀?

答:随机函数RND 假如当前共有N个地洞 那随机出的数=INT((N-1)* RND) +1 然后再判断当前随机出的数是否有显示就可以了

求大神指导用vb怎么做打地鼠游戏

答:1、控件: Picture1(0~8) 排三列三排 Timer1 Interval设为1000 Text1 Text 设为0 Command1 caption 设为“开始” 2、代码: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim m, i, n As Integer Private Sub Form...

VB制作打地鼠游戏的图片问题

问:最近做了一个打地鼠游戏……先显示没有地鼠的图片,用随机数显示有地鼠的...

答:添加Imgae控件,在Image中添加图片 然后调用 Picture1(pre).Picture = Image1.Picture

打地鼠vb编程,越简单越好

答:Private Const totaltime = 30 Private sum As Long, nt As Long Private Sub Command1_Click() '结束按钮 End End Sub Private Sub timer1_timer() If Timer - nt > totaltime Then Timer1.Enabled = False MsgBox "时间到!!!" Text1.Text =...

用vb编写小游戏 类似接水果 我们来找茬 打地鼠等等...

答:搜索答案 我要提问 用vb编写小游戏 类似接水果 我们来找茬 打地鼠等等简单的小游戏 最好有代码或有现成的 谢谢 好人一生平安首页 问题 全部问题 经济金融 ...

下面这些用vb做的小程序,哪个更简单易做

问:哪个比较适合新手的,简单易做的

答:《电脑配置选择》, 这个应该是最简单的了。

www.haoxyx.com true http://getqq.haoxyx.com/g/790/7903139.html report 3956 好心游戏问答中心有网友提出了一个比较有代表性的问题【求做一个简单vb的打地鼠游戏。明天要交好久没搞好】,【求做一个简单vb的打地鼠游戏。明天要交好久没搞好】具体问题如下:求做一个简单vb的打地鼠游戏。明天要交好久没搞好小编觉得可能对其他网友也有帮助,所以将此问答整理出来了,希望对您有帮助。小编为您搜罗的答案11、控件:Picture1(0~8)排三列三排Timer1Interval设为1000Text1Text设为0Command1caption设为“开始”2、代
最近关注
首页推荐
热门图片
最新添加资讯
24小时热门资讯
精彩资讯
精彩推荐
热点推荐
真视界
精彩图片
社区精粹
关于本站 | 广告服务 | 手机版 | 商务合作 | 免责申明 | 招聘信息 | 联系我们
Copyright © 2004-2017 haoxyx.com All Rights Reserved. 好心游戏网 版权所有
京ICP备10044368号-1 京公网安备11010802011102号