をローカル１次元配列を利用して実現するプログラム例
Private Sub CommandButton1_Click()
Dim a As Integer, cn As Integer
Dim s(3000) As Integer
cn = 2
s(0) = 2
s(1) = 3
For a = 1 To 10000
h = f(a, s())
Cells(3 + a, 1) = a
If h = 1 Then
Cells(3 + a, 2) = "素数"
If a > 3 Then
s(cn) = a
cn = cn + 1
End If
Else
Cells(3 + a, 2) = "非素数"
End If
Next
For i = 0 To 3000
If s(i) = 0 Then Exit Sub
Cells(4 + i, 4) = s(i)
Next
End Sub
Function f(a As Integer, s() As Integer)
Dim i As Integer, o As Integer
If a = 1 Then
f = 0
Exit Function
End If
If a = 2 Then
f = 1
Exit Function
End If
If a Mod 2 = 0 Then
f = 0
Exit Function
End If
o = Int(Sqr(a))
For i = 1 To 3000
If s(i) > o Then
f = 1
Exit Function
End If
If a Mod s(i) = 0 Then
f = 0
Exit Function
End If
Next
f = 1
End Function
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
さて、次は２次元配列h(10,10)を宣言して、
h(0,0)=1,h(0,1)=2,・・・,h(0,9)=10
h(1,0)=11,h(1,1)=12,・・・,h(1,9)=20
h(2,0)=21,h(2,1)=22,・・・,h(2,9)=30
・
・
・
h(9,0)=91,h(9,1)=92,・・・,h(9,9)=100
と代入して、これを利用してエクセルシートに
と表示させるマクロを考えましょう。
今回も、最初はグローバル配列
Dim h(10, 10) As Integer
Private Sub CommandButton1_Click()
・
・
・
を定義してそれを利用することにしましょう。
尚、後の学習課題である
２次元For文
For i = 0 To 9
For j = 0 To 9
＊＊
Next
Next
先取りしておきます。
これは、次のように動きます。
i = 0 のとき、
j = 0 → j = 1 →・・・→j = 9
i = 1 のとき、
j = 0 → j = 1 →・・・→j = 9
i = 2 のとき、
j = 0 → j = 1 →・・・→j = 9
・
・
・
i = 9 のとき、
j = 0 → j = 1 →・・・→j = 9
動きを表にしますと、
