VB语言题目:计算y=2/3!+5/6!+8/9!
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 11:59:45
![VB语言题目:计算y=2/3!+5/6!+8/9!](/uploads/image/z/9735353-17-3.jpg?t=VB%E8%AF%AD%E8%A8%80%E9%A2%98%E7%9B%AE%3A%E8%AE%A1%E7%AE%97y%3D2%2F3%21%2B5%2F6%21%2B8%2F9%21)
VB语言题目:计算y=2/3!+5/6!+8/9!
VB语言题目:计算y=2/3!+5/6!+8/9!
VB语言题目:计算y=2/3!+5/6!+8/9!
Private Sub Command1_Click()
Dim I As Integer, N As Double
N = 0
For I = 2 To 8 Step 3
N = N + I / (Factorial(I + 1))
Next
Print N
End Sub
Function Factorial(X As Double) As Double
If X = 1 Then
Factorial = 1
Else
Factorial = X * Factorial(X - 1)
End If
End Function