Project Euler - Problem 6

The sum of the squares of the first ten natural numbers is,

1² + 2² + ... + 10² = 385

The square of the sum of the first ten natural numbers is,

(1 + 2 + ... + 10)² = 55² = 3025

Hence the difference between the sum of the squares of the first ten natural numbers and the square of the sum is 3025 - 385 = 2640.
Find the difference between the sum of the squares of the first one hundred natural numbers and the square of the sum.

Answer:
This is a simple problem. Again, I'm using VB.NET to solve this problem. But this time, it is not the Windows App, it's the Console Application. The reason is that we do not need any User Interface here.

So, let's just get right to the code.

Code:

Module Module1

    Sub Main()
        Dim x, y As Double

        For i As Integer = 1 To 100
            x = x + i
        Next

        For j As Integer = 1 To 100
            y = y + (j ^ 2)
        Next

        Console.WriteLine("Square of the sum of the first one hundred natural numbers : " & x ^ 2)
        Console.WriteLine("Sum of the squares of the first one hundred natural numbers : " & y)
        Console.WriteLine("Hence, the difference of both numbers is " & (x ^ 2) & " - " & y & " = " & (x ^ 2) - y)
    End Sub

End Module

Here's what it looks like :

From the picture above, we can see that the answer is 25164150. 

Good luck trying !

Cyber  Frost

Project Euler - Problem 28

Starting with the number 1 and moving to the right in a clockwise direction a 5 by 5 spiral is formed as follows:

21 22 23 24 25
20  7  8  9 10
19  6  1  2 11
18  5  4  3 12
17 16 15 14 13

It can be verified that the sum of the numbers on the diagonals is 101.
What is the sum of the numbers on the diagonals in a 1001 by 1001 spiral formed in the same way?


To solve this problem, I used VB.NET. Here are the design and the code.

Design:

It consists of 1 Textbox, 1 Label, and 1 Button.


Code:

Public Class Form1
    Dim x, y, z, a, b, c As Integer
    Dim num As Double
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        c = 1
        z = 1
        x = TextBox1.Text
        If x > 0 And x Mod 2 = 1 Then
            For a = 1 To x * 2 - 2
                y = 2 * c
                z = z + y
                num = num + z
                b = b + 1
                If b = 4 Then
                    c = c + 1
                    b = 0
                End If
            Next
        Else
            MsgBox("Spiral must be of odd size and has a minimum size of 1.")
            End
        End If
        Label1.Text = num + 1
    End Sub
End Class



Explanation:

The Textbox receives the size of the spiral.

Note that the size must be an odd number starting from the minimum of 1. 

The sum of the numbers on the diagonals will be shown in the Label. 

Answer to PROBLEM 28 of Project Euler :

The sum of the numbers on the diagonals in a 1001 by 1001 spiral formed in the same way is  669171001.

 

Happy Coding !

Cyber Frost

VB.NET - PROGRAM 1

Name : Text Transport
Difficulty : Very Easy

Today, I will show you how to make a program which transports the text input in the Textbox into a Label.


First of all, create a new Windows Application Project.

An empty form will show.

Now, drag a Textbox, a Label, and a Button from the toolbox on the left. It will look somewhat like this :

Click once on the Form. Change its "Text" Property to : Text Transport
If you do not know already, the properties box is located on the lower right of your VB.NET screen.
  
Click once on the Button and change its "Text" Property to : Transport


Click once on the Label and clear its "Text" Property.

It will now look like this :

Here comes the fun part, coding. 

Simply right click on the form and choose View Code.
 Now, you should be in the code editor.

All you have to do is copy this code and paste it into your code editor:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = TextBox1.Text
    End Sub

End Class

Next, run the program by pressing F5 or clicking the green play button on the top. 
 A window will show, you may type anything into the textbox (for example : ABC) and then clicking on the Transport button. The text on the Textbox (which is ABC) will be copied onto the Label which indicates that you are successful.

Happy Coding !

Cyber Frost