| 标题 | 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 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。