素数の求め方について

Question

エラトステネスのふるいという方法を使って、１００までの整数から素数を求めるプログラムを書きたいです。①～③にはどのようなコードを書けばプログラムを完成させられるでしょうか？
回答よろしくお願いします。

Sub b()
Dim Num() As Integer
Dim Max As Integer
Dim a As Integer '素数だった数を数える変数
Dim n As Integer
Dim j As Integer
Cells.colums(1).Clear

Max = 100

ReDim Num(2 To 100) As Integer

For n = 0 To Max　'すべてが素数であるとする
 Num(n) = 0
Next n

For n = 2 To Max　'素数を見つける
 If 　①　 Then
  a = ②
  Cells(a, 1) = ③
  
  For j = n ^ 2 To Max Step n　’素数の倍数を素数でないと判定する
   Num(j) = 1
  Next j
 End If
Next n

End Sub

Comments

[kikukiku]

エラトステネスのふるいという方法を説明すべきではないでしょうか？
※回答者がその方法を調べる必要がなくなり、回答率が上がります。
①～③は自分自身で書いてみて、動作させてみて、うまく動かないようでしたら、
その動かない部分を質問した方が良いと思います。
それともVBAそのものがわからないということでしょうか？
そうであれば、まず質問する前に、VBAについて勉強するところから学習した方が良いと思います。

[Zuishin]

小学校五年生の算数で習うエラトステネスの篩くらい誰でも知っているのでそれはいいとして、宿題をやらせたいなら宿題代行サービスに頼んでください。

[arcxor]

①～③ にコードを追加しても、このプログラムには不備があるため動作しません。

Answer 1

Sub b()
    Dim Num() As Integer
    Dim Max As Integer
    Dim a As Integer                             '素数だった数を数える変数
    Dim n As Integer
    Dim j As Integer
    Cells.Columns(1).Clear

    Max = 100

    ReDim Num(2 To 100) As Integer

    For n = 2 To Max                             'すべてが素数であるとする
        Num(n) = 0
    Next n

    For n = 2 To Max                             '素数を見つける
        If Num(n) = 0 Then
            a = a + 1
            Cells(a, 1) = n
  
            For j = n ^ 2 To Max Step n          '素数の倍数を素数でないと判定する
                Num(j) = 1
            Next j
        End If
    Next n

End Sub