DESCUBRIR O MAIOR VALOR DE UM ARRAY

FABIO.ALEXANDRE 04/06/2005 11:36:46
#86973 Resposta escolhida

BOM, ACHO Q ESTA FUNÇÃO VAI LHE AJUDAR
Private Sub Form_Load()

Dim Arr(256) As Integer
Dim var_bEntrou As Boolean
Dim var_nAuxiliar As Integer

Arr(0) = 5
Arr(1) = 80
Arr(2) = 10
Arr(4) = 100
Arr(5) = 121
Arr(6) = 2
Arr(7) = 103
Arr(8) = 80
Arr(9) = 95

'Vou ordena-lo descrescente
Do
var_bEntrou = False
For var_i = LBound(Arr) To UBound(Arr)
If var_i >= UBound(Arr) Then Exit For
If Arr(var_i) < Arr(var_i + 1) Then
var_nAuxiliar = Arr(var_i)
Arr(var_i) = Arr(var_i + 1)
Arr(var_i + 1) = var_nAuxiliar
var_bEntrou = True
End If
Next
If var_bEntrou = False Then Exit Do
Loop
MsgBox "maior Valor => " & Arr(LBound(Arr))
End Sub


ESPERO TER AJUDADO

USUARIO.EXCLUIDOS 04/06/2005 11:38:29
#86974

WOW... FABIO ALEXANDRE.... serviu mesmo kra... mas ai... tah meio cumprido o codigo... mas vlw assim msm.. vou deixar o tópico abeto para mais sugestões.... flw!

USUARIO.EXCLUIDOS 04/06/2005 12:09:05
#86981

dim maior as single

For i=0 to QtdDeVetores
if vetor(i) > maior then
maior=vetor(i)
end if
next

daí ele faz a comparação com a variavel maior, se for maior que ela, a variavel maior fika com o valor do vetor... tbm eh uma opção... não testei

USUARIO.EXCLUIDOS 04/06/2005 16:46:52
#87002

Dim i As Integer
For i = 0 To 256
If Arr(i) > maior Then maior = Arr(i)
Next i

USUARIO.EXCLUIDOS 09/06/2005 16:05:37
#88059

Bom gente vlw mesmo pela ajuda... me tiraram uma dor de cabeça..... mas FABIO ALEXANDRE sua resposta foi a que me ajudou mesmo.... vlw..!