Определить периметры правильных n – угольников - VB

Формулировка задачи:

Очень прошу помощи : Определить периметры правильных n – угольников (10 – угольника, 50 – угольника, 100 – угольника), вписанных в окружность заданного радиуса R. Назначение процедуры: Вычисление стороны правильного n- угольника a=2*R*Sin 180°/n вычисление периметра n- угольника p=n*a

Решение задачи: «Определить периметры правильных n – угольников»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
Me.AutoRedraw = True
Dim n, i As Integer
Dim p, a, r As Single
 
'TO_RAD = 3.14159265358979 / 180
r = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г°Г*Г¤ГЁГіГ± Г®ГЇГЁГ±Г*Г*Г*Г®Г© Г®ГЄГ°ГіГ¦Г*Г®Г±ГІГЁ")
For i = 0 To 2
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГіГЈГ«Г®Гў Гў Г¬Г*Г®ГЈГ®ГіГЈГ®Г«ГјГ*ГЁГЄГҐ")
a = 2 * r * Sin(3.14159265358979 / n)
p = Format(n * a, "0.00")
Print "ГЏГҐГ°ГЁГ¬ГҐГІГ° Г¬Г*Г®ГЈГ®ГіГ«ГјГ*ГЁГЄГ* Г±" + Str(n) + "ГіГЈГ«Г*Г¬ГЁ Г°Г*ГўГҐГ* " + Str(p)
Next
End Sub