4
Contributors
6
Replies
9
Views
6 Years
Discussion Span
Last Post by akaban
0

you didn't say what your problem. try this to check whether given number is a Prime Number

Option Explicit
 
Public Function IsPrime(ByVal n As Long) As Boolean
    Dim I As Long
    IsPrime = False
    If n <> 2 And (n And 1) = 0 Then Exit Function 'test if div 2
    If n <> 3 And n Mod 3 = 0 Then Exit Function 'test if div 3
    For I = 6 To Sqr(n) Step 6
        If n Mod (I - 1) = 0 Then Exit Function
        If n Mod (I + 1) = 0 Then Exit Function
    Next I
    IsPrime = True
End Function
0

thanks for your response dear but its showing compile error "invalid inside procedure"
sorry for incomplete description actually i need a program to print prime numbers from 1 to 100
i am working in vb6. and putting this coding in command button on click event, please check and reply.

actually i have made a program which is creating all of the non-prime numbers from 1 to 100 but i am unable to compare it... and generate prime numbers...

this is the program

Private Sub Command1_Click()
Dim o As Integer
Dim z As Integer
Dim y As Integer
Dim x As Integer
Dim W As Integer
Dim a(114) As Integer

 o = 0
 For z = 2 To 50
 o = o + 1
 a(o) = z * 2
 Next z
 
 For y = 2 To 33
 o = o + 1
 a(o) = y * 3
 Next y
 
 For x = 2 To 20
 o = o + 1
 a(o) = x * 5
 Next x
 
 For W = 2 To 14
 o = o + 1
 a(o) = W * 7
 Next W
 
 
End Sub

Edited by WaltP: Added CODE Tags

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.