Hazır Script – Hazır Kod

Sayi buldurma

En büyük ve en küçük sayi bulan program

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>")

        Response.Write("En küçük sayı....." & c & "<br>")