Определить диаметр d и длину l цилиндрической стальной цапфы вала - VB

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

Определить диаметр d и длину l цилиндрической стальной цапфы вала, рассматривая цапфу как балку, заделанную концом. Нагрузка P на квадратную единицу диаметрального сечения цапфы не должна превышать 30кг/см2; допускаемое напряжение R=800кг/см; полная величина давления на цапфу Q 20 =<(меньше или равно)Q =<(меньше или равно)27т с шагом 0,5т. d=((32*(Q^2))/(3,14*R*P))^(1/4) l=Q/d*P Понятия не имею как приступить к этому безобразию!I need help!=(

Решение задачи: «Определить диаметр d и длину l цилиндрической стальной цапфы вала»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim Q As Single, P As Integer, L As Single, R As Integer, D As Single
Private Sub Command1_Click()
 R = 800 'допускаемое напряжение R=800кг/см
 P = 30  'Нагрузка P на квадратную единицу (кг/см2)
  For Q = 20 To 27 Step 0.5
   D = ((32 * (Q ^ 2)) / (3.14 * R * P)) ^ (1 / 4)
   L = Q / D * P
   Print D; L
  Next Q
End Sub
                        