正N角形の内角を割り出し偶数か奇数かを判別させてみました。
-------------------
Sub CheckEvenAngle()
Dim n As Integer
Dim angle As Double
' 辺の数を入力してもらう
n = InputBox("正N角形の辺の数を入力してください")
' 入力値が有効かどうかを確認
If n < 3 Then
MsgBox "正N多角形の辺の数は3以上でなければなりません"
Exit Sub
End If
' 正多角形の内角の角度を計算
angle = ((n - 2) * 180) / n
' 内角が偶数かどうかを確認
If angle Mod 2 = 0 Then
MsgBox "正" & n & "角形の内角は" & angle & "度で、偶数です"
Else
MsgBox "正" & n & "角形の内角は" & angle & "度で、奇数です"
End If
End Sub
実行したらN値を入力・・・
角度を計算し、偶数か奇数かを判別。
3以上の数値以外が入力されると・・・
エラー表示されます。
キス内の場合は・・・
小数点以下を指定していないので12桁まで表示します。
ちなみに、3〜100角形の中で、内角が偶数なN角形は・・・
3, 4, 5, 6, 9, 10, 12, 15, 18, 20, 30, 36, 45, 60, 90
内角は奇数ですが整数となるN角形は・・・
8, 24, 40, 72
また、101〜1000角形の中で、内角が偶数なN角形は・・・
180
内角は奇数ですが整数となるN角形は・・・
120, 360
なお、1001〜10000角形の中で、内角が偶数なN角形も内角は奇数ですが整数となるN角形も現れません。※10000角形の内角は179.964°でした。
Adobe Illustrator28.6では1000角形までしか描画出来ませんが、ほとんど円です。
