77问答网
所有问题
当前搜索:
vb函数求n的阶乘
VB
输入n,
求n的阶乘
答:
For i=1 to
n
s=s*i Next i
VB求阶乘
的代码。
答:
Private Sub Form_Click()Dim
n
As Integer, t#, i n = InputBox("输入正整数", "
阶乘
")t = 1 i = 1 Do While i <= n t = t * i i = i + 1 Loop Print n & "!=" & t End Sub
用
VB
怎样
求n的阶乘
和
答:
Public Function
jiecheng
(ByVal n As Integer) As Integer Dim jc As Integer = 1 For i = 1 To n jc = jc * i Next Return jc End Function
vb求n的阶乘
n
答:
Private Sub Command1_Click()Dim i, j, k For i = 1 To 10 k = 1 For j = 1 To i k = k * j Next Print i & "!=" & k Next End Sub
VB求N的阶乘
的代码请教
答:
你的程序没有错。这已经到了
vb
最大的整数了!如果再大,就不能保证精确程度,那就是把 f As Long 改为 f as double(最后这个单词不知道我是不是拼错了?)可以再大一点。但是也很有限。
用
VB
.NET编写一个程序 :编一
求阶乘的函数
f(n),主调程序求组合数的程序...
答:
Private Sub Command1_Click()Dim A, B, C A = 10 B = 3 C = f(A) / (f(B) * f(A - B))Print C End Sub Private Function f(
n
)Dim I As Integer f = 1 For I = 1 To n f = f * I Next I End Function
vb
系统如何
求阶乘
答:
Function jc(
n
as integer) as long dim i as integer ,m as long m=1 for i=1 to n m=m*i next jc=m End Function
求VB
阶乘函数
fact(
n
)
答:
Function fact(ByVal
n
As Integer) As Long Dim i As Integer Dim s As Long s = 1 For i = 1 To n s = s * i Next fact = s End Function
vb中阶乘
怎么表示
n
!
答:
Function ft(x As Integer) As Doubleft = xIf x > 1 Then ft = x * ft(x - 1)End FunctionPrivate Sub Form_Click() '点击窗体运行MsgBox "10!=" & ft(10)End Sub
急需帮忙,明天考试呀,
VB
算法编写
N的阶乘
答:
Private Sub Command1_Click()Dim n, i, sum As Integer n = 5 '
n的
初值 sum = 1 '1做为
阶乘
的基数,因为乘以任何数都为原数 For i = 1 To n '从1乘到n,这是阶乘的原理 sum = sum * i Next i Print sum '输出结果 End Sub Private Sub Command1_Click()Dim x, y As Single...
棣栭〉
<涓婁竴椤
2
3
4
5
6
7
8
9
10
11
涓嬩竴椤
灏鹃〉
其他人还搜