用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用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

法一：这个方法的思路很直接，数学味较浓。既然在VB6中没有阶乘的运算，那么我就自己造一个函数用来算一个整数的阶乘。

Function TimeStep(Number As Integer) As Long

TimeStep = 1

For i = 1 To Number

TimeStep = TimeStep i

Next

End Function

Private Sub Form_Load()

S = 0

For i = 1 To Val(InputBox("n"))

S = S + TimeStep(i)

Next

MsgBox S

End Sub

法二：这个方法编程味较浓。代码较简单，计算机的运算量较小。

Private Sub Form_Load()

S = 0

For i = 1 To Val(InputBox("n"))

C = 1

For j = 1 To i

C = C j

Next

S = S + C

Next

MsgBox S

End Sub

按照你给出的结果，12345=120 。其源代码如下：

Private Sub Command1_Click()

Cls

n = Val(Text1Text)

For i = 1 To n

Print i;

If (i < n) Then

Print "";

Else: Print "=";

End If

Next i

s = 1

For j = 1 To n

s = s j

Next j

Print s

End Sub

以上就是关于用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值全部的内容，包括:用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值、使用VB 6.0 制作一个程序，求1！+2！+3！+……+n！ 要求输入任意的N，求1到N的阶乘。用Inputbox 和Msgbox、用VB做一个阶乘等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！