Program mencari bilangan genap dan ganjil

Buatlah 1 textbox (beri nama misal : txtangka) untuk menampung angka dan 1 buah label (beri nama misal : lblhasil)untuk menampung hasil.
Buat command button Proses, untuk button “LAGI” atau “EXIT” bisa ditambahkan sesuai selera dengan format seperti diatas.
Untuk syntax cmdproses kita harus mendefinisikan apa arti bilangan genap dan ganjil.
Bilangan genap : adalah bilangan yang habis dibagi 2
Bilangan ganjil : adalah bilangan yang tidak habis dibagi 2.
Bahasa pemrogramannya adalah :

If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "genap"
Else
Label1.Caption = "ganjil"

Yang berarti jika angka yang dimasukkan ke dalam textbox 1 mempunyai sisa hasil bagi (Mod) = 0 maka bilangan tersebut adalah genap jika tidak maka berarti bilangan itu ganjil.