Народ! Те, кто юзает VB.
С элементарнейшей расчетной задачей обратился ко мне один товарищ, но реализация только на VB. В глаза среду VB не видел, поэтому прошу: кому не сложно, выложите код решения на VB, плиз! А то не принимают ни на CppB, ни на Дельфях, php &etc, что я и сам бы сделал.

Вот задачка:
1. Вычислить величину Y:
z, если z>0
Y= 0, если 0<=z<=1
z*z, если z>1

где z=x*x + 5x

2. Вычислить величину Y:
x*x*x + 3x + 4, если x принадлежит [0,1]
Y= 5 * (x*x*x + 3x + 4), если х<0
0,5, если x>1

или даже проще:
положите код приложения на VB, выводящий на экран какой-нить x=2+2