关于VB的题 输入一个正整数N,计算出N!并输出.
题目
关于VB的题 输入一个正整数N,计算出N!并输出.
答案
Private Sub Form_Click()
Dim n As Integer
n = InputBox("请输入一个正整数n")
s = 1
For i = n To 1 Step -1
s = s * i
Next i
Print n & "!=" & s
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 如果a,b互为相反数,c,d互为倒数,表示有理数m的点到原点的距离是1,求(a+b)/(a+b+c)+cd+m的值
- 有没有英语好的,帮我看看这道题为什么选A!或者是不是答案错了?
- 我的销售额是1150元,利润是15%,成本是多少
- 已知两圆C1(x-4)²+y²=169,C2 (x+4)²+y²=9,动圆在C1内部且和圆C1内切,和圆C2外切,求动圆圆心的轨迹方程
- 现有如下两个反应: (A)NaOH+HCl=NaCl+H2O (B)2FeCl3+Cu=2FeCl2+CuCl2 (1)根据两反应本质判断,_能设计成原电池(填“A”或“B”). (2)如果(A或B)
- He was so strong that he could lift the box.(用enough改写)
- 灯泡的灯柱上常涂上一些暗红色物质,目的是除去灯泡中O2,延长寿命.这种物质是?铁丝,木炭,红磷,硫磺
- will tomorrow sunny be warm and(
- 笔算加法和减法都要把什么数位对齐
- 已知sin(-2/π-α)X cos(-2/5π-α)=60/169 且4/π<α<2/π 求sinα与cosα的值