Finne høyeste variabelverdi

[mack_]

Kort og godt: Finnes det noen funksjon i VB som trekker ut høyeste/laveste variabelverdi?

[aadnk]

Laveste/høyste verdi av hva? En array? Egenskaper i objekter?

 

Å finne høyeste og laveste verdi er uansett ingen vanskelig sak. For en array gjør en følgende:

 

Dim aTest(10) As Byte, Tell As Long, lngLow As Long, lngHigh As Long

 

' Initialiser tilfeldighetsgenerator

Randomize

 

' Fyll temporær array med variable verdier

For Tell = LBound(aTest) To UBound(aTest)

    aTest(Tell) = Rnd * 255

Next

 

' Bruk det første elementet for å ha noe å sammenlikne med

lngLow = aTest(LBound(aTest))

lngHigh = aTest(LBound(aTest))

 

' Finn høyeste og laveste verdi

For Tell = LBound(aTest) To UBound(aTest)

   

    ' Korresponder nåværende tall med de to verdiene

    Select Case aTest(Tell)

    Case Is < lngLow

   

        ' Sett den nye laveste verdien

        lngLow = aTest(Tell)

 

        ' Lagre evt. posisjonen til variabelelementet om nødvendig

        ' lngLowPos = Tell

   

    Case Is > lngHigh

   

        ' Sett den nye høyeste verdien

        lngHigh = aTest(Tell)

   

    End Select

   

Next

 

' Vis resultat

MsgBox "Den laveste verdien funnet er " & lngLow & " og den høyeste " & lngHigh, vbInformation

[mack_]

Så det er LBound og Ubound som er greia. Skulle brukes av en kompis til å finne ut hvilken av f.eks 5 variabler som er størst. Takk for hjelpa!

[Richard87]

det er IKKE UBound og LBound det er 'compare' metoden, om

aTest(x) > llAv 'feks

9 'er storre enn' 1

 

disse er cluet... '>' '<'

 

UBound fbrukes til og finne enden pa et array og LBound brukes til og finne begynnelsen pa et array...