4
Декабрь
2009
Вычислить 1/(2k+1)^2, где k принимает значения от 1 до n
Вычислить 1/(2k+1)^2, где k принимает значения от 1 до n.
Private Sub Command1_Click()
Dim k, n As Integer
Dim sRes As String
On Error GoTo boroda
sRes = InputBox("Input N")
n = CInt(sRes)
For k = 1 To n
Print CStr(1 / (2 * k + 1) ^ 2)
Next
Exit Sub
boroda:
MsgBox "плохо введено значение"
End Sub