Yeni oğrenenler icin yararlı olacağını duşunduğum icin paylaşmak istedim.


Emeğe saygı....(Duruma gore konuyu silebilirim..)


http://www.dosya.tc/server18/bvjnhK/...TekMi.zip.html

PHP Code:
Public Class Form1
Dim a, b As Single
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
a = InputBox("Herhangi Bir Sayı Giriniz:", " Sayı girin.")
If a Mod 2 = 0 Then
MsgBox(a & " sayısı cift sayıdır.")
Else : MsgBox(a & " sayısı tek sayıdır.")
End If
End
End Sub
End Class


Emeğe saygı....
İyi gunler....
__________________