用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

程序如下

dim x,y

y=1

for x=1 to 100

y=xy

next

三要素？其实你编程没必要在意这些事情。如果非要说的话，事件也应该算是有吧，三要素是：事件源、事件、响应

◆事件源：发生该事件的是哪个对象？例如，哪个按钮会被单击，或哪个窗体被加载（即事件实际发生的位置）。

◆事件：将要发生什么事情，以及您希望响应什么事情？识别事件是非常重要的，因为许多控件都会触发多个事件。

◆响应：当事件发生时，您希望执行哪些程序语句

VB求阶乘需要Function 过程来实现。

Function 语句，声明 Function 过程的名称，参数以及构成其主体的代码。

以下是求输入数的阶乘代码：

    Dim Sum As Double

    Dim N As Integer

    Dim i As Integer

Private Function fact(N As Integer) As Double

    fact = 1

    Do While N > 0

        fact = fact  N

        N = N - 1

    Loop

End Function

Private Sub Command1_Click()

    N = Val(Text1Text)

    Sum = fact(N)

    Text2 = Sum

End Sub

Private Sub Form_Load()

    Text1 = "": Text2 = ""

End Sub

Private Sub Command1_Click()

Dim a As Double '定义2个double类型的变量

Dim count As Double

count = 1 '给一个变量赋值

For a = 1 To 100 Step 1 ' 一个for循环 从1到100 每次循环加一

count = count + a '循环时执行 这个公式

Next a '结束循环

Print count '打印count

End Sub如果觉得好请采纳 给个评价 谢谢

Private Sub Command1_Click()

Dim n, i, a, b

n = 100 '假设是100之内的数

For i = 1 To n - 1

If i Mod 2 = 1 Then

a = a + fc(i)

Else

b = b + fc(i)

End If

Next

Print n & "之内奇数阶乘之和=" & a & vbNewLine & n & "之内偶数阶乘之和=" & b

End Sub

Function fc(n)

Dim i

fc = 1

For i = 1 To n

fc = fc i

Next

End Function

以上就是关于用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值全部的内容，包括:用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值、vb中用过程求1到100的干阶乘和、VB编程，求阶乘的过程等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！