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