Imports System

Public Module Module1

    Public Sub Main()

        Dim k1, k2, k3 , i As Integer

        Dim S, P As Double

        Dim a As String

        'ввод пользователя

4:      Console.Clear()

        Console.WriteLine("Введите значение k1")

        k1 = Console.Readline()

        Console.WriteLine("Введите значение k2")

        k2 = Console.Readline()

        Console.WriteLine("Введите значение k3")

        k3 = Console.Readline()

        'очистка переменных

1:      S = 0

        P = 1

        i = 1

        'основной цикл

2:      S = S + (-1)^(i+1) * i / (i+1)^2

        P = P * (i+1)^2

        i = i + 1

        If i <= k1 Then  GoTo 2

        'отображение результата

        Console.WriteLine("S = {0}, P = {1}, при k = {2}", S, P, k1)

​

        'если k1 = k3, значит все уже вычислили, запрос прекращения работы

        If k1 = k3 Then 

            Console.WriteLine("Выйти?")

            a = Console.Readline()

            If a = "нет" Then GoTo 4 Else GoTo 5

        End if

        'рассчет с k1 уже сделан

3:      k1 = k1 + 1

        If k1 < k2 Then

            '"добиваем" k1 до k2 (или до k3)

            GoTo 3 

        Else

            'уже увеличили k1 до k2, готовимся к будущему расчету k3

            k2 = K3

            'начинаем расчет k1 (который уже = k2)

            GoTo 1

        End If 

5:      

    End Sub

End Module