You can create the factorial of desired number. Try this code:
Private Sub Command1_Click()
Dim fact As Integer
fact = 1
Dim num As Integer
Dim i As Integer
num = InputBox("Enter Number..")
For i = 1 To Val(num)
fact = fact * num
num = num - 1
Next
Label1.Caption = fact
End Sub
The value of 9 factorial plus 6 factorial is 363,600
It is 4060.
factorial of -1
26 factorial is 403,291,461,126,605,635,584,000,000
1 factorial = 1
27 factorial = 10,888,869,450,418,352,160,768,000,000
Factorial 65 = 8247650592082470666723170306785496252186258551345437492922123134388955774976000000000000000
Zero factorial = 1
34 factorial = 295,232,799,039,604,140,847,618,609,643,520,000,000.
18 factorial is 6,402,373,705,728,000.
40 Factorial = 815,915,283,247,897,734,345,611,269,596,115,894,272,000,000,000
Factorial 6 = 720