Shulou(Shulou.com)06/03 Report--

This article mainly introduces how to use vbs to initialize the random number generator, has a certain reference value, interested friends can refer to, I hope you can learn a lot after reading this article, the following let Xiaobian take you to understand.

The code is as follows:

Dim MyValue, Response,data,thisd

Data= "30007 | 22899 | 22934"

Thisd=Split (data, "|",-1,1)

Randomize 'initializes the random number generator.

Do Until Response = vbyes

MyValue = Int ((3 * Rnd) + 1) 'produces a random number between 1 and 3.

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 = "you were in your last life" & result

Response = MsgBox ("confirm?", vbYesNo)

Loop

Thank you for reading this article carefully. I hope the article "how to initialize the random number generator using vbs" shared by the editor will be helpful to you. At the same time, I also hope you will support us and pay attention to the industry information channel. More related knowledge is waiting for you to learn!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.