PROGRAM MENENTUKAN BILANGAN GANJIL GENAP

Nama : SRIWAHYUNI
NIM : 19010020

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = " " Then

            MsgBox(" Seilahkan Isi Bilangan")

        Else

            If TextBox1.Text Mod 2 = 0 Then

                LBLHasil.Text = TextBox1.Text + " Adalah Bilangan Genap"

            Else

                LBLHasil.Text = TextBox1.Text + " Adalah Bilangan Ganjil"

            End If

        End If

    End Sub

End Class