Red de conocimiento informático - Material del sitio web - Para encontrar el valor máximo o mínimo de una matriz en VB, ¿puedo usar la función Max o Min?

Para encontrar el valor máximo o mínimo de una matriz en VB, ¿puedo usar la función Max o Min?

VB no tiene funciones máxima y mínima, debe escribirlas usted mismo

Private Sub Command1_Click()

Dim arr(1 To 100) As Integer

Aleatorizar

Para i = 1 a 100

arr(i) = Int(Rnd * 10000)

Formato de impresión(arr (i), " @@@@ ");

Si Mod 10 = 0 entonces Imprimir

Imprimir

Imprimir "Valor máximo = " & max(arr)

Imprimir "Valor mínimo=" & min(arr)

End Sub

Función privada max(ByRef a() Como entero)

max = a(LBound(a))

Para i = LBound(a) a UBound(a)

Si max < a(i) Entonces max = a(i)

Función final

Función privada min(ByRef a() As Integer)

min = a(LBound(a))

Para i = LBound(a) a UBound(a)

Si min > a(i) Entonces min = a (i)

Función final