az laf çok iş... RAISER! Public Sub Sirala(ByRef dize As Double) Dim i As Long, j As Long, buffer As Double If Not LBound = 0 Then MsgBox "LBound '0' olmak zorunda!" Exit Sub End If For i = 0 To UBound For j = 0 + i To UBound If dize < dize Then buffer = dize dize = dize dize = buffer End If Next j Next i End Sub

dim tmp as long dim a as long ' burasi sayilari tutsun for i = lbonud to ubound if a >tmp then tmp = a next i msgbox "en buyuk:" & tmp

Elimde bir takım sayılar olsun rnegin : 1 5 7 9 13 1578 3215 69645 gibi devam eden milyonlarca karışık sayı. yle bir kod yazmalıyımki en kücük sayıyı ve en büyük sayıyı bana gstersin sırasıyla. Run Time Error

En büyük sayıyı gstermek için baştan sonra array'daki tüm sayıların en büyük olup olmadığını kontrol ettireceksin. Bunun için ayrı bir fonksiyon yazarsın, yani her sayı için tüm dizeyi tekrar kontrol edip, o sayıdan büyüğü var mı yok mu onu kontrol eden bir fonksiyon. İki dngü iç içe olacak yani. Düşündüğünde biraz yavaş olacakmış gibi grünse de 100 tane sayı içinden en büyüğünü bulması saniyenin 10'da biri kadar süre bile almaz. En küçük sayıyı bulmak için de sylediğin olayı en küçük olup olmadığını kontrol ettirerek yapabilirsin. İstersen kodu da yazıp verebilirim.