怎么用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型 扫雷游戏怎么？ 几个原则很简单。首先，如果一个格附近的所有雷都已被标记，同时按下左右键就会自动扫开它附近剩余的格，省的你一个个的按了。排成一行的格中，两个1夹一个2，1底下必有雷；两个2夹一个1，1底下必有雷；两个2夹n个3，所有的2和3底下都有雷；两个2靠边，2底下都有雷；连续的三个1，中间的1有雷；连续四个1两边的1有雷————这里的2和1并不是只有2、1的格子才能适用，有的时候比如是3或4，但附近已经标了一个雷，剩下1或2颗还不能确定，当然也可以使用这个原则。这些原则熟练掌握，能做到一眼看出，并迅速点右键标雷、双击开格，就可以达到100秒以内的水平。电脑是XP,随便一点开始扫雷,按下键盘“Windows 徽标键+M“ (最小化所有窗口),再用鼠标还原窗口, 倒计时会停止.(要用鼠标还原,若用键盘“Windows 徽标键+ Shift + M“ 还原最小化的窗口 倒计时不会停止 扫雷游戏怎么玩？ 点开一个格子，假如数字是X，就表示包围着X的8个格子里有X个雷