Breaking News

Mencari Bilangan Genap Ganjil dengan Console Aplication di Vb.Net

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

8 komentar:

  1. Sub Main()

    Dim d, i, c As Integer

    For d = 1 To 20

    c = 0

    For i = 1 To d

    If d Mod i = 0 Then c = c + 1

    Next

    If c = 2 Then

    Console.Writeline(d)

    End If

    Next

    Console.ReadKey()

    End Sub

    BalasHapus
  2. bilangan prima pakek VB.NET ada gak..........?

    BalasHapus
  3. itu udah di jawab ama yang di atas... :)

    @VengeancE
    makasi jawabannya

    BalasHapus
  4. nih ada yang lebih ringkas..
    Imports System.Console
    Module Module1

    Sub Main()
    Dim bil As Integer
    Write("Masukan Bilangan : ")
    bil = ReadLine()
    If bil Mod 2 = 0 Then
    Write("Bilangan tersebut Genap")
    Else
    WriteLine("Bilangan tersebut Ganjil")
    End If
    ReadLine()
    End Sub

    End Module

    BalasHapus
  5. menentukan urutan bilangan prima berdasarkan bnyaknya deret yang di input..
    Imports System.Console
    Module Module1

    Sub Main()
    Dim bil, y, a As Integer
    Write("Masukan Banyaknya deret bilangan : ")
    bil = ReadLine()
    y = -1
    For a = 1 To bil
    y = (y + 1)
    Write(y)
    Next
    ReadLine()
    End Sub

    End Module

    BalasHapus
  6. buat anonim
    ................
    makasi, jadi banyak ada source codenya
    oh ya kalau cuma nentuin apakah itu bilangan prima atau bukan gmna?

    inputin 5
    5 adalah bilangan prima

    inputin 6
    6 adalah bukan bilangan prima

    BalasHapus
  7. cara membuat menu d vb.net console gmn???
    mohon bantuan nya kk...

    BalasHapus