vb做windows自带的扫雷游戏急代码和解释

[高一信息课作业：如何用VB程序做一个扫雷的小游戏大小只要6]高一信息课作业：如何用VB程序做一个扫雷的小游戏大小只要6，java程序设计扫雷帮助看看：'一个简单扫雷游戏 ， 作者 zfc QQ21338963 邮箱 zfczltom.comOption ExplicitDim Map() As...+阅读

如果是WINDOWS自带的是VC++的编写的这里有个VB代码布局是10*10的，希望对你有用dim a(10,10),b(100) as longFor i = 1 To 10 For j = 1 To 10 a(i, j) = ＂0＂ Next jNext iFor 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 IfNext k'ÉèÖÃÀ*±e79fa5e98193e58685e5aeb931333234313432ßÉϵÄÊý*Ö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 tNext nFor 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 IfNext iFor 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 IfNext 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 iEnd IfIf 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 iEnd IfIf 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 iEnd IfIf 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 iEnd IfFor i = 1 To 100 b(i) = a((i - 1) \ 10 + 1, (i - 1) Mod 10 + 1)Next i布雷为：10*10型详细解释的话，你看下* 0 0 0 * 0 * * *0 1 0 * 5 0 * 8 *0 0 0 * * * * * * (0代表1-8的数字，*代表雷)主要是利用数学上的逻辑原理编写的，具体解释.这在ZHIDAO还是空白，希望兄台看透了发布出来大家共享下了.

以下为关联内容：

怎么用vb做扫雷程序怎么用vb做扫雷程序，关于扫雷程序设计：先说一个 扫雷的吧，，没办法给你源程序， 就给你说制作过程吧， 打开VB6.0 在窗体的上半部分，用pictureBOX控件画一定的区域用来模仿WINDOWS那样...

电脑自带游戏扫雷里的公式是怎么算的电脑自带游戏扫雷里的公式是怎么算的，扫雷技巧口诀有哪些：电脑自带游戏扫雷里的公式：以显示的数字作为九宫格的中心，中心数字为多少就表示周围九宫格存在多少雷，以此来排除扫雷。...

空当接龙游戏4154红心大战扫雷蜘蛛纸牌微软系统自带的程序游戏没空当接龙游戏4154红心大战扫雷蜘蛛纸牌微软系统自带的程序游戏没：看下 C:\WINDOWS\system32里面是否存在这些游戏，从图标就能看出来 例如： winmine.exe 扫雷 mshearts.exe 红心...

诺基亚自带一个和扫雷有点像的船游戏诺基亚自带一个和扫雷有点像的船游戏：技巧： 排成一行的中，两个1夹一个，1底下必有雷； 两个夹一个1，中心的1底下必有雷； 两个夹n个，和底下全有雷； 两个靠边，底下都有雷； 连续的三个1，中间...

电脑自带游戏扫雷到底有什么规律电脑自带游戏扫雷到底有什么规律，在电脑上玩自带的扫雷不会有病毒吧：扫雷是一款windows系统自带的益智游戏，游戏的目标是在最短的时间内找出所有的找出所有的安全格子，同时需要...

VB中的扫雷双击代码是什么VB中的扫雷双击代码是什么，一份扫雷的c语言代码自己编的：假如说你用的commandbutton，那么可以这样Dim a As IntegerPrivate Sub Command1_MouseDown(Button As Integer, Shift...

vb制作扫雷游戏的问题vb制作扫雷游戏的问题，怎样用C Builder编写扫雷游戏：见： ?qbl=relate_question_0&word=vb%BC%D3%D4%D8%BF%D8%BC%FE%CA%FD%D7%E9 自己做了一个： 初始设置： 控件数组Command1（) '通...

windows系统自带的扫雷游戏的技巧windows系统自带的扫雷游戏的技巧，扫雷的问题：恢复Windows XP自带游戏 控制面板-添加删除程序-添加/删除WINDOWS组建-双击附件和工具-游戏前打上钩子就可以了。 没有光盘只能...

扫雷的VB编程扫雷的VB编程，c程序编程扫雷：Private Sub Form_Load()Init_FormEnd Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)Dim x1 A...