VBS 正則判別素?cái)?shù)(質(zhì)數(shù))
更新時(shí)間：2013年07月29日 18:13:18 作者：
利用正則判別素?cái)?shù)，來(lái)源于網(wǎng)絡(luò)，神人,喜歡vbs的朋友可以參考下
利用正則判別素?cái)?shù)，來(lái)源于網(wǎng)絡(luò)，神人！
復(fù)制代碼 代碼如下:
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
看到標(biāo)題你一定會(huì)不屑一顧，枚舉質(zhì)數(shù)誰(shuí)不會(huì)？
復(fù)制代碼 代碼如下:
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
幾行代碼就能搞定，如此簡(jiǎn)單。那就看看下面這個(gè)程序吧！
復(fù)制代碼 代碼如下:
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
用正則表達(dá)式判斷質(zhì)數(shù)，神一樣的人物。
來(lái)源：
http://demon.tw/programming/vbs-prime-number.html
http://www.enun.net/?p=533
相關(guān)文章
vbs小程序圖標(biāo)更改方法的實(shí)現(xiàn)
這篇文章主要介紹了vbs小程序圖標(biāo)更改方法的實(shí)現(xiàn)，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2020-03-03
海陽(yáng)頂端網(wǎng)進(jìn)百度blog必須輸入密碼的vbscript代碼
今天訪問(wèn)haiyangtop官方網(wǎng)站，發(fā)現(xiàn)他的blog必須要輸入密碼所以我給出下面的代碼2008-06-06
VBS教程：函數(shù)-Hour 函數(shù)...2006-11-11
運(yùn)行該腳本后，文件會(huì)先拷貝到system32目錄中然后運(yùn)行，監(jiān)控移動(dòng)存儲(chǔ)設(shè)備的插入，如果有U盤(pán)插入，會(huì)將你感興趣的文件拷貝到電腦相應(yīng)目錄中。2009-12-12
VBS 顯示“選擇文件或文件夾”對(duì)話框的代碼，經(jīng)測(cè)試windows xp下才可以使用，win2000,win2003沒(méi)有內(nèi)置這樣的方法。2011-02-02
vbscript中Err對(duì)象是一個(gè)具有全局范圍的內(nèi)部對(duì)象，含有關(guān)于錯(cuò)誤的所有信息,需要的朋友可以參考下2018-05-05
用vbs輸出一個(gè)文件夾的目錄結(jié)構(gòu)，喜歡的朋友可以測(cè)試下2013-01-01
VBS教程：屬性-VolumeName 屬性...2006-11-11
抖音很火的vbs表白代碼(簡(jiǎn)單實(shí)用!)
這篇文章主要給大家介紹了關(guān)于抖音很火的vbs表白代碼的相關(guān)資料,教你用vbs表白女朋友,包含多個(gè)彈窗絕對(duì)實(shí)在,保管實(shí)用,內(nèi)容可以自己修改,需要的朋友可以參考下2022-04-04
這篇文章主要介紹了VBS 賦值運(yùn)算符的用法，需要的朋友可以參考一下2006-11-11