05-08-21, 09:55 PM
05-08-21, 11:13 PM
وعليكم السلام
ضمن سلسلة الاعداد الصحيحة الموجبة ينفع هذا الكود
ضمن سلسلة الاعداد الصحيحة الموجبة ينفع هذا الكود
كود :
Dim aa As Integer
aa = (Val(TextBox1.Text) Mod 2)
If aa = 0 Then
MsgBox("هذا عدد زوجي")
Else
MsgBox("هذا عدد فردي")
TextBox1.Clear()
End If