网站建设资讯

NEWS

网站建设资讯

vb点虐 计算阶乘 vb求阶乘的程序设计

VB.NET 怎样编写使用Do While 循环输出1-10的阶乘,我是新手请加上文字说明,呵呵,谢谢各位了!

首先在窗体上画两个控件:TextBox1和Button1

成都创新互联公司专业为企业提供霍城网站建设、霍城做网站、霍城网站设计、霍城网站制作等企业网站建设、网页设计与制作、霍城企业网站模板建站服务,10多年霍城做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。

TextBox1用来输入需要计算那个数的阶乘

双击Button1进入输入代码,代码如下

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim Factorial As Integer = 1 '定义一个变量用来记录阶乘的结果

Dim count As Integer '定义一个变量用来记录需要计算那个数的阶乘

Dim i As Integer = 1 '定义一个数用来循环

count = Int(Val(Me.TextBox1.Text)) '把TextBox1的值赋值给count

Do While i = count '下面开始计算阶乘

Factorial = Factorial * i '计算阶乘

i += 1 '自增1

Loop

MessageBox.Show(Int(Val(Me.TextBox1.Text)) "的阶乘是:" Factorial, "完成", MessageBoxButtons.OK) '弹出计算结果

Catch ex As Exception '出错提示

MessageBox.Show(Err.Description, "出错了", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

用VB.Net自定义过程,求阶乘!

Private Function a%(b)

s = 1

For i = 1 To b

s = s * i

Next i

a = s

End Function

Private Sub Form_activate()

For i = 1 To 10

n = n + a(i)

Next i

Print n

End Sub

用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点虐 计算阶乘 vb求阶乘的程序设计
文章网址:http://cdweb.net/article/ddiigpc.html