Springen naar inhoud


- - - - -
Solved

Opdracht 007



  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3590 berichten
    Laatst bezocht 14 jul 2018 15:51
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 14 oktober 2010 - 12:52

Citeren

By listing the first six prime numbers: 2, 3, 5, 7, 11, and 13, we can see that the 6th prime is 13.
What is the 10001st prime number?


#2 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3590 berichten
    Laatst bezocht 14 jul 2018 15:51
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 14 oktober 2010 - 12:53

Visual Basic Code:
Function Problem7() As Integer
	Dim count As Integer = 0
	Dim number As Integer = 1
	Do
		If IsPrime(number) Then
			count += 1
			If count > 10001 Then
				Exit Do
			End If
		End If
		number += 1
	Loop
	Return number
End Function

Private Function IsPrime(ByVal number As Integer) As Boolean
	For i As Integer = 2 To number - 1
		If (number Mod i) = 0 Then
			Return False
		End If
	Next
	Return True
End Function


Note : Coded by Vozzie





Ook met taq Solved voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[Solved] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)