time1 = 1
time2 = 365
price1 = 10
price2 = 3650
Answer = " Исходные данные прямой:"
Answer = Answer + vbCrLf + "time1= " + CStr(time1)
Answer = Answer + vbCrLf + "time2= " + CStr(time2)
Answer = Answer + vbCrLf + "price1= " + CStr(price1)
Answer = Answer + vbCrLf + "price2= " + CStr(price2)
Answer = Answer + vbCrLf
Do
Ttime = InputBox(Answer + vbCrLf + "Ведите координату Ttime точки")
If Ttime = "" Then Exit Do
Ttime = CDbl(Replace(Ttime, ".", ","))
Answer1 = Answer + vbCrLf + " Исходные данные точки:"
Answer1 = Answer1 + vbCrLf + "Ttime= " + CStr(Ttime)
Tprice = InputBox(Answer1 + vbCrLf + "Введите координату Tprice точки")
If Tprice = "" Then Exit Do
Tprice = CDbl(Replace(Tprice, ".", ","))
Price = price1 + (Ttime - time1) * (price2 - price1) / (time2 - time1)
Answer1 = Answer1 + vbCrLf + "Tprice= " + CStr(Tprice)
Answer1 = Answer1 + vbCrLf
Answer1 = Answer1 + vbCrLf + " Ответ:"
Answer1 = Answer1 + vbCrLf + "Для точки на прямой Ttime= " + CStr(Ttime)
Answer1 = Answer1 + vbCrLf + " Price= " + CStr(Price)
If Tprice = Price Then Znak = "="
If Tprice < Price Then Znak = "<"
If Tprice > Price Then Znak = ">"
Answer1 = Answer1 + vbCrLf + "Tprice=" + CStr(Tprice) + Znak + "Price=" + CStr(Price)
MsgBox Answer1
Loop
Price = price1 + (Ttime - time1) * (price2 - price1) / (time2 - time1)
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.