请教扫雷的玩法 通过单击即可挖开方块。如果挖开的是地雷，则您输掉游戏。 如果方块上出现数字，则表示在其周围的八个方块中共有多少颗地雷。 要标记您认为可能有地雷的方块，请右键单击它。 资料参考 怎么用VB6.0编写扫雷游戏 部分： dim a(10,10),b(100) as long For i = 1 To 10 For j = 1 To 10 a(i, j) = “0“ Next j Next i For k = 1 To 20 ‘＆sup2;＆frac14;＆Agrave;× 10: a1 = Int(Rnd * 10) + 1 b1 = Int(Rnd * 10) + 1 If a(a1, b1) = “0“ Then a(a1, b1) = “*“ n = n + 1 Else GoTo 10 End If Next k ‘＆Eacute;è＆Ouml;＆Atilde;＆Agrave;×±＆szlig;＆Eacute;＆Iuml;＆micro;＆Auml;＆Ecirc;＆yacute;×＆Ouml; For n = 2 To 9 ‘＆Ouml;＆ETH;＆frac14;＆auml;＆Aring;＆ETH;＆para;＆Iuml; For t = 2 To 9 If a(n, t) = “*“ Then For n1 = n - 1 To n + 1 For t1 = t - 1 To t + 1 If a(n1, t1) ＜＞ “*“ Then a(n1, t1) = LTrim$(Str$(Val(a(n1, t1)) + 1)) End If Next t1 Next n1 End If Next t Next n For i = 2 To 9 If a(1, i) = “*“ Then ‘＆micro;＆Uacute;＆Ograve;＆raquo;＆ETH;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = 1 To 2 For k = i - 1 To i + 1 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If If a(10, i) = “*“ Then ‘＆micro;＆Uacute;＆Ecirc;＆reg;＆ETH;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = 9 To 10 For k = i - 1 To i + 1 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If Next i For i = 2 To 9 If a(i, 1) = “*“ Then ‘＆micro;＆Uacute;＆Ograve;＆raquo;＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;i＆Aacute;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = i - 1 To i + 1 For k = 1 To 2 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If If a(i, 10) = “*“ Then ‘＆micro;＆Uacute;i＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;＆Ecirc;＆reg;＆Aacute;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = i - 1 To i + 1 For k = 9 To 10 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If Next i ‘＆Euml;＆Auml;＆cedil;＆ouml;＆frac12;＆Ccedil;＆Aring;＆ETH;＆para;＆Iuml; If a(1, 1) = “*“ Then ‘＆micro;＆Uacute;1＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;1＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 1 To 2 For j = 1 To 2 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If If a(1, 10) = “*“ Then ‘＆micro;＆Uacute;1＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;10＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 1 To 2 For j = 9 To 10 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If If a(10, 1) = “*“ Then ‘＆micro;＆Uacute;10＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;1＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 9 To 10 For j = 1 To 2 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If If a(10, 10) = “*“ Then ‘＆micro;＆Uacute;10＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;10＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 9 To 10 For j = 9 To 10 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If For i = 1 To 100 b(i) = a((i - 1) ＼ 10 + 1, (i - 1) Mod 10 + 1) Next i 布雷为：10*10型 扫雷游戏的速度 懂得规则 多玩玩就快了 扫雷游戏 部分： dim a(10,10),b(100) as long For i = 1 To 10 For j = 1 To 10 a(i, j) = “0“ Next j Next i For k = 1 To 20 ‘＆sup2;＆frac14;＆Agrave;× 10: a1 = Int(Rnd * 10) + 1 b1 = Int(Rnd * 10) + 1 If a(a1, b1) = “0“ Then a(a1, b1) = “*“ n = n + 1 Else GoTo 10 End If Next k ‘＆Eacute;è＆Ouml;＆Atilde;＆Agrave;×±＆szlig;＆Eacute;＆Iuml;＆micro;＆Auml;＆Ecirc;＆yacute;×＆Ouml; For n = 2 To 9 ‘＆Ouml;＆ETH;＆frac14;＆auml;＆Aring;＆ETH;＆para;＆Iuml; For t = 2 To 9 If a(n, t) = “*“ Then For n1 = n - 1 To n + 1 For t1 = t - 1 To t + 1 If a(n1, t1) ＜＞ “*“ Then a(n1, t1) = LTrim$(Str$(Val(a(n1, t1)) + 1)) End If Next t1 Next n1 End If Next t Next n For i = 2 To 9 If a(1, i) = “*“ Then ‘＆micro;＆Uacute;＆Ograve;＆raquo;＆ETH;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = 1 To 2 For k = i - 1 To i + 1 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If If a(10, i) = “*“ Then ‘＆micro;＆Uacute;＆Ecirc;＆reg;＆ETH;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = 9 To 10 For k = i - 1 To i + 1 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If Next i For i = 2 To 9 If a(i, 1) = “*“ Then ‘＆micro;＆Uacute;＆Ograve;＆raquo;＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;i＆Aacute;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = i - 1 To i + 1 For k = 1 To 2 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If If a(i, 10) = “*“ Then ‘＆micro;＆Uacute;i＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;＆Ecirc;＆reg;＆Aacute;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = i - 1 To i + 1 For k = 9 To 10 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If Next i ‘＆Euml;＆Auml;＆cedil;＆ouml;＆frac12;＆Ccedil;＆Aring;＆ETH;＆para;＆Iuml; If a(1, 1) = “*“ Then ‘＆micro;＆Uacute;1＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;1＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 1 To 2 For j = 1 To 2 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If If a(1, 10) = “*“ Then ‘＆micro;＆Uacute;1＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;10＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 1 To 2 For j = 9 To 10 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If If a(10, 1) = “*“ Then ‘＆micro;＆Uacute;10＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;1＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 9 To 10 For j = 1 To 2 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If If a(10, 10) = “*“ Then ‘＆micro;＆Uacute;10＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;10＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 9 To 10 For j = 9 To 10 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If For i = 1 To 100 b(i) = a((i - 1) ＼ 10 + 1, (i - 1) Mod 10 + 1) Next i 布雷为：10*10型 扫雷游戏 部分： dim a(10,10),b(100) as long For i = 1 To 10 For j = 1 To 10 a(i, j) = “0“ Next j Next i For k = 1 To 20 ‘＆sup2;＆frac14;＆Agrave;× 10: a1 = Int(Rnd * 10) + 1 b1 = Int(Rnd * 10) + 1 If a(a1, b1) = “0“ Then a(a1, b1) = “*“ n = n + 1 Else GoTo 10 End If Next k ‘＆Eacute;è＆Ouml;＆Atilde;＆Agrave;×±＆szlig;＆Eacute;＆Iuml;＆micro;＆Auml;＆Ecirc;＆yacute;×＆Ouml; For n = 2 To 9 ‘＆Ouml;＆ETH;＆frac14;＆auml;＆Aring;＆ETH;＆para;＆Iuml; For t = 2 To 9 If a(n, t) = “*“ Then For n1 = n - 1 To n + 1 For t1 = t - 1 To t + 1 If a(n1, t1) ＜＞ “*“ Then a(n1, t1) = LTrim$(Str$(Val(a(n1, t1)) + 1)) End If Next t1 Next n1 End If Next t Next n For i = 2 To 9 If a(1, i) = “*“ Then ‘＆micro;＆Uacute;＆Ograve;＆raquo;＆ETH;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = 1 To 2 For k = i - 1 To i + 1 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If If a(10, i) = “*“ Then ‘＆micro;＆Uacute;＆Ecirc;＆reg;＆ETH;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = 9 To 10 For k = i - 1 To i + 1 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If Next i For i = 2 To 9 If a(i, 1) = “*“ Then ‘＆micro;＆Uacute;＆Ograve;＆raquo;＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;i＆Aacute;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = i - 1 To i + 1 For k = 1 To 2 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If If a(i, 10) = “*“ Then ‘＆micro;＆Uacute;i＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;＆Ecirc;＆reg;＆Aacute;＆ETH;＆Aring;＆ETH;＆para;＆Iuml; For j = i - 1 To i + 1 For k = 9 To 10 If a(j, k) ＜＞ “*“ Then a(j, k) = LTrim$(Str$(Val(a(j, k)) + 1)) End If Next k Next j End If Next i ‘＆Euml;＆Auml;＆cedil;＆ouml;＆frac12;＆Ccedil;＆Aring;＆ETH;＆para;＆Iuml; If a(1, 1) = “*“ Then ‘＆micro;＆Uacute;1＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;1＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 1 To 2 For j = 1 To 2 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If If a(1, 10) = “*“ Then ‘＆micro;＆Uacute;1＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;10＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 1 To 2 For j = 9 To 10 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If If a(10, 1) = “*“ Then ‘＆micro;＆Uacute;10＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;1＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 9 To 10 For j = 1 To 2 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If If a(10, 10) = “*“ Then ‘＆micro;＆Uacute;10＆ETH;＆ETH;＆pound;＆not;＆micro;＆Uacute;10＆Aacute;＆ETH;＆Agrave;×＆Aring;＆ETH;＆para;＆Iuml; For i = 9 To 10 For j = 9 To 10 If a(i, j) ＜＞ “*“ Then a(i, j) = LTrim$(Str$(Val(a(i, j)) + 1)) End If Next j Next i End If For i = 1 To 100 b(i) = a((i - 1) ＼ 10 + 1, (i - 1) Mod 10 + 1) Next i 布雷为：10*10型 iPad可以下载扫雷吗？ 可以去APP store里搜索扫雷.应该有相关APP。 iPad可以下载扫雷吗？ 应该是不可以的，但网上应该会有类似的游戏