Составить программу вычисляющую сумму квадратов первых N натуральных чисел. Коли?

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 Sub End Module 2. Приложение Windows Forms: На форме 3 объекта: TextBox1 - для ввода N Textbox2 - для вывода суммы квадратов 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 Sub End Class