利用正则判别素数，来源于网络，神人！
复制代码 代码如下:
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
用正则表达式判断质数，神一样的人物。
来源：
http://demon.tw/programming/vbs-prime-number.html
http://www.enun.net/?p=533
标签：
VBS,正则,素数,质数
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
狼山资源网 Copyright www.pvsay.com
暂无“VBS 正则判别素数(质数)”评论...