VBAでの素数の求め方

Question

VBA初心者です。
素数を求めるプログラムを作らないといけないのですが、やり方が良く分かりません。
modやloopを使って作るのでしょうか。教えてください。

HAL2010 · Accepted Answer

＃１です。

適当にマクロ作ったら
1～100までで26個
1～1000までで169個
1～10000までで1230個
1～30000までで3246個
だけ素数が発見できました。

1～100までは数字を直接見て確認したので。おそらく間違っていないと思います。
for文とint文と四則演算のみで簡単にできますよ。

Wendy02 · Answer

#4 のWendy02 です。

＞ただ、Functionというのをまだ知らないのですが、そのFunctionがないと素数の判定は組めないものなのでしょうか。

別にそういうわけではないけれども、構造化したほうが、見やすいからです。
ワン・プロシージシャーに直したいのでしたら、

#　flg = PrimeFound(i)

の部分に、そのまま当てはめればよいと思います。

imogasi · Answer

エラストテネスの篩（ふるい）というアルゴリズムはご存知ですか。
もし知らないのならそちらの勉強が先です。
プログラムは、ますロジックやアルゴリズムありき。
http://etlab.mis.ous.ac.jp/knowledge_e/089/explain3.html

Wendy02 · Answer

VBA/VBをする人間だから、誰でも一度はとおる問題かもしれませんね。
問題の解答を書くべきではないのかもしれませんね。しかし、しょせん、インターネット検索で調べれば、同じですから、不愉快になった方が、おられましたらすみません。

一応、#3のHAL2010 さんの個数と比較してみましたが、同じでした。

Sub test()
Dim i As Long, flg As Boolean
Dim Numbers As String, cnt As Long
For i = 1 To 100
 flg = PrimeFound(i)
 If flg Then
　 Numbers = Numbers & "," & i
　 cnt = cnt + 1
　End If
Next i
　MsgBox Mid$(Numbers, 2) & Chr(13) & cnt & "個"
　'MsgBox cnt
End Sub

Function PrimeFound(ByVal n As Long) As Boolean
　Dim div As Long
　div = 2
　Do While div <= (n / 2)
　　If n Mod div = 0 Then
　　　PrimeFound = False
　　　Exit Function
　　End If
　　div = div + 1
　Loop
　PrimeFound = True
End Function

JeanneNet · Answer

こんにちは、じゃんぬねっと です。

とりあえず、調べようと思えばいくばくか見付かりますが、いかがでしょう?
http://www.google.co.jp/search?biw=826&hl=ja&q=VB+%E7%B4%A0%E6%95%B0&lr=

HAL2010 · Answer

学校の課題っぽい匂いがしますのでヒントだけ…
素数とは
その数字自身と１以外で割り切れない整数です。
つまり、その数字未満の、１を除くすべての整数で割り切れなければ素数であることが証明できます。

ループの作り方
for a = 1 to 100
next

aを１から100まで加算し、処理を行います。

int(a/x)
aをxで割った数の整数部分のみを抽出します。

VBAでの素数の求め方

＃１です。

この回答への補足

#4 のWendy02 です。

エラストテネスの篩（ふるい）というアルゴリズムはご存知ですか。

VBA/VBをする人間だから、誰でも一度はとおる問題かもしれませんね。

この回答への補足

こんにちは、じゃんぬねっと です。

学校の課題っぽい匂いがしますのでヒントだけ…

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

こんにちは、じゃんぬねっとです。