Private Sub C1_Click()Dim a, s As SingleFor i = 1 To 10a = 1 / (i * i)s = s + aNextPrint sEnd Sub
Private Sub C1_Click() Dim a, s As Single For i = 1 To 10 a = 1 / (i * i) s = s + a Next
1