Module Module1

Sub Main()
Dim D As Integer
Dim I As Integer
Dim C As Integer
C = 1
Console.Write(“Bilangan”)
D = Console.ReadLine
For I = 2 And I <= D – 1 And I = 2 To D Step +1
If D Mod 2 0 Then
C = 0
End If
Next I
If C 1 Then
Console.Write(D & “,Bilangan Ganjil”)
Else
Console.Write(D & “,Bilangan Genap”)
End If
Console.ReadLine()
End Sub

End Module