前言：
今天姐妹们对“扫雷小游戏代码”都比较着重，我们都想要了解一些“扫雷小游戏代码”的相关知识。那么小编同时在网络上汇集了一些对于“扫雷小游戏代码””的相关资讯，希望姐妹们能喜欢，同学们一起来学习一下吧！单位不容许电脑装游戏，牛人教你EXCEL中玩扫雷游戏，
单位不容许电脑安装游戏，但是不能不让装OFFICE吧，想了想，用VBA编程编一段代码，玩玩小游戏，打发一下快下班的时间吧！
最后实现了，代码仅需 50行，可移植。
快来演示一下吧：
看看代码：
代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, n, m As Integer
Dim vd, Hd As Integer
Dim sum As Integer
Dim arr(1 To 5, 1 To 5)
Dim bc, br As Integer
‘》》》》》》》》
bc = ActiveCell.Column
br = ActiveCell.Row
If bc < 6 And br < 6 Then
If Cells(br, bc) <> "*" Then
ActiveCell.Interior.Color = 255
sum = sum + 1
Cells(br + 20, bc) = 1
If Cells(26, 6) > 18 Then
For i = 1 To 5
For j = 1 To 5
Cells(i, j).Interior.Color = 255
Next
Next
MsgBox "恭喜你！你赢了！"
End If
Else
For i = 1 To 5
For j = 1 To 5
Cells(i, j).Interior.Color = 255
Next
Next
MsgBox "你输了！"
End If
End If
End Sub
有需要的关注我----私信
标签： #扫雷小游戏代码
