VBS regular discriminant primes (prime numbers)

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