Imports System
Public Module Module1
Public Sub Main()
dim nums(5), max as integer
for i = 0 to 5
Console.WriteLine("enter a number: ")
nums(i) = console.readline
if i = 0
max = nums(i)
elseif i <> 0
end if
if nums(i)>max then
next
console.writeline("the max is: " & max)
End Sub
End Module