Our Odd Numbers code in Visual Basic.
Odd Numbers Class File:
Public Class OddNumbers
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_odd_numbers
Sub Main()
' Use the even number Class
Dim lower_boundary = 1
Dim upper_boundary = 100
Dim odd_list As New OddNumbers
odd_list._init_(lower_boundary, upper_boundary)
Dim answer = odd_list.prepResult()
Console.WriteLine("Odd numbers between " & lower_boundary & " and " & upper_boundary & " are:")
Console.Write(String.Join(", ", answer))
End Sub
End ModuleTry it out!
Elegance (0.0)
