merhaba arkadaşlar 
girilen 4 tane sayıdan 100 e en yakın olanını bulma sorum var yardımcı olurmusunuz 

(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. 

(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

Önce bir döngüyle 100'den büyük olan sayıları eleyebilirsiniz. Sonuçta 4 tane değişken atayın ve her girilen sayıyı kontrol ettirip (döngü ile) teker teker bu değişkenlere atayın. 100'den küçük olan sayılar için de hatice.haa'nın gönderdiği kodları devreye sokun.

(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.

teşekkür ederim çözülmüştür yardımlarınız için teşekkürler