.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
扫雷程序“布雷”代码(vb)

作者:未知 来源:月光软件站 加入时间:2005-5-13 月光软件站

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型




相关文章

相关软件