It looks like you're new here. If you want to get involved, click one of these buttons!

- 140.8K All Categories
- 104.4K Programming Languages
- 6.4K Assembler Developer
- 1.8K Basic
- 39.8K C and C++
- 4.2K C#
- 7.9K Delphi and Kylix
- 4 Haskell
- 9.6K Java
- 4.1K Pascal
- 1.3K Perl
- 1.9K PHP
- 507 Python
- 48 Ruby
- 4.3K VB.NET
- 1.6K VBA
- 20.8K Visual Basic
- 2.6K Game programming
- 310 Console programming
- 88 DirectX Game dev
- 1 Minecraft
- 110 Newbie Game Programmers
- 2 Oculus Rift
- 8.9K Applications
- 1.8K Computer Graphics
- 726 Computer Hardware
- 3.4K Database & SQL
- 521 Electronics development
- 1.6K Matlab
- 627 Sound & Music
- 256 XML Development
- 3.3K Classifieds
- 193 Co-operative Projects
- 180 For sale
- 189 FreeLance Software City
- 1.9K Jobs Available
- 600 Jobs Wanted
- 201 Wanted
- 2.9K Microsoft .NET
- 1.7K ASP.NET
- 1.1K .NET General
- 3K Miscellaneous
- 3 Join the Team
- 0 User Profiles
- 349 Comments on this site
- 59 Computer Emulators
- 1.9K General programming
- 178 New programming languages
- 595 Off topic board
- 159 Mobile & Wireless
- 33 Android
- 124 Palm Pilot
- 335 Multimedia
- 151 Demo programming
- 184 MP3 programming
- 0 Bash scripts
- 18 Cloud Computing
- 52 FreeBSD
- 1.7K LINUX programming
- 367 MS-DOS
- 0 Shell scripting
- 320 Windows CE & Pocket PC
- 4.1K Windows programming
- 882 Software Development
- 405 Algorithms
- 68 Object Orientation
- 86 Project Management
- 88 Quality & Testing
- 234 Security
- 7.5K WEB-Development
- 1.8K Active Server Pages
- 61 AJAX
- 2 Bootstrap Themes
- 55 CGI Development
- 19 ColdFusion
- 222 Flash development
- 1.4K HTML & WEB-Design
- 1.4K Internet Development
- 2.2K JavaScript
- 33 JQuery
- 285 WEB Servers
- 119 WEB-Services / SOAP

About & Contact / Terms of use / Privacy statement / Publisher: Lars Hagelin

Programmers Heaven articles / Programmers Heaven files / Programmers Heaven uploaded content / Programmers Heaven C Sharp ebook / Operated by CommunityHeaven LLC

© 1997-2013 Programmersheaven.com - All rights reserved.

## Comments

404Member:

:

Hi,

how sophisticated is your algorithm supposed to be?

The easiest (and stupidest) way could look like this:

[code]Dim Primes As String = Nothing

For i As Integer = 1 To 1000

If IsPrime(i) Then Primes &= i & ", "

Next

MsgBox(Primes)

...

Private Function IsPrime(ByVal N As Integer) As Boolean

For i As Integer = 2 To N - 1

If N Mod i = 0 Then Return False

Next

Return True

End Function[/code]This has asymptotic complexity N*N but who cares with N=1000..

You can make few optimalisations here (to divide by only previously found prime numbers to decrease number of dividing etc), or other more complicated algorithms up to Eucleid's one..

[blue][b][italic][size=4]P[/size]avlin [size=4]II[/italic][/size][/b][/blue]

[purple]Don't take life too seriously anyway you won't escape alive from it![/purple]

4Member: :

: :

: Hi,

: how sophisticated is your algorithm supposed to be?

: The easiest (and stupidest) way could look like this:

: [code]Dim Primes As String = Nothing

: For i As Integer = 1 To 1000

: If IsPrime(i) Then Primes &= i & ", "

: Next

: MsgBox(Primes)

:

: ...

:

: Private Function IsPrime(ByVal N As Integer) As Boolean

: For i As Integer = 2 To N - 1

: If N Mod i = 0 Then Return False

: Next

: Return True

: End Function[/code]This has asymptotic complexity N*N but who cares with N=1000..

: You can make few optimalisations here (to divide by only previously found prime numbers to decrease number of dividing etc), or other more complicated algorithms up to Eucleid's one..

:

: [blue][b][italic][size=4]P[/size]avlin [size=4]II[/italic][/size][/b][/blue]

:

: [purple]Don't take life too seriously anyway you won't escape alive from it![/purple]

:

:

: hey thanks man lol you had the one piece i was missing. you saved my grade haha

748Member: : hey i learnd vb 2 years ago and i kinda forgot how to use it but im trying to make a program that creates all the prime numbers up to 1000 so if anyone has any help or ideas on what to do it would be great

: :

: :

: Hi,

: how sophisticated is your algorithm supposed to be?

: The easiest (and stupidest) way could look like this:

[code]Dim Primes As String = Nothing

'Step 2 added as a PRIME can only be an odd number.

For i As Integer = 1 To 1000 Step 2

If IsPrime(i) Then Primes &= i & ", "

Next

MsgBox(Primes)

Private Function IsPrime(ByVal N As Integer) As Boolean

For i As Integer = 2 To N - 1

If N Mod i = 0 Then Return False

Next

Return True

End Function

[/code]

This has asymptotic complexity N*N but who cares with N=1000..

: You can make few optimalisations here (to divide by only previously found prime numbers to decrease number of dividing etc), or other more complicated algorithms up to Eucleid's one..

:

: [blue][b][italic][size=4]P[/size]avlin [size=4]II[/italic][/size][/b][/blue]

: [purple]Don't take life too seriously anyway you won't escape alive from it![/purple]

[b][blue]Step 2 would speed things up a bit if you went up to say 100,000. :-)

[/blue][/b]

There are other rules to find a PRIME number of course.

Simpler ones include;

i) It has to be an odd number.

ii) Any number ending in a five doesn't count.

iii) If you add all the digits are added and the result divides by 9 like in the number.>>

123456789 like 1+2+3+4+5+6+7+8+9=45 >> 4+5=9

Then as 45 is 5 times 9 then the bigger number divides exactly by 9.

[b][blue]This rule works for any number of any length!![/blue][/b]

So this rule is obviously true for the number.>>

112233445566778899

And the numbers in the next applicable date of;

09-10-2006 ( 9th Oct,2006 ).

Regards,

Dr M.

4Member: : : hey i learnd vb 2 years ago and i kinda forgot how to use it but im trying to make a program that creates all the prime numbers up to 1000 so if anyone has any help or ideas on what to do it would be great

: : :

: : :

: : Hi,

: : how sophisticated is your algorithm supposed to be?

: : The easiest (and stupidest) way could look like this:

: [code]Dim Primes As String = Nothing

: 'Step 2 added as a PRIME can only be an odd number.

: For i As Integer = 1 To 1000 Step 2

: If IsPrime(i) Then Primes &= i & ", "

: Next

: MsgBox(Primes)

:

: Private Function IsPrime(ByVal N As Integer) As Boolean

:

: For i As Integer = 2 To N - 1

: If N Mod i = 0 Then Return False

: Next

:

: Return True

:

: End Function

: [/code]

: This has asymptotic complexity N*N but who cares with N=1000..

: : You can make few optimalisations here (to divide by only previously found prime numbers to decrease number of dividing etc), or other more complicated algorithms up to Eucleid's one..

: :

: : [blue][b][italic][size=4]P[/size]avlin [size=4]II[/italic][/size][/b][/blue]

:

: : [purple]Don't take life too seriously anyway you won't escape alive from it![/purple]

:

: [b][blue]Step 2 would speed things up a bit if you went up to say 100,000. :-)

: [/blue][/b]

:

: There are other rules to find a PRIME number of course.

: Simpler ones include;

:

: i) It has to be an odd number.

: ii) Any number ending in a five doesn't count.

: iii) If you add all the digits are added and the result divides by 9 like in the number.>>

:

: 123456789 like 1+2+3+4+5+6+7+8+9=45 >> 4+5=9

:

: Then as 45 is 5 times 9 then the bigger number divides exactly by 9.

:

: [b][blue]This rule works for any number of any length!![/blue][/b]

:

: So this rule is obviously true for the number.>>

:

: 112233445566778899

:

: And the numbers in the next applicable date of;

:

: 09-10-2006 ( 9th Oct,2006 ).

:

:

: Regards,

:

: Dr M.

:

:

haha thanks youv really been a help right now im working on this one project that is pretty fun but really had to do. its a program that generates all the vampire numbers(a vampire number is a two two digit number that equal a four digit number and all the numbers in the two two digit numbers have to be in that four digit number)i mean im sure you could do it but dont be supprised if later on i come to you asking for advice lol and again thanks youv been a great help

sencerly

2nd LT. Nester

748Member: : : : hey i learnd vb 2 years ago and i kinda forgot how to use it but im trying to make a program that creates all the prime numbers up to 1000 so if anyone has any help or ideas on what to do it would be great

: : : :

: : : :

: : : Hi,

: : : how sophisticated is your algorithm supposed to be?

: : : The easiest (and stupidest) way could look like this:

: : [code]Dim Primes As String = Nothing

: : 'Step 2 added as a PRIME can only be an odd number.

: : For i As Integer = 1 To 1000 Step 2

: : If IsPrime(i) Then Primes &= i & ", "

: : Next

: : MsgBox(Primes)

: :

: : Private Function IsPrime(ByVal N As Integer) As Boolean

: :

: : For i As Integer = 2 To N - 1

: : If N Mod i = 0 Then Return False

: : Next

: :

: : Return True

: :

: : End Function

: : [/code]

: : This has asymptotic complexity N*N but who cares with N=1000..

: : : You can make few optimalisations here (to divide by only previously found prime numbers to decrease number of dividing etc), or other more complicated algorithms up to Eucleid's one..

: : :

: : : [blue][b][italic][size=4]P[/size]avlin [size=4]II[/italic][/size][/b][/blue]

: :

: : : [purple]Don't take life too seriously anyway you won't escape alive from it![/purple]

: :

: : [b][blue]Step 2 would speed things up a bit if you went up to say 100,000. :-)

: : [/blue][/b]

: :

: : There are other rules to find a PRIME number of course.

: : Simpler ones include;

: :

: : i) It has to be an odd number.

: : ii) Any number ending in a five doesn't count.

: : iii) If you add all the digits are added and the result divides by 9 like in the number.>>

: :

: : 123456789 like 1+2+3+4+5+6+7+8+9=45 >> 4+5=9

: :

: : Then as 45 is 5 times 9 then the bigger number divides exactly by 9.

: :

: : [b][blue]This rule works for any number of any length!![/blue][/b]

: :

: : So this rule is obviously true for the number.>>

: :

: : 112233445566778899

: :

: : And the numbers in the next applicable date of;

: :

: : 09-10-2006 ( 9th Oct,2006 ).

: :

: :

: : Regards,

: :

: : Dr M.

: :

: :

: haha thanks youv really been a help right now im working on this one project that is pretty fun but really had to do. its a program that generates all the vampire numbers(a vampire number is a two two digit number that equal a four digit number and all the numbers in the two two digit numbers have to be in that four digit number)i mean im sure you could do it but dont be supprised if later on i come to you asking for advice lol and again thanks youv been a great help

:

: sencerly

:

: 2nd LT. Nester

====================================================================

Hi do you mean like 12 and 34 giving.>>

1234 or

1243 or

1324 or

1342 or

2134 or

2143 or

2314 or

2341 or

and the remaining 8 numbers?

In which case there will always be 16 results.

They are PERMUTATIONS.

abc giving

ab

ac

bc

with one function which is COMBINATION (3 C 2)

ab, ba

ac, ca

bc, ca

when you take 2 letter permutations (3 P 2) from the 1st three letters.

See these links.>>

http://mathforum.org/dr.math/faq/faq.comb.perm.html

http://www.google.co.uk/search?hl=en&ie=ISO-8859-1&q=permutations+formula&meta=

and the following two pages for formulas involving factorials> :-|

http://www.mathwords.com/p/permutation_formula.htm

where order matters, see.>>

http://www.mathwords.com/p/permutation.htm

http://www.mathwords.com/c/combination_formula.htm

where order doesn't matter see.>>

http://www.mathwords.com/c/combination.htm

Regards,

Dr M.