lütfen acil yardım

1- Ödev size ait sizin yapmanız lazım.
2- https://www.grafikerler.net/forum-kurallari-mutlaka-okuyunuz-t48.html#post84

TeknoMod' Alıntı:

1- Ödev size ait sizin yapmanız lazım.
2- https://www.grafikerler.net/forum-kurallari-mutlaka-okuyunuz-t48.html#post84

Genişletmek için tıkla ...

of offf peki tamam saolun genede

1.soru:
dim i as integer
i=inputbox("Notu Giriniz:","NOT GİRİŞİ")
if i>0 and i<=100 then
msgbox("Sayı 0 ile 100 arasındadır.")
else
msgbox("Sayı 0 ile 100 arasında değildir.")
end if

Soru:2
Dim sayi, sayi1, sayi2, i As Integer
sayi = InputBox("1.sayıyı giriniz")
sayi1 = InputBox("2.sayıyı giriniz")
sayi2 = InputBox("3.sayıyı giriniz")
If sayi < sayi1 And sayi < sayi2 Then
MessageBox.Show("en küçük sayı=" & sayi)
End If
If sayi > sayi1 And sayi > sayi2 Then
MessageBox.Show("en büyük sayı=" & sayi)
End If
If sayi1 < sayi And sayi1 < sayi2 Then
MessageBox.Show("en küçük sayı=" & sayi1)
End If
If sayi1 > sayi And sayi1 > sayi2 Then
MessageBox.Show("en büyük sayı=" & sayi1)
End If
If sayi2 < sayi And sayi2 < sayi1 Then
MessageBox.Show("en küçük sayı=" & sayi2)
End If
If sayi2 > sayi And sayi2 > sayi1 Then
MessageBox.Show("en büyük sayı=" & sayi2)
End If

soru:3
Dim sayi As Integer
sayi = InputBox("sayıyı giriniz")
If (0 < sayi And sayi < 6) Or (6 < sayi And sayi < 11) Then
MessageBox.Show("sayınız doğru yerdedir")
Else
MessageBox.Show("sayınız yanlış yerdedir")
End If

soru:4
Dim sayi As Integer
sayi = InputBox("sayıyı giriniz")
If sayi < 0 Then
MessageBox.Show("sayı negatif")
End If
If sayi = 0 Then
MessageBox.Show("sayı sıfıra eşit")
End If
If sayi > 0 Then
MessageBox.Show("sayı pozitif")
End If