Imports System
Public Module Module1
Public Sub Main()
dim firstint,secondint, nextint as integer
Console.WriteLine("Input a number:")
firstint = console.ReadLine()
Console.WriteLine("Input another number:")
secondint = console.ReadLine()
nextint = 0
for i = 1 to 5
nextint = firstint + secondint
firstint = secondint
secondint = nextint
console.WriteLine(nextint)
next
End Sub
End Module