溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

如何使用vbs實現(xiàn)初始化隨機數(shù)生成器

發(fā)布時間：2021-10-13 15:09:30 來源：億速云 閱讀：510 作者：小新 欄目：開發(fā)技術(shù)

這篇文章主要介紹了如何使用vbs實現(xiàn)初始化隨機數(shù)生成器，具有一定借鑒價值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

代碼如下:

Dim MyValue, Response,data,thisd 
data="30007|22899|22934" 
thisd=Split(data, "|", -1, 1) 
Randomize '初始化隨機數(shù)生成器。 
Do Until Response = vbyes 
   MyValue = Int((3* Rnd) + 1)' 產(chǎn)生 1 到 3 之間的隨機數(shù)。 
   result="&#"&thisd(MyValue-1) 
   If result="&#22934" Then result="&#20154&#22934" 
Set objExplorer = WScript.CreateObject("InternetExplorer.Application") 
objExplorer.Navigate "about:blank"  
objExplorer.ToolBar = 0 
objExplorer.StatusBar = 0 
objExplorer.Visible = 1 
objExplorer.height=300 
objExplorer.width=400 
objExplorer.left=400 
objExplorer.resizable=0 
objExplorer.Document.Body.InnerHTML ="你上輩子是"&result 
   Response = MsgBox ("確認(rèn)? ", vbYesNo) 
Loop 

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“如何使用vbs實現(xiàn)初始化隨機數(shù)生成器”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關(guān)注億速云行業(yè)資訊頻道，更多相關(guān)知識等著你來學(xué)習(xí)!

向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

vbs
AI
助
手