包含vb点虐 求n的词条

用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

急求；在VB.NET环境下编写程序，计算并输出下面数列前N（设N=50)项中的和。1*2,2*4,3*6，，，n*2n,,.

Dim i As Integer

Dim sum As Long = 0

For i = 1 To 50

sum += i * 2 * i

Next

MsgBox(sum)

N=50时结果正中游为85850；

上面是一个过程，你可以写成举销一个函培察数！

VB.NET2010 给定求组合数公式为Cmn=m!/n!(m-n)!，编一程序，输入m和n的值，求Cmn的值。要用Sub过程

Module Module1

Private Sub fac(ByVal x As ULong, ByRef y As ULong)

Dim i, a

a = 1

For i = 1 To x

a = a * i

Next i

y = a

End Sub

Sub Main()

Dim m, n, Cmn, c1, c2, c3

Console.WriteLine("m=")

m = Val(Console.ReadLine())

Console.WriteLine("n=")

n = Val(Console.ReadLine())

Call fac(m, c1) : Call fac(n, c2) : Call fac(m - n, c3)

Cmn = c1 / (c2 * c3)

Console.Write("Cmn={0}", Cmn)

End Sub

End Module