１から入力された数までの素因数を数えるプログラム

質問

こんにちは
１から入力された数（N）までの素因数を数えるプログラムを
作成したいのですが、うまくいきません。
たとえば10と入力すると２と表示されてしまいます。
どこがおかしいのかわかりません。
どなたか教えてください。おねがいします。

N個の配列を用意し、１を入れていき、
素因数でない数の要素には０をいれて、
最終的に１が入っている配列の数を数えて１～Nまでの
素因数の数を数える方法を考えています。

Dim M As Integer
Dim N As Integer
Dim i As Integer
Dim j As Integer
Dim sum As Integer
Dim L(1000) As Double

N = Val(TextBox1)
M = N
i = 1

Do Until i > N
L(i) = 1
i = i + 1
Loop

i = 2
Do Until i > M
j = i * 2
Do Until j > M
L(j) = 0
j = j + 1
Loop
i = i + 1
Loop

sum = 0
For i = 2 To N
If L(i) = 1 Then
sum = sum + 1
End If
Next i

回答No.3

glin · ベストアンサー

素因数というのは素数の間違いでしょうか。
もしそうであれば、素数を調べ上げる古典的な方法である「エラトステネスのふるい」のロジックを実践しようとしているように見えますが、

j = i * 2
Do Until j > M
L(j) = 0
j = j + 1
Loop

の部分を

j = i * 2
Do Until j > M
L(j) = 0
j = j + i 　　　　← 1 ではなく i です。
Loop

とする必要があります。
「エラトステネスのふるい」については検索エンジンで調べると参考になるページがいろいろ見つかるでしょう。

お礼

glinさんアドバイスどうもありがとうございます。
お陰様で正常に動きました。

回答No.5

taknt

i = 2
Do Until i > M
j = i * 2
Do Until j > M
L(j) = 0
j = j + 1
Loop
i = i + 1
Loop

ここのループが 問題ですね。
どの ループが どこまで 処理されるかを 明確に
しておかないと、思ってもいない 流れになりますよ。

お礼

takntさん回答ありがとうございます。
確かに思ってもいない流れになりました。

回答No.4

todo36

>どこがおかしいのかわかりません。
自分で見つけなければ成長しないよ。
バグの見つけ方が分からない？
一行ずつ実行しながらローカルウィンドウ、ウォッチウインドウで監視するとか。

参考URL：

http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/0001/debug/

お礼

todo36さん、アドバイスありがとうございます。
これからは参考ＵＲＬのサイトにかかれていたことを
参考にしていこうと思います。

回答No.2

2ch

あっ失礼。
勘違い。

さっきの無視して

回答No.1

2ch

http://oshiete1.goo.ne.jp/kotaeru.php3?q=153758
今まで見た中で、一番まともな約数を見つける方法

このアルゴリズム最強

約数＝素数の集合を互いに掛け合わせたもの

履歴から、素数を見つける部分だけ利用をしたらいい

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=153758