Sub ボタン1_Click() ‘ Exp(10)
Dim V As Single: V = 1
Dim X As Single: X = 10
Dim K As Single: K = 1
N = 100: XX = X
With Worksheets("Sheet1")
For i = 1 To N
V = V + XX
XX = XX * X / (i + 1)
.Cells(i + 1, 1) = i
.Cells(i + 1, 2) = V
Next
End With
End Sub |
Sub ボタン2_Click() ‘ Exp(-10)
Dim V As Single: V = 1
Dim X As Single: X = -10
Dim K As Single: K = 1
N = 100: XX = X
With Worksheets("Sheet1")
For i = 1 To N
V = V + XX
XX = XX * X / (i + 1)
.Cells(i + 1, 1) = i
.Cells(i + 1, 4) = V
Next
End With
End Sub |