Sub Exit_For使用例()
'いわゆる試し割りで素数かどうか判定する
'いろいろ調べてもっと効率よく計算できるように改造しましょう
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

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2023-02-23 (木) 23:33:35