Jag ska skriv en funktion som returnerar största värdet av tre heltal, och en som returnerar det minsta värdet av tre heltal.

Koden ska skrivas så att den lätt kan ändras för att passa till 4 och 5 heltal osv.

Formuläret ska utformas så att det går att testa dessa två funktioner.

/Martin

Skicka ner en array med hur många tal du vill till de här metoderna

public function max(nArray as Variant) as integer
dim i as long
dim nMax as long
nMax = nArray(lbound(nArray))
for i = lbound(nArray)+1 to ubound(nArray)
if nArray(i) > nMax then nMax = nArray(i)
next i
max = nMax
End Function

public function min(nArray as Variant) as integer
dim i as long
dim nMin as long
nMin = nArray(lbound(nArray))
for i = lbound(nArray) + 1 to ubound(nArray)
if nArray(i) < nMin then nMin = nArray(i)
next i
min = nMin
End Function

Det var ju ett trevligt fall.
Återkom hit om du får problem.
Lycka till

(uppfattade ej om du hade problem med något)

/Roland

Oops, någon annan han redan hjälpa dig med vad jag inte fattade var ett direkt problem.

/Roland

I ditt fall så skulle jag använda mig av Parameter arry. Variabelt antal argument. Perfekt för dit fall:
<code>
Public Function Max(ParamArray Values() As Variant) As Long
Dim i As Long
Dim vTemp As Long
Max = Values(0)
For i = 1 To UBound(Values)
vTemp = Values(i)
If vTemp > Max Then Max = vTemp
Next
End Function

Public Function Min(ParamArray Values() As Variant) As Long
Dim i As Long
Dim vTemp As Long
Min = Values(0)
For i = 1 To UBound(Values)
vTemp = Values(i)
If vTemp < Min Then Min = vTemp
Next
End Function

'Syntax

X=Max(1,2)
X=Max(1,2,3)
X=Max(1,2,3,4)
X=Max(1,2,3,4,5)
X=Max(1,2,3,4,5,6)

</code>