导读：利用正则判别素数，来源于网络，神人！复制代码 代码如下:Set regex = New RegExpregex Pattern = ^1?$brvbar;^(11+?)1+$For i = 1 To 100If Not regex Test(String(i,1)) Then WScript Ec ...
利用正则判别素数，来源于网络，神人！
复制代码 代码如下:
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
看到标题你一定会不屑一顾，枚举质数谁不会？
复制代码 代码如下:
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
几行代码就能搞定，如此简单。那就看看下面这个程序吧！
复制代码 代码如下:
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
用正则表达式判断质数，神一样的人物。
