香港开个人银行账户:1到N的阶乘和是怎么样的啊,我的哪里错了
来源:百度文库 编辑:中科新闻网 时间:2024/05/05 05:23:15
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