Пожалуйста, помогите выполнить задание на языке VBA

[Glenany]

Пожалуйста, помогите выполнить задание на языке VBA

Нужно определить среднюю урожайность пшеницы, если на Р гектарах собрали К тонн. Предусмотреть вывод сообщения о том, чтобы пользователь обязательно ввел в текстовые поля значения начальных данных Р и К. Используя встроенные функции, нужно определить дату окончания сбора урожая, если сбор начался три дня тому назад, а к сегодняшнему дню собрана четверть площади. (Составить схему алгоритма решения задачи, разработать форму и код программы).
2. На складе есть N видов товаров, цена каждого из которых известна (грн). Найти цены товаров в другой валюте (дол.), если задан курс. (Составить схему алгоритма решения задачи, разработать форму и код программы).

Спасибо!!!

 

[ASokol]

На здоровье

 

[bizon2007]

Эксель что ли?

 

[Mr. Q]

вот для vbs:
p = InputBox ("Enter P:","P value","")
if (p > 0) then
k = InputBox ("Enter K:","K value","")
if (k > 0) then
answer=p/k
msgbox "the answer is: " +cstr(answer),vbokonly,"Answer message"
end if
end if


с дробными не работает.

 

[Glenany]

Спасибо всем и отдельно Mr. Q!
Срочно нужно было для института. Теперь саму задело. Буду учить по самоучителю.