Где ошибка? вот : из пункта а в пункт б движется велосипедист с постоянной скоростью v км/ч. через 1.5 часа после его старта из пункта а стартовал второй велосипедист, который двигался с постоянной скоростью 11 км/ч. построить алгоритм (нарисовать блок-схему) и составить программу на языке программирования для определения: догонит ли второй велосипедист первого во время своего движения при данных значениях расстояния между пунктами а и б и скоростей v. проверить программу на тестах при разных вариантах значений исходных данных. пояснение. программа должна вводить значения расстояния между пунктами а, б - s (км), время t (ч), скорость v (км/ч). в результате должно выводиться одно из двух сообщений: «догонит! » или «не догонит! ». будем считать, что если оба велосипедиста приехали в пункт б одновременно, то второй догнал первого. dim v1, v2, s, t as string private sub button1_click() v1 = textbox1 v2 = textbox2 s = textbox3 t = textbox4 if asc(s / v2 + t) < = asc(s / v1) then label1.caption= "догонит" else label1.caption = "не догонит" end if end sub
Когда используете текстовые поля, нужно при использовании в программе сначала преобразовать тип данных - приограмма воспринимает все, что вводите в текстовую как текст. А значит работать корректно программа не будет - вычисления с текстом она делает по другому. Нужно:
v1 = Val (TextBox1.Text)
v2 = Val (TextBox2.Text)
ы = Val (TextBox3.Text)
Во-первых, зачем тебе две скорости, когда скорость первого уже дана в условии(скорость первого 11 км/ч), поэтому вместо v1=textbox надо написать v1=11
Потом, при присваивании переменным значений, надо не просто писать textbox1 или textbox2, а писать надо Val(TextBox1.Text) и так везде) И пользуйся лучше не 6 версией, а на новой версии бейзика - на платформе .Net )
Удачи!