Galih Hermawan

Option Explicit
'*******************************
' Developed by Galih Hermawan
' http://Galih.EU
' http://if.web.id
'*******************************

Private Sub prima(iBanyak As Integer)
    Dim i As Integer, j As Integer
    Dim banyak As Integer
    Dim prima As Boolean

    i = 2 'inisialisasi
    banyak = 1

    Do While banyak <= iBanyak
        prima = False
        If (i = 2) Then
            prima = True
        Else
            For j = 2 To (i - 1)
                If (i Mod j = 0) Then
                    prima = False
                    Exit For
                Else
                    prima = True
                End If
            Next j
        End If

        If prima Then
            banyak = banyak + 1
            txtHasil = txtHasil & i & vbNewLine
        End If

        i = i + 1
    Loop

End Sub


Private Sub cmdProses_Click()
    txtHasil = vbNullString
    prima Val(txtBanyakBilangan)
End Sub