[الوطــــــــــن]

في فيجوال بيسيك 6 نعرف عن طريق دالة mod

نفرض ان العدد اعطيناه الاسم a ( الدالة mod معناها بقي القسمة )
If a Mod 2 = 0 Then )
a = "العدد زوجي"
Else
a = "العدد فردي"
End If