扫雷游戏设计代码(VB完善版).docVIP

扫雷游戏VB设计实现 最终界面如下： 显然只需完成三个窗体的设计即可，具体设计界面和代码如下： 主窗体（form10）设计界面： 主窗体（form10）的代码： Dim d(11, 11) As Integer Dim k As Integer Dim v(100) As Integer 定义全局变量 Private Sub Command1_Click(Index As Integer) Timer1.Enabled = True 当点击任意一个命令按钮时（即开始游戏），则启动计时器 i = Index \ 10 + 1 j = Index Mod 10 + 1 将二维数组的元素与命令按钮一一对应 If d(i, j) = 1 Then 判断是否点到地雷 Timer1.Enabled = False 关闭计时器,游戏结束 For i = 1 To 10 For j = 1 To 10 n = 10 * (i - 1) m = j - 1 If d(i, j) = 1 Then Command1.Item(m + n).Picture = LoadPicture(App.Path \2.jpg) 在按钮上显示地雷图片 End If Form1.Show 弹出子窗体1（判断输赢） Next j Next i Else If v(Index) = Index + 1 Then 判断是否插上红旗或是问号图片 Command1.Item(Index).Picture = LoadPicture() 清除图片 Command1.Item(Index).Caption = f(i, j) 调用函数，显示周围地雷数 Command1.Item(Index).Enabled = False 将按钮设为不可用 Label7.Caption = Val(Label7.Caption) + 1 v(Index) = 0 End If h = s(i, j) 调用函数，显示周围的情况（边界） For Y = 0 To 99 If v(Y) = Y + 1 Then Command1.Item(Y).Enabled = True 如果是按钮插上了红旗则将按钮设置为可用 End If Next Y End If For k = 0 To 99 If Command1.Item(k).Enabled = False Then p = p + 1 统计扫过的按钮个数 If p = 90 Then For Y = 0 To 100 v(Y) = 0 Next Y 将数组v的元素重新置0（此步目的为实现重玩而设） Form2.Show 如果等于90个则结束游戏，弹出子窗体2（赢了） End If End If Next k End Sub Private Sub Command1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then 右击鼠标 If v(Index) Index + 1 Then 判断是否已插上红旗 Command1.Item(Index).Picture = LoadPicture(App.Path \1.jpg) 插上红旗 v(Index) = Index + 1