Sortera innehållet på variabler

JEMedlem sedan juni 2000144 inlägg

Frågan12 sep. 2000 13:05#1

Hur ska man gå tillväga för att lösa detta på ett smidigt sätt?
Låt säga att jag har 5 variabler som har dessa värden...

intTal1 = 2
intTal2 = 3
intTal3 = 5
intTal4 = 1
intTal5 = 4

Vad jag sedan vill göra att att sortera dessa värden och skriva ut dom i nummerordning.
Detta ska även funka i om man har fler än 5 variabler...

tohaMedlem sedan dec. 1999707 inlägg

12 sep. 2000 16:46#2

Om du lägger de i en monodimensionerad array så kan du använda dig av min förhoppningsvis buggfria sorteringsfunktion:


Function Sort(ByVal vaList)

	Dim nTemp, nIndex
	Dim i, j
	
	For j = 0 to UBound(vaList, 1)
		nIndex = 0
		nTemp = vaList(j)
		For i = j+1 to UBound(vaList, 1)
			If vaList(i) > nTemp then
				nIndex = i
				nTemp = vaList(i)
			End if
		Next
		If nIndex > 0 then
			vaList(nIndex) = vaList(j)
			vaList(j) = nTemp
		End if
	Next
	
	Sort = vaList

End Function

------------------
/ Torbjörn Hansson, webbutvecklare
Endero Sverige

[Redigerat av toha den 12 sep 2000]