Шпоры по информатике3 / Табулир и сумма конеч ряда

Табулирование и сумма конечного ряда

Private Sub Command1_Click()

For x = 0.1 To 1 Step 0.1

Y = 3 ^ x

List1.AddItem x

List2.AddItem Format(Y, "0.000")

Next x

S1 = 1

a = 1

For x = 0.1 To 1 Step 0.1

For n = 1 To 2

a = a * Log(3) * x / (n + 1)

S1 = 1 + a

List3.AddItem S1

Next n

Next x

End Sub

Private Sub Command2_Click()

End

End Sub