Private Sub Command1_Click()
Dim n As Integer
Dim sum As Integer
Dim t As Integer
t = 1
sum = 0
n = InputBox("請輸入n:", "數(shù)據(jù)輸入")
For i = 1 To n
t = i * n
sum = sum + t
Next i
Print "N的階乘為：" & sum
End Sub

總結(jié)

以上是生活随笔為你收集整理的VB键盘输入一个数求阶乘的和的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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