En VB, 10 números enteros (12, 34, 45, 11, 34, 45, 1, 2, 3, 4) se almacenan en una matriz unidimensional. Programa para encontrar el número máximo y su posición.

Private Sub Form_Click()

Atenuar a como variante

a = Split("12, 34, 45, 11, 34, 45, 1, 2 , 3, 4", ","")

Imprimir "Los datos originales son los siguientes:"

Max = 0

Para i = 0 A UBound (a) - 1

Imprimir a(i); " ";

Si Max < a(i) Entonces

Max = a(i)

b = i

Finalizar si

Siguiente i

Imprimir

Imprimir "El número máximo es: " & Max & " En la posición " & b & ""

End Sub