Jump to content
GSForum - Segélyvonal

Minimumkeresés Visual Basic-ben


rootcommander

Recommended Posts

rootcommander

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?

Link to comment
Share on other sites

arpsoft
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

Link to comment
Share on other sites

rootcommander

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

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...