求

For語句實現

Private Sub Command1_Click()Dim s As Long, n As Integer, i As Integern = Val(Text1.Text)s = 1For i = 1 To ns = s * iNext iLabel4.Caption = Str(s) End Sub

Do While語句實現

Private Sub Command1_Click()Dim s As Long, n As Integer, i As Integern = Val(Text1.Text)s = 1i = 1Do While i <= ns = s * ii = i + 1LoopLabel4.Caption = Str(s) End Sub

學習要求：

1、讀懂題意，根據每一項的變化寫出通項公式。

2、設定相應的變量來解決問題，理解各變量的作用。

轉載于:https://www.cnblogs.com/daveylin/p/6944020.html

總結

以上是生活随笔為你收集整理的求n的阶乘【VB代码实现】的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。