أسرع طريقة لمعرفة إذا كان الرقم زوجي أو فردي

التفاصيل

الزيارات: 4046

استخدم هذه الدالة

كود:

---

Function isEven(n As Integer) As Boolean


isEven = True


If n And 1 Then isEven = False


End Function


Private Sub Command1_Click()


MsgBox isEven(4)


End Sub

---

• < السابق
• التالي >