Математическое задание на VB

[Оленька]

Я, наверное, типичная представительница рода блондинок, которые не могут разобраться ни в чем серьезном
Помогите сделать задание, если это не слишком тяжело для вас:
Необходимо сделать форму с полем ввода, через которое можно будет ввести число Х. После нажатия на кнопку "Расчет", вычислить значение функции Y. Значение Y зависить от того, к какому дипапзону принадлежит значение X

Мне бы хоть математическую функцию перевести на VB, уже буду рада

[GSerg]

Код: Выделить всё

function math(byval x as double) as double
  select case x
  case 5, is<5
    math=x^2/5
  case is>15
    for x=16 to x
      math=math+x
    next
    math=math*2
  case else
    math=x
    for x=7 to x
      math=math*x
    next
    math=math+25
  end select
end function