ためしに!
ためしに!
Sub yakusuu() Dim x As Long Dim i As Long Dim sum As Long Dim kosuu As Variant x = InputBox("正の整数を入力してください") For i = 1 To x If x Mod i = 0 Then sum = sum + i kosuu = kosuu + 1 End If Next i Call MsgBox("約数の和は" & sum & "です") If kosuu = 2 Then Call MsgBox("素数です") Else Call MsgBox("約数の個数は" & kosuu & "です") End If End Sub