練習問題/解答例/素数判定/Ｅｘｃｅｌ VBA の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 練習問題/解答例/素数判定/Ｅｘｃｅｌ VBA へ行く。
• 練習問題/解答例/素数判定/Ｅｘｃｅｌ VBA の差分を削除

 Sub Exit_For使用例()
 'いわゆる試し割りで素数かどうか判定する
 '参考URLを見てもっと効率よく計算できるように改造しましょう
 'いろいろ調べてもっと効率よく計算できるように改造しましょう
 Dim num As Integer
 num = Range("A1").Value
    '1と2は除外
    If num = 2 Then
        Range("A1").Value = "2は素数"
     ElseIf num = 1 Then
        Range("A1").Value = "1は素数ではない"
    Else
    End If
    '2 < num のとき試し割りを実行
    For i = 2 To (num - 1)
       If num Mod i = 0 Then
           '1とnum以外（2から(num - 1)までの数）で割り切れる数があった場合、
           '素数ではないのでループを抜ける
           Range("A1").Value = num & "は素数ではない"
           Exit For
       Else
           Range("A1").Value = num & "は素数"
       End If
    Next
 End Sub