初学者问题,只给20分,谁先答给谁分。 假如你的函数名叫:Function Fact(n As Long) As Long ..... ..... Fact=Fact(n-1) '返回函数值 .........End Function 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 给你一个最简单的例子:Function jiecheng(n As Integer) As LongDim i, j As Longj = 1For i = 1 To n j = j * iNextjiecheng = j '将 j 作为返回值End Function 直接将结果保存在与函数名同名的变量中eg:function zz() as long zz=结果end function Public Function Factorial(n As Long) As Long If n > 1 Then Factorial = n * Factorial(n - 1) Else Factorial = 1 End IfEnd Function 真对不起各位,因为这个问题很简单,而且我说过谁先答给谁分,所以不好意思了.但是我还是要感谢各位的好意!smile将军 一个关于菜单的问题 一个小问题 mscomm控件的问题 普通的发送消息问题 如何改Msgbox的capition? 关于数据编号的问题,请大家抽空看一下! 怎样垂直打印一个表? 如何在dll中使用调用它的窗口中的控件? dim和private,public有什么区别? 怎样转换字符串!!!!!!!!!中英文混合文本实现跑马灯存在的问题?? Controls.Add的问题 M$有个安装软件,制作完成后生成msi的。谁知道在哪下?
Dim i, j As Long
j = 1
For i = 1 To n
j = j * i
Next
jiecheng = j '将 j 作为返回值
End Function
eg:
function zz() as long
zz=结果
end function
If n > 1 Then
Factorial = n * Factorial(n - 1)
Else
Factorial = 1
End If
End Function
但是我还是要感谢各位的好意!
smile将军