VB.NETの位置確認

Question

私は鉱山を開発しており、鉱山を割り当てていますが、鉱山が既に鉱山のある場所に行くのを防ぐアルゴリズムを作成することはできません。これまで：

ます。Public Sub initflags（）

Dim line, column As Integer 
    For line = 0 To 9 
     For column = 0 To 9 
      mat(line, column) = 0 
     Next 
    Next 
    Dim numbandeiras As Integer 
    Dim r, c As Integer 

    Do Until numbandeiras = 34 



     Randomize() 

     line = Int(Rnd() * 10) 
     column = Int(Rnd() * 10) 
     r = line 
     c = column 
     If r And c = 1 Then 


      mat(line, column) = 0 
     Else 
      numbandeiras = numbandeiras + 1 

      Call avisinhos() 

      mat(line, column) = 1 
     End If 


    Loop 

End Sub 

は、誰かが私を助けてもらえますか？ よろしくお願いします。

Answer 1

最も簡単な方法は、例えば、設定する前にチェックすることです：

if mat(line, column) = 0 then 
    numbandeiras = numbandeiras + 1 

    avisinhos() 

    mat(line, column) = 1 
end if 

Answer 2

あなたはいくつかの並べ替えのアレイ内のすべての配置「地雷」を格納する必要があります。あなたがそれらの鉱山で何かをしたいなら、これは最終的には良いです。あなたが鉱山をオブジェクトとして持っていれば、彼らはもっと良いものになります。今は死んでいるか、生きているか、 "？" MSのようなバージョン。

ちょうど私の2セントです。