Public Sub km(N As Integer)
 Dim m As Integer
  If N > 1 Then
    m = N * km(N - 1)
 Else
    km(1) = 1
 End If
Print shr$(N) & "的阶乘是：" & Str$(m)
End Sub
Private Sub Form_Load()
Dim num As Integer
num = InputBox("enter a number from 0 to 20 or -1 to end:")
If num > 0 And num <= 20 Then
  km num
End If
End Sub

Function km(N As Integer) As Integer
Dim m As Integer
m=1
If N > 1 Then
   m = N * km(N - 1) '要有返回值的话就要用Function
Else
   m = 1
End If
km=m
End Sub

Private Sub Form_Load()
Dim num As Integer
num = InputBox("enter a number from 0 to 20 or -1 to end:")
If num > 0 And num <= 20 Then
Print shr$(N) & "的阶乘是：" & Str(km(num))
End If
End Sub

'N!   
 'Print N_jx(6)
 
'递归方式
 Public Function N_jx(cs As Long) As Double
 if cs<1 then
   exit function
 end if
 If cs = 1 Then
     N_jx = 1          '这里是返回值，左边不能用再带括号。带括号是引用。
 Else
     N_jx = cs * N_jx(cs - 1)
 End If
 End Function
'----上面是我前面回贴子时写的，下面是用你的改的--------
'我函数名与你的不同，这个无所谓，参数类型不同，我改你的定义。
Private Sub Form_Load()    '在这个事件中使用 PRINT 方法，就必须设置 自动重绘为 真，否则看不到结果。
 Dim num As string
dim num1 as long
 num = InputBox("enter a number from 0 to 20 or -1 to end:")
if isnumber(num) then  '判断输入是否为数字
   num1=clng(num)       '转化为长整数
 If num1 > 0 And num1 <= 20 Then        '判断范围
   print num1 ; " 的阶乘是：" ; N_jx(num1)         '如果使用 print 进行输出的话，建议使用分隔符进行连接各个输出内容，已节省系统开销。
 else   '不在范围提示
   print "输入的数据不在 0 - 20 这间。"
 end if
else    '不是数字时提示
   print "输入的不是数值"
end if
 End Sub

还有的话，当求20的阶乘的时候，Integer可能不够大，建议改大点的数据类型。

晕，在网页里打字，就是慢。

我代码是直接在 编辑框里 输入的。

2楼 的提示你也要看。

不能定义一个Sub通用过程吗，我定义的是Sub过程不是Function过程，我想定义一个Sub通用过程递归调用后直接在Sub通用过程中用Print输出结果

我定义的是Sub过程不是Function过程，我想定义一个Sub通用过程递归调用后直接在Sub通用过程中用Print输出结果

不能。

因为 SUB 过程没有返回值，也就没办法递归调用。

如果你要定义为 SUB ，那就要使用 循环写。

Public Sub km(N As Integer)
 Dim m As Double
dim i as long
m=1
for i=1 to N
   m=m*i
next i

 Print shr$(N) & "的阶乘是：" & Str$(m)
 End Sub

因为 SUB 过程没有返回值，也就没办法递归调用。
不是吧

sub过程到最后当N=1时不能返回一个值是吧，懂了。谢谢大家