Условный оператор (задача) - VB

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

Мотоцикліст повинний прибути в місто через Т годин після виїзду з пункту,що знаходиться на відстані S км від міста.Чи встигне він вчасно прибути в місто, якщо в першу годину він проїде A км,а весь час ,що залишився, буде їхати зі швидкості B км/год?Вирішити задачу при наступних значеннях змінних:T=4,S=320,A=75,B=70.Сделайте пжл с формой Помогите создать програмный код и форму

Решение задачи: «Условный оператор (задача)»

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

                            Private Sub Command3_Click()
Dim S As Double
Dim v_1 As Double
Dim t_1 As Double
Dim v_2 As Integer
Dim t_2 As Integer
Cls
v_1 = Val(Text1.Text) 'Г±ГЄГ®Г°Г®Г±ГІГј Г*Г* 1 ГіГ·Г*Г±ГІГЄГҐ
t_1 = Val(Text2.Text) ' ГЇГ°Г®Г¬ГҐГ¦ГіГІГ®ГЄ ГўГ°ГҐГ¬ГҐГ*ГЁ Г¤ГўГЁГ¦ГҐГ*ГЁГї Г± 1 Г±ГЄГ®Г°Г®Г±ГІГјГѕ
v_2 = Val(Text3.Text) 'Г±ГЄГ®Г°Г®Г±ГІГј Г*Г* 2 ГіГ·Г*Г±ГІГЄГҐ
t_2 = Val(Text4.Text) ' ГЇГ°Г®Г¬ГҐГ¦ГіГІГ®ГЄ ГўГ°ГҐГ¬ГҐГ*ГЁ Г¤ГўГЁГ¦ГҐГ*ГЁГї Г± 2 Г±ГЄГ®Г°Г®Г±ГІГјГѕ
S = Val(Text5.Text)    'Г°Г*Г±Г±ГІГ®ГїГ*ГЁГҐ Г¬ГҐГ¦Г¤Гі ГЇГіГ*ГЄГІГ*Г¬ГЁ
If v_1 * t_1 + v_2 * t_2 >= S Then MsgBox "Г“Г±ГЇГҐГҐГІ" Else MsgBox "ГЌГ… ГіГ±ГЇГҐГҐГІ"
 
End Sub
                        