Где ошибка? вот задача: Из пункта А в пункт Б движется велосипедист с постоянной скоростью 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 ) Удачи!