Составить программу расчёта величины программируемого урожая (ц/га) по формуле - VB

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

Программа должна быть написана в двух вариантах: 1)использовать For ... To.. Step, Next 2) использовать IF... GO TO Составить программу расчёта величины программируемого урожая (ц/га) по формуле Y=(Q*KQ)/(1000*g) Где Q – величина фотосинтетически активной радиации (ФАР) за период вегетации, млн. ккал/га; kQ – коэффициент усвоения ФАР посевами, %; g – калорийность единицы урожая биомассы, ккал/га. Величина ФАР изменяется в пределах от 1800 до 2400 млн. ккал/га с шагом 100 млн. ккал. 1 вариант

                    Листинг программы
                
 
                        
                          
                    
dim Y As Double, Q As Integer, KQ As Double, g As Double
Private Sub Form_Load()
For Q=1800 To 2400 Step 100
KQ=InputBox("Введите значение KQ")
g=InputBox("Введите значение g")
Y=(Q*KQ)/(1000*q)
Print Y
Next Q
End Sub

2 вариант

                    Листинг программы
                
 
                        
                          
                    
dim Y As Double, Q As Integer, KQ As Double, g As Double
Private Sub Form_Load()
KQ=InputBox("Введите значение KQ")
g=InputBox("Введите значение g")
jumplabel1
Y=(Q*KQ)/(1000*q)
Print Y
Q=Q+100
If Q<=2400 Then GoTo jamplabel1
else
End Sub

Решение задачи: «Составить программу расчёта величины программируемого урожая (ц/га) по формуле»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim Y As Double, Q As Long, KQ As Double, g As Double
Private Sub Form_Load()
    AutoRedraw = True
    KQ = Val(Replace(InputBox("Введите значение KQ", , 10), ",", "."))
    g = Val(Replace(InputBox("Введите значение g", , 0.9), ",", "."))
    For Q = 1800 To 2400 Step 100
       Y = (Q * KQ) / (1000# * g)
       Print " Q = " & Q, "Y = " & Round(Y, 3)
    Next Q
End Sub