出走半生归来已非少年:1到N的阶乘和是怎么样的啊,我的哪里错了
来源:百度文库 编辑:高考问答 时间:2024/07/08 11:52:44
Private Sub Form_click()
Dim i As Integer, y As Integer, k As Integer
n = InputBox("输入n", "")
y = 1
k = 1
For i = 1 To n
k = k * i
i = i + 1
y = y + k
Next i
Text1.Text = "y=" & Str(y)
End Sub
Dim i As Integer, y As Integer, k As Integer
n = InputBox("输入n", "")
y = 1
k = 1
For i = 1 To n
k = k * i
i = i + 1
y = y + k
Next i
Text1.Text = "y=" & Str(y)
End Sub