Факториал в Visual Basic

[zlodei1988]

Помогите записать в S = B!!!!!!!! чтоб считался факториал введеного Х
Private Sub Command1_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 = B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!
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

[EducatedFool]

Неужели сложно набрать 2 слова в строке поиска Яндекса, и через секунду получить готовый код?

http://www.vbfaq.ru/2008/09/naxozhdenie-faktoriala/