求

For語(yǔ)句實(shí)現(xiàn)

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語(yǔ)句實(shí)現(xiàn)

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

學(xué)習(xí)要求：

1、讀懂題意，根據(jù)每一項(xiàng)的變化寫(xiě)出通項(xiàng)公式。

2、設(shè)定相應(yīng)的變量來(lái)解決問(wèn)題，理解各變量的作用。

轉(zhuǎn)載于:https://www.cnblogs.com/daveylin/p/6944020.html

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。