第１講 数字の規則的な配置
第５話 数字を２次元に規則的に並べるプログラム例
を実現するアプリ例 Private Sub CommandButton1_Click()
CommandButton2_Click
Dim m As Integer, n As Integer, h As Integer, i As Integer
Dim s As Integer, t As Integer
Dim a(8, 8) As Integer
m = Cells(1, 2)
n = Cells(2, 2)
h = Cells(3, 2)
For i = 0 To n * n - 1
s = Int(i / n)
t = i Mod n
a(s, t) = (h + i * m) Mod (n * n)
Cells(6 + s, 2 + t) = a(s, t)
Next
If kensyou(a, n) = 1 Then
Cells(4, 2) = "すべての数字が網羅されています。"
Else
Cells(4, 2) = "一部の数字しか入っていません。"
End If
End Sub
Function kensyou(a() As Integer, n As Integer)
Dim b(81) As Byte, i As Integer, j As Integer
For i = 0 To n * n - 1
b(i) = 0
Next
For i = 0 To n - 1
For j = 0 To n - 1
b(a(i, j)) = 1
Next
Next
For i = 0 To n - 1
If b(i) = 0 Then
kensyou = 0
Exit Function
End If
Next
kensyou = 1
End Function
Private Sub CommandButton2_Click()
Rows("4:2000").Select
Selection.ClearContents
Range("A1").Select
End Sub
