|
IsPrimeNumber
(XAPI2000)
Deklaration VB 6.0
Function IsPrimeNumber (ByVal X As Long) As Boolean
Deklaration VB.NET
Function IsPrimeNumber (ByVal X As Integer) As Boolean
Beskrivning
Testar om ett tal, som specificeras via parametern X,
är ett primtal. Ett primtal är ett tal som endast är delbart med
sig själv eller med ett. Exempel på primtal: 2, 3, 5, 7, 11, 13,
17, 19, 23, 29.
Returvärden
Funktionen returnerar True om det undersökta talet är
ett primtal eller False om det inte är det.. |
Exempel (VB
6.0)
Nedanstående exempel adderar alla primtal
mellan 1 och 1000 till en listbox.
Dim X As Long
For X = 1 To 1000
If IsPrimeNumber(X) Then
ListBox1.AddItem CStr(X)
End If
Next X
|
