vb求n阶乘表达式

题目

vb求n阶乘表达式
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入一个正整数： ")
Print Fac(n)
End Sub
Private Function Fac(m) As Long
'' '请不要删除该行,只在下一行中填空'
For k = 2 to
Fac = Fac * k
Next k
End Function

答案

Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入一个正整数：")
Print Fac(n)
End Sub
Private Function Fac(m) As Long
'' '请不要删除该行,只在下一行中填空'
For k = 2 To m
Fac = Fac * k
Next k
End Function

举一反三

已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．

查看答案

我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好

查看答案

奥巴马演讲不用看稿子.为什么中国领导演讲要看?

查看答案

想找英语初三上学期的首字母填空练习……

查看答案

英语翻译

查看答案