[tamerr89]

Sayi buldurma

Dim a, b, c, d
Dim sayi(5) As Integer


For a = 0 To 5
sayi(a) = Rnd(1) * 49 + 1
Me.liste.Items.Add(sayi(a))
Next


d = sayi(0)
c = sayi(0)

For a = 1 To 5
If d < sayi(a) Then
d = sayi(a)
End If
Next
For a = 1 To 5
If c > sayi(a) Then
c = sayi(a)
End If
Next
Response.Write("En büyük sayı....." & d & "<br>&quot
Response.Write("En küçük sayı....." & c & "<br>&quot