Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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