プロが教える店舗&オフィスのセキュリティ対策術

2から100までの自然数について素数であるか判定したいです。シートのA列には自然数の値、B列には判定結果(TRUE,FALSE)をVBAのスクリプトに出力したいです。

A 回答 (2件)

以下のマクロを標準モジュールに登録してください。



Option Explicit

Sub 素数判定()
Dim i As Long
For i = 2 To 100
Cells(i, 1).Value = i
Cells(i, 2).Value = isPrime(i)
Next
End Sub
Private Function isPrime(ByVal num As Long) As Boolean
Dim i As Long
isPrime = False
For i = 2 To num - 1
If num Mod i = 0 Then Exit Function
Next
isPrime = True
End Function
    • good
    • 1

https://ja.wikipedia.org/wiki/%E3%82%A8%E3%83%A9 …

エラトステネスの篩を作って、素数リストを作るのが手っ取り早いです。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

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


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

人気Q&Aランキング