Задача по VB - VB

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

Не могу написать код на данную задачу " Путник двигался t1 часов со скоростью v1, а затем t2 часов – со скоростью v2 и t3 часов – со скоростью v3. За какое время он одолел первую половину пути, после чего запланировал привал?" Выходит ошибка . Подскажите в чем проблема ? И если возможно , напишите пожалуйста код , буду благодарен

Код к задаче: «Задача по VB - VB»

textual
Private Sub Command1_Click() 
Dim a, b, c As Double 
Dim S, r, u As Double 
a = Val(Text1) 
b = Val(Text2) 
u = Val(Text3) 
u = (180 / 3.14159) * u 
c = Math.Sqr(a) + Math.Sqr(b) - 2 * a * b * (Math.Cos(u)) 
S = 0.5 * a * b * Math.Sin(u) 
r = S / ((a + b + (Math.Sqr(a) + Math.Sqr(b) - 2 * a * b * Math.Cos(u))) / 2) 
Picture1.Print "Сторона с = "; c ^ 0.5 
Picture2.Print "Площадь ="; S 
Picture3.Print " Радиус окружности = "; r 
End Sub

5   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ