練習問題/解答例/素数判定/Ｅｘｃｅｌ VBA の履歴ソース(No.2)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 履歴 を表示
• 練習問題/解答例/素数判定/Ｅｘｃｅｌ VBA へ行く。
  • 1 (2013-06-30 (日) 01:08:18)
  • 2 (2013-06-30 (日) 01:08:18)
  • 3 (2013-06-30 (日) 12:00:51)

 Sub Exit_For使用例()
 Dim num As Integer
 num = Range("A1").Value
    For i = 2 To (num - 1)
       If num Mod i = 0 Then
           Range("A1").Value = num & "は素数ではない"
           Exit For
       Else
           Range("A1").Value = num & "は素数"
       End If
    Next i
 End Sub