扫雷游戏,扫雷游戏说明

157 0
怎么用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 ‘²¼À× 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 ‘ÉèÖÃÀ×±ßÉϵÄÊý×Ö For n = 2 To 9 ‘ÖмäÅÐ¶Ï 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 ‘µÚÒ»ÐÐÅÐ¶Ï 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 ‘µÚÊ®ÐÐÅÐ¶Ï 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 ‘µÚÒ»ÐУ¬µÚiÁÐÅÐ¶Ï 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 ‘µÚiÐУ¬µÚÊ®ÁÐÅÐ¶Ï 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 ‘Ëĸö½ÇÅÐ¶Ï If a(1, 1) = “*“ Then ‘µÚ1ÐУ¬µÚ1ÁÐÀ×ÅÐ¶Ï 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 ‘µÚ1ÐУ¬µÚ10ÁÐÀ×ÅÐ¶Ï 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 ‘µÚ10ÐУ¬µÚ1ÁÐÀ×ÅÐ¶Ï 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 ‘µÚ10ÐУ¬µÚ10ÁÐÀ×ÅÐ¶Ï 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 ‘²¼À× 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 ‘ÉèÖÃÀ×±ßÉϵÄÊý×Ö For n = 2 To 9 ‘ÖмäÅÐ¶Ï 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 ‘µÚÒ»ÐÐÅÐ¶Ï 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 ‘µÚÊ®ÐÐÅÐ¶Ï 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 ‘µÚÒ»ÐУ¬µÚiÁÐÅÐ¶Ï 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 ‘µÚiÐУ¬µÚÊ®ÁÐÅÐ¶Ï 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 ‘Ëĸö½ÇÅÐ¶Ï If a(1, 1) = “*“ Then ‘µÚ1ÐУ¬µÚ1ÁÐÀ×ÅÐ¶Ï 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 ‘µÚ1ÐУ¬µÚ10ÁÐÀ×ÅÐ¶Ï 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 ‘µÚ10ÐУ¬µÚ1ÁÐÀ×ÅÐ¶Ï 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 ‘µÚ10ÐУ¬µÚ10ÁÐÀ×ÅÐ¶Ï 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 ‘²¼À× 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 ‘ÉèÖÃÀ×±ßÉϵÄÊý×Ö For n = 2 To 9 ‘ÖмäÅÐ¶Ï 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 ‘µÚÒ»ÐÐÅÐ¶Ï 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 ‘µÚÊ®ÐÐÅÐ¶Ï 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 ‘µÚÒ»ÐУ¬µÚiÁÐÅÐ¶Ï 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 ‘µÚiÐУ¬µÚÊ®ÁÐÅÐ¶Ï 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 ‘Ëĸö½ÇÅÐ¶Ï If a(1, 1) = “*“ Then ‘µÚ1ÐУ¬µÚ1ÁÐÀ×ÅÐ¶Ï 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 ‘µÚ1ÐУ¬µÚ10ÁÐÀ×ÅÐ¶Ï 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 ‘µÚ10ÐУ¬µÚ1ÁÐÀ×ÅÐ¶Ï 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 ‘µÚ10ÐУ¬µÚ10ÁÐÀ×ÅÐ¶Ï 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夹21底必雷;两2夹11底必雷;两2夹n3所23底都雷;两2靠边2底都雷;连续三1间1雷;连续四1两边1雷————21并2、1格才能适用候比3或4附近已经标雷剩1或2颗能确定使用原则些原则熟练掌握能做眼看并迅速点右键标雷、双击格达100秒内水平<br /><br />电脑XP,随便点始扫雷,按键盘“Windows 徽标键+M“ (化所窗口),再用鼠标原窗口, 倒计停止.(要用鼠标原,若用键盘“Windows 徽标键+ Shift + M“ 原化窗口 倒计停止

扫雷游戏怎么?

几个原则很简单。首先,如果一个格附近的所有雷都已被标记,同时按下左右键就会自动扫开它附近剩余的格,省的你一个个的按了。排成一行的格中,两个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个雷

如何玩好“扫雷”这个游戏?

扫雷”概述“扫雷”游戏的目标是尽快找到雷区中的所有地雷,而不许踩到地雷。如果挖开的是地雷,您将输掉游戏。 <br /><br />策略与技巧: <br />a.如果无法判定某方块是否有雷,请用右键单击两次给它标记一个问号 (?)。以后,您可以用鼠标右键单击方块一次将该方块标记为地雷或者或用鼠标右键单击方块两次去掉标记。 <br />b.如果某个数字方块周围的地雷全都标记完,可以指向该方块并同时点击鼠标左右键,将其周围剩下的方块挖开。如果编号方块周围地雷没有全部标记,在同时使用两个按钮单击时,其他隐藏或未标记的方块将被按下一次(即闪烁一下)。 <br />c.寻找常见的数字组合,这通常会指示地雷的常见组合。例如,在一组未挖开的方块的边上相邻的三个数字 2-3-2 表示这三个数旁边有一排有三个地雷。 <br /><br />策略与技巧: <br />a.如果无法判定某方块是否有雷,请用右键单击两次给它标记一个问号 (?)。以后,您可以用鼠标右键单击方块一次将该方块标记为地雷或者或用鼠标右键单击方块两次去掉标记。 <br />b.如果某个数字方块周围的地雷全都标记完,可以指向该方块并同时点击鼠标左右键,将其周围剩下的方块挖开。如果编号方块周围地雷没有全部标记,在同时使用两个按钮单击时,其他隐藏或未标记的方块将被按下一次(即闪烁一下)。 <br />c.寻找常见的数字组合,这通常会指示地雷的常见组合。例如,在一组未挖开的方块的边上相邻的三个数字 2-3-2 表示这三个数旁边有一排有三个地雷。 <br /><br />扫雷玩法: <br />在“游戏”菜单上,单击“开局”。 <br />要启动计时器,请单击游戏区中的任何方块。 <br /><br />注意: <br />通过单击即可挖开方块。如果挖开的是地雷,则您输掉游戏。 <br />如果方块上出现数字,则表示在其周围的八个方块中共有多少颗地雷。 <br />要标记您认为可能有地雷的方块,请右键单击它。 <br />游戏区包括雷区、地雷计数器和计时器。 <br /><br />然后就剩下多加练习了,毕竟任何游戏都是熟能生巧的


提示:支持键盘“← →”键翻页