哪位大侠用vb设计一扫雷游戏或计算器

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

哪位大侠用vb设计一扫雷游戏或计算器

吧 =检举Public a, b As Double Public CalKey As String Private Sub Form_Load() Text1.Text = 0 End Sub Private Sub Command1_Click(Index As Integer) Text1.Text = Trim(Text1.Text) If Text1.Text = ＂0＂ Then Text1.Text = ＂＂ If Index= 1 Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) ElseIf Index = 12 Then Text1.Text = 0 ElseIf Index = 13 Then Text1.Text = -Val(Text1.Text) End If End Sub Private Sub Command3_Click(Index As Integer) a = Val(Text1.Text) Select Case Index Case 0 CalKey = ＂+＂ Case 1 CalKey = ＂-＂ Case 2 CalKey = ＂*＂ Case 3 CalKey = ＂/＂ Case 4 CalKey = ＂%＂ Call Command4_Click Case 5 CalKey = ＂sqr＂ Call Command4_Click Case 6 CalKey = ＂sin＂ Call Command4_Click Case 7 CalKey = ＂cos＂ Call Command4_Click End Select If Index= 0 Then Text1.Text = Sqr(a) Else Text1.Text = ＂＂ MsgBox ＂二次方根，输入数不能小于0＂ End If Case ＂sin＂ If a >= -1 And a= -1 And a

谁能给一下扫雷vb代码和详细解释急

如果是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'ÉèÖÃÀ*±ßÉϵÄÊý*Ö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做扫雷大体易出来在布雷拿老运行不过去哪位大师

这是我的一段布雷的代码，你看看能不能帮到你。ReDim tp(1 To nandu ^ 2)ReDim tpp(1 To nandu ^ 2)For i = 1 To nandu ^ 2 tp(i) = i Next i For i = 1 To leishu Randomize rod = Int((nandu ^ 2 - i) * Rnd + 1) tpp(i) = tp(rod) tp1 = tp(nandu ^ 2 - i + 1): tp(nandu ^ 2 - i + 1) = tp(rod): tp(rod) = tp1 Next i For i = 1 To leishu xd = (tpp(i) - 1) Mod nandu + 1 yd = (tpp(i) - 1) \ nandu + 1 lei(xd, yd) = True Next i...

以下为关联内容：

用VB编程实现扫雷的思路用VB编程实现扫雷的思路，扫雷的秘诀是什么：'一个简单扫雷游戏 Option Explicit Dim Map() As Integer Dim Row_Num, Col_Num As Integer '范围，一个正方形的边长 Dim Ant_Num A...

C语言课设扫雷游戏设计及论文！C语言课设扫雷游戏设计及论文！c程序编程扫雷：c语言课程设计_扫雷游戏设计/*5.3.4 源程序*/#include#include#include#define LEFTPRESS 0xff01#define LEFTCLICK 0xff10#defin...

谁告诉我扫雷游戏是哪个设计的谁告诉我扫雷游戏是哪个设计的，请问扫雷这个游戏怎么玩：2、请问扫雷这个游戏怎么玩 1代表1的上下左右及斜角合计有一颗雷，依次轮推，2则有2颗，3则有3颗。在确实是炸弹的方格上点了...

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

扫雷的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...

怎样计算扫雷游戏最大安全区域怎样计算扫雷游戏最大安全区域，J2ME扫雷游戏源码：根据《电力设施保护条例》 第十条 电力线路保护区： （一）架空电力线路保护区：导线边线向外侧水平延伸并垂直于地面所形成的两平行...

vb做windows自带的扫雷游戏急代码和解释如果是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...

谁有java记事本或是计算器或是扫雷的import java.awt.*; import java.awt.event.*; import javax.swing.*; public class Calculator extends JFrame { private Container container; private GridBagLayout la...

跪一个扫雷vb代码要详细有界面设计。急需电脑版JAVA扫雷源代码带计时器和自定义超级急：Public Class Form1 Private chks(8, 8) As CheckBox Private Sub Button1_Click(ByVal sender As System.Object, ByVal e...