マインスイーパーもどき(VBA)
ExcelのVBAでマインスイーパーもどきを作っていますが、どうも上手くいきません。9が地雷で0が何もないと言うことです。以下、ソースです。
Sub mine()
Dim minefield(11, 13) As Integer
Dim i As Integer, a As Integer, b As Integer, x As Integer
x = 0
Randomize
For i = 1 To 20
a = Int(Rnd * 10) + 1
b = Int(Rnd * 12) + 1
If minefield(a, b) = 9 Then
x = x + 1
i = i - 1
End If
minefield(a, b) = 9
Next i
MsgBox "地雷が" & x & "回重複"
countMine minefield, 10, 12
showInt minefield, 10, 12
show minefield, 10, 12
End Sub
Sub show(f() As Integer, h As Integer, w As Integer)
Dim a As Integer, b As Integer
For a = 1 To 10
For b = 1 To 12
If (f(a, b) = 9) Then CStr(f(a, b)) = "*"
If (f(a, b) = 0) Then CStr(f(a, b)) = " "
Next b
Next a
End Sub
If (f(a, b) = 9) Then CStr(f(a, b)) = "*"
If (f(a, b) = 0) Then CStr(f(a, b)) = " "
の部分でコンパイル時に
「コンパイルエラー:修正候補 識別子」
とでます。ヘルプを見てもよくわかりませんでした。
テキストが長すぎるので途中は省きました。
よろしくお願いします。