Private Sub Command1_Click()x = Text1.Texts = 1a = 1Dok = k + 1a = a * -1 * x ^ 2 / ((2 * k - 1) * (2 * k))s = s + aLoop Until Abs(a) < 10 ^ -6Text2.Text = sEnd Sub