Papatyam Forum - Tekil Mesaj gösterimi - Sayi buldurma
Konu Başlıkları: Sayi buldurma
Tekil Mesaj gösterimi
Alt 29 March 2008, 13:00   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Sayi buldurma

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

Alıntı ile Cevapla