The use of regular discriminant primes, from the network, God-man!
Copy Code code as follows:
Set regex = New RegExp
Regex. Pattern = "^1?$¦^ (11+?) \1+$ "
For i = 1 to 100
If not regex. Test (String (i, "1")) Then
WScript.Echo I
End If
Next
See the headline you'll be dismissive, enumerate prime numbers who wouldn't?
Copy Code code as follows:
For i = 1 to 100
For j = 2 to I
If I Mod j = 0 Then Exit for
Next
If j = i Then wscript.echo I
Next
A few lines of code can be done, so simple. Let's take a look at the following procedure!
Copy Code code as follows:
Set regex = New RegExp
Regex. Pattern = "^1?$|^ (11+?) \1+$ "
For i = 1 to 100
If not regex. Test (String (i, "1")) Then
WScript.Echo I
End If
Next
Use regular expressions to judge prime numbers, like God's characters.
Source:
Http://demon.tw/programming/vbs-prime-number.html
http://www.enun.net/?p=533
