Er zijn 1 reacties in dit onderwerp

[RedThread]

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?

[RedThread]

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