Sayı pozitif , negatif veya nötr mü VB 6.0

Sayı pozitif , negatif  veya nötr mü VB 6.0

[Code=’VB.NET’]Private Sub Command1_Click()
Dim sayi As Integer
sayi=val(inputbox(“sayıyı giriniz”))
if  sayi > O  Then MsgBox(“girmiş olduğunuz sayı pozitiftir”)
if  sayi < O Then MsgBox("girmiş olduğunuz sayı negatiftir") if  sayi = O Then MsgBox("girmiş olduğunuz sayı nötrdür") End Sub[/Code]