Imports System

Public Module Module1

    Public Sub Main()

        max = nNumbers(0)

        For each item in nNumbers

        if item > max then

        'max is item

        end if 

    Next

        Console.WriteLine("Hello World")

    End Sub

End Module

'min number'

        current-min = numbers(0)

        For each item in numbers

        if item < current-min then

        current-min = item

end if

​

     Console.WriteLine("Hello World")

     Dim ns() as integer = (21, 23, 45, 1, 2, 5, 6, 77)

     Dim min as integer = ns(0)

     for each number in ns

     if number < min then

     min2 = min

        min = number

end if

​

​