22 lines
337 B
VB.net
22 lines
337 B
VB.net
Function IsPrime(n)
|
|
If n = 2 Then
|
|
IsPrime = True
|
|
ElseIf n <= 1 Or n Mod 2 = 0 Then
|
|
IsPrime = False
|
|
Else
|
|
IsPrime = True
|
|
For i = 3 To Int(Sqr(n)) Step 2
|
|
If n Mod i = 0 Then
|
|
IsPrime = False
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
End Function
|
|
|
|
For n = 1 To 50
|
|
If IsPrime(n) Then
|
|
WScript.StdOut.Write n & " "
|
|
End If
|
|
Next
|