Our Even Numbers code in Visual Basic.
Even Numbers Class File:
Public Class EvenNumbers
Dim first As Integer
Dim last As Integer
Dim result As New List(Of Integer)
' Simulate a constructor
Public Sub _init_(alpha As Integer, omega As Integer)
first = alpha
last = omega
End Sub
' Returns an list Of the desired Set Of even numbers
Public Function prepResult() As List(Of Integer)
' Loop from start to stop and rip out even numbers;
Dim i = 0
For i = first To last
If i Mod 2 = 0 Then ' modulo(%) is explained later
result.Add(i)
End If
Next i
Return result
End Function
End ClassMain Class:
Module Arithmetic_even_numbers
Sub Main()
' Use the even number Class
Dim lower_boundary = 1
Dim upper_boundary = 100
Dim even_list As New EvenNumbers
even_list._init_(lower_boundary, upper_boundary)
Dim answer = even_list.prepResult()
Console.WriteLine("Even numbers between " & lower_boundary & " and " & upper_boundary & " are:")
Console.Write(String.Join(", ", answer))
End Sub
End ModuleTry it out!
Elegance (0.0)
