[ابو انس]

وعليكم السلام
ضمن سلسلة الاعداد الصحيحة الموجبة ينفع هذا الكود

كود :

    Dim aa As Integer
       aa = (Val(TextBox1.Text) Mod 2)
       If aa = 0 Then
           MsgBox("هذا عدد زوجي")
       Else
           MsgBox("هذا عدد فردي")
           TextBox1.Clear()
       End If