Nombor Perdana 1 (Up to 100 Nos Only)

_____________________________________________________________________

 

Private Sub Command1_Click()

      Dim a, b, c, x, y, nom As Integer

      Dim perdana(100) As Integer

 

      nom = Val(Text1.Text)

      t = Chr(9)

      c = 2

      bil = 0

      List1.Clear

   List1.AddItem ("Bil" & t & "No Perdana")

 

      For b = 2 To nom Step 1

            If c = 2 Or c = 3 Then

                  perdana(b) = c

                  bil = bil + 1

                  x = x + 1

                  List1.AddItem (bil & t & perdana(b))

 

            Else

                  For a = 3 To nom Step 2

                        If (c Mod a = 0) Then

                              If (c = a) Then

                                    perdana(b) = c

                                    bil = bil + 1

                                    List1.AddItem (bil & t & perdana(b))

                                    y = y + 1

                                    Exit For

 

                              Else

                                    Exit For

 

                              End If

                        End If

                  Next

            End If

 

            c = c + 1

      Next

 

      Text2.Text = x + y

End Sub

_____________________________________________________________________

(Thanks to Cik Salmah & Madinah)

Nombor Perdana 2 (Unlimited Nos)

_____________________________________________________________________

 

Private Sub Command1_Click()

num2 = Val(Text1)

Label2.Caption = 1

List1.Clear

List1.AddItem ("No Perdana")

 

For i = 1 To num2 - 1

Label2.Caption = Label2.Caption + 1

Next i

End Sub

 

Private Sub Label2_Change()

num = Val(Label2.Caption)

If num = 2 Then

List1.AddItem (num)

End If

For i = 3 To Int(Sqr(num)) Step 2

If num Mod i = 0 Then

Exit Sub

End If

Next i

 

If num Mod 2 = 0 Then

Exit Sub

End If

List1.AddItem (num)

End Sub

_____________________________________________________________________

(Thanks to Cik Salmah)