Minimumkeresés Visual Basic-ben

[rootcommander 0]

Sziasztok!

 

Most tanulunk Visual Basic-et, még csak az Excell-ben, nagyon alap dolgokat és nem tudok egy feladatot megoldani.

A feladat, hogy van sok felsorolt adat, majd a legkisebb elemet kell megkerestetni benne a minimumkeresés módszerrel. (Elsõ elemrõl feltételezzük, hogy a legkisebb, majd megvizsgáljuk a többit és ha lesz bennük az elsõnél kisebb, akkor azt megjegyezzük és megyünk tovább...)

 

Esetleg tudna nekem segíteni valaki?

[arpsoft 12]

Private Sub minkeres()
 Dim a(100) As Integer
 Dim nIndexmin, nIndexmax, nIndex, nMin, nMinIndex As Integer
 ' itt kell feltölteni a tömböt, ezt nem írtam meg
 nIndexmin = LBound(a) ' a tömb legkisebb indexe
 nIndexmax = UBound(a) ' a tömb legnagyobb indexe ezek akkor kellenek, ha így lenne megadva a tömb dim a(5 to 505) as integer, vagy ha nem tudjuk, hogy van megadva a tömb
 nMin = a(nIndexmin) ' feltesszük, hogy ez a legkisebb elem
 nMinIndex=nIndexMin ' az indexe az elsõ index
 For nIndex = nIndexmin To nIndexmax ' végigmegyünk az elemeken
   If nMin > a(nIndex) Then ' ha az eddigi minimum nagyobb, mint a mostani elem,
     nMin = a(nIndex) 'akkor ez lesz az új minimum
     nMinIndex = nIndex ' az indexet is megjegyezzük
   End If
 Next nIndex
 MsgBox (" Az 'a' tömb legkisebb eleme: " & nMin & ", az elem indexe: " & nMinIndex) ' kiírjuk, mit találtunk
end sub

[rootcommander 0]

Köszi, szerencsére már sikerült megoldanom.