4. 用for----next語句編程求n！=？ 其中n通過輸入對話框輸入，結果顯示在標簽中（四號居中顯示）

Private Sub Command1_Click()

n = CInt(InputBox("請輸入壹個要求階乘的數", "求數的階乘"))

f = 1

For i = 2 To n

f = f * i

Next i

Label1.Caption = "數" & n & "的階乘為" & f

End Sub

Private Sub Form_Load()

Me.BackColor = vbYellow

Command1.Caption = "計算數n的階乘"

Command1.FontSize = 14.25

Label1.Caption = ""

Label1.FontSize = 14.25

Label1.Alignment = 2

End Sub

上一篇:Delphl程序設計

下一篇:車鑰匙沒電了怎麽辦？