Program Mencari Bilangan Genap

Codingnya :

Private Sub proses_Click()

If angka.Text Mod 2 = 0 Then

hasil.Caption = "genap"

Else

hasil.Caption = "ganjil"

End If

proses.Enabled = False

lagi.Enabled = True

End Sub