请问这段求N阶乘的程序有什么问题？

计算170以下的就可以，当超过170就溢出了.请问为什么？都设置为Double类型了，为什么还会溢出？
=================================================
Dim i, x, y As Double
If IsNumeric(Text2.Text) = False Then '判断输入是否为数字
MsgBox "输入值非法", vbCritical, "提醒"
Exit Sub
End If
If Int(Text2.Text) - Text2.Text <> 0 Then '判断输入是否为整数
MsgBox "请输入整数", vbCritical, "提醒"
Exit Sub
End If
If Text2.Text < 0 Then
MsgBox "输入值非法", vbCritical, "提醒"
Exit Sub
End If
If Text2.Text > 170 Then
MsgBox "输入值请不要超过170", vbExclamation, "提醒"
Exit Sub
End If
x = 1
y = Text2.Text
For i = 1 To y
x = x * i
Next i
MsgBox Text2.Text & " 的阶乘等于 " & x, vbInformation, "结果"
Text2.Text = ""

请问这段求N阶乘的程序有什么问题？ n!表示n的阶乘，那么n!!表示什么？ 10的n（n>1）次方阶乘后面0的个数 有什么规律？ 求 n!(n的阶乘) C++求n的阶乘！ C语言求n!(n的阶乘) 请问用VB怎么求C=N!/R!(N-R)!的阶乘？ 阶乘有什么用？ 用VB企业版6.0怎么编写求n的阶乘的一个程序？ 求1到n的阶乘之和的 c++程序 急急急急急急