Вычисление функции - VB (172577)

Формулировка задачи:

Помогите написать на Visual Basic'e програмку для вычисления фун-ии: A*X^2 + B*X ЕСЛИ X<=0 S= B! ЕСЛИ 0<X<=5 A+1/1+1/2+...+1/B ЕСЛИ X>5 A,B=10 ,X ВВОДИТСЯ С КЛАВИАТУРЫ! ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!

Решение задачи: «Вычисление функции»

textual
                            Листинг программы 
                        

                            Private Sub Комманда1_Click()
Dim A, B, X, S, T
A = 10
B = 10
X = Val(InputBox("Введите значение X", "Ввод данных"))
    Select Case X
    Case Is <= 0
    S = A * X ^ 2 + B * X
    T = X & " < 0"
    Case 0 To 5
    T = "0 < " & X & "<= 5"
    S = 1
       For A = 1 To B
        S = S * A
        Next A
    Case Is > 5
        T = X & " > 5"
        For A = 1 To B
        S = S + 1 / A
        Next A
    End Select
    MsgBox T & vbCrLf & "Результат " & S, 64, "Вывод данных"
End Sub
                        