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

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

Sub 素数判定()
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