题目
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
Fac = Fac * k
Next k
End Function
提问时间:2020-12-05
答案
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
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的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1what does Leafie want to do?的中文
- 2已知一组数据为0,1,5,x,7,且这组数据的中位数是5,那么X的取值
- 3I didn’t see her in the meeting-room this morning.She____at the meeting. (d)
- 4盐碱地里有大量的电解质,其土壤保肥能力(与吸附离子有关)差.试解释其原因.
- 5怎样将贮粮食库里的气体取出
- 6内力不改变系统的总机械能?
- 71 已知y=y1+y2,其中y1与x成反比例,且比例系数是k1,y2与x²成正比例,且比例系数是k2.若x=-1时,y=
- 8如图所示,AB和CD是两根固定且平行的水平金属导轨,符号×表示垂直于纸面指向纸面里的磁场的磁感线.现将铜棒EF和GH垂直放在滑轨上,当拉动GH使其向左移动时,发现EF也向左移动,说明
- 9一根长9分米的圆柱形钢材,截成两段后,表面积增加了20平方分米,圆柱型钢材原来的体积是多少立方分米?
- 10下列关于细菌、真菌特征的叙述,不正确的是( ) A.细菌具有细胞结构,但没有成形的细胞核 B.细菌和真菌有的营寄生生活,有的营腐生生活 C.真菌都是通过分裂生殖繁殖后代 D.有的细