во-первых, зачем тебе две скорости, когда скорость первого уже дана в условии(скорость первого 11 км/ч), поэтому вместо v1=textbox надо написать v1=11потом, при присваивании переменным значений, надо не просто писать textbox1 или textbox2, а писать надо val(textbox1.text) и так везде) и пользуйся лучше не 6 версией, а на новой версии бейзика - на платформе .net ) удачи!
все формулы прописываем для товара а и далее растягиваем
искомое значение - буква необходимого нам товара
таблица - таблица, где прописаны товар и его цена/товар и его количество, выделяем без шапочки таблицы, не забывая поставить знак $, так как диапазон изменяться не будет
номер столбца/номер строки - у нас второй столбец, вторая строчка, поэтому 2
интервальный просмотр - ложь, так как значения не отсортированы по возрастанию, нам нужно точное совпадение
стоимость находим перемножая цену и количество
Поделитесь своими знаниями, ответьте на вопрос:
Где ошибка? вот : из пункта а в пункт б движется велосипедист с постоянной скоростью 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)