(28/05/2015, 16:37)47terminator yazdı:(28/05/2015, 16:12)hatice.haa yazdı:(28/05/2015, 14:54)47terminator yazdı: merhaba arkadaşlar
girilen 4 tane sayıdan 100 e en yakın olanını bulma sorum var yardımcı olurmusunuz
Dim a As Integer
Dim sayi As Integer
Dim miktar As Integer
Dim buyuk As Integer
miktar = 4
While (a < miktar)
sayi = InputBox("Sayı giriniz")
If (sayi > buyuk And sayi < 100) Then
buyuk = sayi
End If
a = a + 1
End While
MsgBox(buyuk)
Umarım işinize yarar.
Hocam ilginize teşekkür ederim buna benzer bende yaptım ama sayı 100 den büyük girilme ihtimalinde doğru çalışmayacaktır
Hocam ben 100 den büyük sayı girdiğimde onu almadı 100 den küçük girdiğim sayıların içinde 100 e en yakın olanı gösterdi zaten. Ama işinize yaramadıysa mehmetdemiral hocamında dediğini deneyin isterseniz.