Mencari Bilangan Genap Ganjil dengan Console Aplication di Vb.Net

Diposting pada 676 views
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

9 thoughts on “Mencari Bilangan Genap Ganjil dengan Console Aplication di Vb.Net

  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

  2. 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

  3. 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

  4. 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

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *