Pengennya buat program nyari bilangan prima, tapi malah jadi bilangan ganjil ama genap. Dooooohhh....,!! ada yang tau salahnya dimana ya??? helppp meee!!!
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