VBS 正则判别素数(质数)-6ren

VBS 正则判别素数(质数)

转载作者：qq735679552 更新时间：2022-09-29 22:32:09

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VBS 正则判别素数(质数)由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

利用正则判别素数，来源于网络，神人！。

。

复制代码代码如下:

 
 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 。

最后此篇关于VBS 正则判别素数(质数)的文章就讲到这里了,如果你想了解更多关于VBS 正则判别素数(质数)的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！。