を実現するプログラム例
Private Sub CommandButton1_Click()
Range("B7").Select
Selection.ClearContents
Cells(1, 1).Select
Dim a As Integer, h As Byte
a = Cells(6, 2)
h = f(a)
If h = 1 Then Cells(7, 1) = "この整数は素数です。" Else Cells(7, 1) = "この整数は素数ではありません。"
End Sub
Function f(a As Integer)
Dim i As Integer, o As Integer
If a = 1 Then
f = 0
Exit Function
End If
If a = 2 Then
f = 1
Exit Function
End If
If a Mod 2 = 0 Then
f = 0
Exit Function
End If
o = Int(Sqr(a))
For i = 3 To o Step 2
If a Mod i = 0 Then
f = 0
Exit Function
End If
Next
f = 1
End Function
Private Sub CommandButton2_Click()
Range("B6:B7").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
さらにこのマクロを改良して、
１から10000までの整数が素数であるかどうかを
判定して表示するマクロを作りましょう。
〜
第３話へ 第５話へ
