Visual Basic - Pasar de Pascal a Visual Basic

Module Module1

Sub Main()

'Declaras el arreglo 

Dim numeros() As String = {7, 5, 9, 3, 6, 1, 4}

Dim menor, mayor As Integer

'Iniciamos menor y mayor con el maximo y minimo valor de un entero 

menor = Integer.MaxValue

mayor = Integer.MinValue

'Ciclo para recorrer todo el arreglo 

For i As Integer = 0 To numeros.Length - 1

'Calculamos el mayor 

If (numeros(i) > mayor) Then

mayor = numeros(i)

End If

'Calculamos el menor 

If (numeros(i) < menor) Then

menor = numeros(i)

End If

Next

Console.WriteLine("El menor es " & menor & " y el mayor es " & mayor)

Console.ReadKey()

End Sub

End Module