buat ganjil genap vb

buat ganjil genap

scipnya

Private Sub Cmdcek_Click()
bil = Val(txtbilangan)
If bil Mod 2 = 0 Then
Txtketerangan = "genap"
Else
Txtketerangan = "ganjil"
End If
End Sub