مثال ۱

برنامه ای بنویسید که عددی را از ورودی بگیرد و تشخیص دهد عدد دریافت شده زوج است یا فرد ؟

---

Private Sub Command1_Click()

n = Val(InputBox(""))

If n Mod 2 = 0 Then

   MsgBox  "Zoj"

Else

  MsgBox  "Fard"

End If

End Sub

تذکر 1 : تابع Val تبدیل رشته عددی مانند "354" به 354

تذکر 2:عملگر Mod جهت محاسبه باقیمانده یک عدد بر عدد دیگر