程序改为以下，就不会“溢出”：
Function s(n As Integer) ' As Integer不要
If n = 1 Then
s = 1
Else
s = s(n - 1) * n
 End If
End Function

Private Sub form_click()
'Dim x As Integer不要
x = s(10)
Print x
End Sub