Kullanıcının girdiği sayının pozitif mi yoksa negatif mi olduğunu gösteren programı oluşturuyoruz…

Bu programımızda sonucu msgboxda göstereceğimizden dolayı 1 button kullanacağız. Bu programı oluşturmak için buttonun içerisine şu kodlar yazılmalıdır;

Dim sayı As Integer
On Error Resume Next
sayı = InputBox("Sayıyı gir...", "pozitif negatif", 10, 35, 55)
If sayı > 0 Then MsgBox("SAYI POZİTİFTİR")
If sayı < 0 Then MsgBox("SAYI NEGATİFTİR")
If sayı = 0 Then MsgBox("SAYI SIFIRDIR")

NOT: Bu programda yazılmış olan kodlarda “On Error Resume Next” kodunu görüyoruz. Bu kod “Cancel” seçeneğine tıklanıldığında hata vermeyerek devam etmesini sağlayacaktır.

<!–[if gte mso 9]> Normal 0 21 false false false MicrosoftInternetExplorer4 <![endif]–><!–[if gte mso 9]> <![endif]–>

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.