打地鼠游戏的编程文案可以根据不同的编程语言和游戏设计需求来编写。以下是几种不同编程语言的打地鼠游戏编程文案示例：
Scratch游戏《打地鼠》
学习目标
学习经典小游戏制作。
自己编写一款打地鼠游戏，自娱自乐。
视频讲解
直接观看视频课程学习。
Java游戏《HitMouse》
```java
package hitmouse；
import java.util.Random；
import java.util.Scanner；
public class HitMouse {
public static void main（String[] args） {
int[] map = new int； // 定义一个数组
Random rand = new Random（）； // 随机数变量实例化
Scanner scan = new Scanner（System.in）； // 获得控制台输入
int pos； // 地鼠位置
int newpos； // 用户输入位置
while （true） {
for （int i = 0； i < map.length； i++） {
map[i] = 0； // 数值所有数赋值为0
}
pos = rand.nextInt（5）； // 5以内的随机数
map[pos] = 1； // 地鼠的位置（1表示地鼠位置）
for （int temp : map） {
System.out.print（temp）； // 输出数组
}
System.out.println（"请输入打击位置："）；
newpos = scan.nextInt（）； // 控制台输入的数字赋值给newpos
if （pos == newpos） { // 判断位置是否正确
System.out.println（"打中了!"）；
} else {
System.out.println（"没打中!"）；
}
}
}
}
```
VB.NET游戏《打地鼠》
```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
Timer.Stop（）
MsgBox "时间到!!!"
MsgBox "您一共打中 " & sum & " 只地鼠，继续努力!"
End If
Dim i As Long
For i = 0 To 8
' LoadPicture
Next i
Randomize（）
i = Rnd（） * 8
' End
End Sub
Private Sub picture1_click（）
If Not .Picture Is Nothing Then
sum = sum + 1
MsgBox "已经打中 " & sum & " 只地鼠!"
End If
End Sub
```
HTML5游戏《打地鼠》