Составить программу вычисляющую сумму квадратов первых N натуральных чисел. Количество чисел N задаётся во время работы программы. Для разработки использовать приложение Visual Basic.

1. Консольное приложение:Module Module1    Sub Main()        Dim n, i, s As Integer        Console.Write("Введите число N")        n = Console.ReadLine        s = 0        For i = 1 To n            s = s + i * i        Next        Console.Write(s)        n = Val(Console.ReadLine)    End SubEnd Module2. Приложение Windows Forms:На форме 3 объекта:TextBox1 - для ввода NTextbox2 - для вывода суммы квадратовButton1 - чтобы запустить процесс вычисленийPublic Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim i, s As Integer        s = 0        For i = 1 To Val(TextBox1.Text)            s = s + i * i        Next        TextBox2.Text = s    End SubEnd Class