如何使用vbs实现初始化随机数生成器-创新互联

这篇文章主要介绍了如何使用vbs实现初始化随机数生成器，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

10年的海沧网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整海沧建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联建站从事“海沧网站设计”,“海沧网站推广”以来，每个客户项目都认真落实执行。

代码如下:

Dim MyValue, Response,data,thisd
data="30007|22899|22934"
thisd=Split(data, "|", -1, 1)
Randomize '初始化随机数生成器。
Do Until Response = vbyes
   MyValue = Int((3* Rnd) + 1)' 产生 1 到 3 之间的随机数。
   result="&#"&thisd(MyValue-1)
   If result="妖" Then result="人妖"
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 ("确认? ", vbYesNo)
Loop

感谢你能够认真阅读完这篇文章，希望小编分享的“如何使用vbs实现初始化随机数生成器”这篇文章对大家有帮助，同时也希望大家多多支持创新互联网站建设公司，，关注创新互联行业资讯频道，更多相关知识等着你来学习!

网站题目：如何使用vbs实现初始化随机数生成器-创新互联
本文URL：http://lszwz.com/article/dsjoss.html

乐山网站建设

如何使用vbs实现初始化随机数生成器-创新互联

其他资讯

联系我们

135-1821-9792

028-86922220

快捷导航

二维码

友情链接交换友情链接

乐山网站建设

如何使用vbs实现初始化随机数生成器-创新互联

其他资讯

联系我们

135-1821-9792

028-86922220

快捷导航

二维码

友情链接 交换友情链接

友情链接交换友情链接