3. PROGRAM VB 6.0

Program Bilangan

Private Sub Command1_Click()

Dim a As Single

Dim b As Integer

Dim c As Single

a = Val(Text1.Text) / 2

b = Val(Text1.Text) \ 2

c = a - b

If c = 0# Then

Label2.Caption = "Bilangan Genap"

Else

Label2.Caption = "Bilangan Ganjil"

End If

End Sub

Private Sub clear_Click()

Text1.Text = ""

Label2.Caption = ""

End Sub

Private Sub Command2_Click()

End

End Sub