如何用VB編寫一個自然數階乘的程式

來源：酷知科普網 2.94W

用vb編寫自然數階乘程式，在程式中輸入任何一個自然數便可輕鬆得出其相應的階乘答案。

操作方法

（01）首先啟動VB程式，在“新建工程”介面選擇【標準 EXE】，點選【開啟】按鈕，進入工程頁面後再將最右端下方屬性視窗中Form1的“Caption”的內容改為“自然數的階乘”，如圖所示

（02）單擊最左端工具欄中的【TextBox】,在窗體上拖動變成十字線的滑鼠指標畫出合適的文字框大小，或者是雙擊【TextBox】，會在窗體中自動出現文字框，自己拖動文字框調節大小和位置即可，重複操作建立兩個文字框，如圖所示。

（03）單擊最左端工具欄中的【Label】,在窗體上拖動變成十字線的滑鼠指標畫出合適的標籤大小，或者是雙擊【Label】，會在窗體中自動出現標籤，自己拖動標籤調節大小和位置即可，重複操作建立兩個標籤，如圖所示。

（04）單擊最左端工具欄中的【CommandButton】,在窗體上拖動變成十字線的滑鼠指標畫出合適的控制按鈕大小，或者是雙擊【CommandButton】，會在窗體中自動出現控制按鈕，自己拖動控制按鈕調節大小和位置即可。

（05）單擊“Text1”，在最右端下方的屬性視窗中將“Text"的內容“Text1”刪除並置空，還可單擊“Font”的內容“宋體”後面的“...”按鈕，調節文字框中內容的字型、字形和大小，重複操作Text2文字框。

（06）單擊“Label1”，在最右端下方的屬性視窗中將“Caption"的內容“Label1”改為“請輸入自然數N”，還可單擊“Font”的內容“宋體”後面的“...”按鈕，調節標籤中內容的字型、字形和大小；Label2標籤“Caption”的內容“Label2”改為“階乘結果為”，其餘操作相同。

（07）單擊“Command1”,在最右端下方的屬性視窗中將“Caption"的內容“Command1”改為“計算”，還可單擊“Font”的內容“宋體”後面的“...”按鈕，調節控制按鈕中內容的字型、字形和大小，如圖所示。

（08）雙擊“計算”按鈕，進入編輯程式：Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Double a = Val() c = 1 For b = 1 To a c = c * b Next b = cEnd Sub