Algoritma Mencari Bilangan Prima dengan Visual Basic

Cukup menggelitik ketika penulis ditanyai bagaimana Algoritma Mencari Bilangan Prima di Visual Basic. Hasilnya penulis buatkan di Visual Basic .NET karena VB 6.0 sudah tidak terinstall di komputer. Tetapi coding di bawah ini bisa dipakai untuk Visual Basic 6.0 :







Buat project baru, tambahkan satu buah ListBox dan satu buah Button, pada button tambahakan kode program berikut :




Public Class Form1
    ' http://cariprogram.blogspot.com
    ' nuramijaya@gmail.com

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x
        Dim z
        Dim y
        Dim hasil

        ListBox1.Items.Clear()
        For x = 2 To 100
            z = 0
            For y = 2 To x
                hasil = x Mod y
                If hasil = 0 Then
                    z = z + 1
                End If
            Next y
            If z <= 1 Then
                ListBox1.Items.Add(x)
            End If
        Next x

        'di vb 6.0 gunakan
        'ListBox1.Clear
        'dan
        'ListBox.AddItem x
    End Sub
End Class

Hasilnya :

Project selengkapnya bisa diunduh disini. Jika kesulitan mengunduh, ini caranya.

Semoga berguna.