Imports System.Windows.Forms
Module Tester
Sub Main()
Dim sum = 0, number As Integer
' add even numbers from 2 to 100
For number = 2 To 100 Step 2
sum += number
Next
Console.WriteLine("The sum is " & sum & "Sum even integers from 2 to 100")
End Sub
End Module
The sum is 2550Sum even integers from 2 to 100