打开即可运行，正常运行无报错。如果出现莫名其妙的报错，重新导出资源，选择清理导出即可，或者清理缓存。
2021-05-20 16:12:07
6.41MB
1
打地鼠游戏在新游戏页面点击后，即可直接进入游戏。此刻，地鼠会从一个个地洞中不经意的探出一个脑袋，或者一双眼睛，企图躲过游戏者的视线。不用心软，直接敲你的手丫子，拍掌下去，力求一次一个准，来一个砸一个，来二个砸一双。
2021-05-20 14:39:49
55KB
1
在打地鼠游戏中，程序主要是一个随机函数Rnd()，此函数会随机产生“鼠“的位置，然后用户可以根据”鼠“的位置进行单击，单击不成功的话，便会出现”X “，程序便会根据成功的次数与总次数比较，得出用户的成绩，另外用户还可以选择游戏的等级。
2021-05-13 15:01:42
60KB
1
用VB.NET做的小游戏--打地鼠
Public Class Form1
Inherits System.Windows.Forms.Form
Dim pic As New PictureBox
Dim goal As Integer
Dim i As Integer
Dim j As Integer
Dim xx1() As Integer = {135, 277, 417}
Dim xx2() As Integer = {157, 367}
Dim xx3() As Integer = {32, 251, 482}
Dim timer As Double = 1
Dim count As Integer '计时器跳动次数
Dim ifclick As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "小游戏"
Me.Size = New Size(650, 465)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 600
Timer1.Enabled = True
Button2.Visible = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "暂停" Then
Button2.Text = "继续"
Timer1.Enabled = False
PictureBox1.Enabled = False
ElseIf Button2.Text = "继续" Then
Button2.Text = "暂停"
Timer1.Enabled = True
PictureBox1.Enabled = True
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ifclick = False
PictureBox1.Enabled = True
If timer = 0 Then
Timer1.Enabled = False
MsgBox("游戏结束，您的得分：" + goal.ToString)
Button3.Visible = False
Exit Sub
End If
addpic()
timer = 10 - count * 0.5
2021-05-12 19:36:09
402KB
1