vb點虐 計算階乘 vb求階乘的程序設(shè)計

VB.NET 怎樣編寫使用Do While 循環(huán)輸出1-10的階乘，我是新手請加上文字說明，呵呵，謝謝各位了！

首先在窗體上畫兩個控件：TextBox1和Button1

成都創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供霍城網(wǎng)站建設(shè)、霍城做網(wǎng)站、霍城網(wǎng)站設(shè)計、霍城網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、霍城企業(yè)網(wǎng)站模板建站服務(wù)，10多年霍城做網(wǎng)站經(jīng)驗，不只是建網(wǎng)站，更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。

TextBox1用來輸入需要計算那個數(shù)的階乘

雙擊Button1進入輸入代碼，代碼如下

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

Try

Dim Factorial As Integer = 1 '定義一個變量用來記錄階乘的結(jié)果

Dim count As Integer '定義一個變量用來記錄需要計算那個數(shù)的階乘

Dim i As Integer = 1 '定義一個數(shù)用來循環(huán)

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) '彈出計算結(jié)果

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編寫一個程序 ：編一求階乘的函數(shù)f(n),主調(diào)程序求組合數(shù)的程序，分別調(diào)用f(n),用來計算組合數(shù)的值

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求階乘的程序設(shè)計
分享URL：http://muchs.cn/article32/ddiigpc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制開發(fā)、、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站設(shè)計公司、靜態(tài)網(wǎng)站、移動網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)