1. 云栖社区>
  2. 技术资料>
  3. 正文

vbs算命测试一下你上辈子是男是女_vbs

作者:用户 来源:互联网 时间:2016-02-22 17:37:57

vbs算命

vbs算命测试一下你上辈子是男是女_vbs - 摘要: 本文讲的是vbs算命测试一下你上辈子是男是女_vbs, 复制代码 代码如下: Dim MyValue, Response,data,thisd  data="30007|22899|22934"  thisd=Split(data, "|", -1, 1)  Randomize '初始化随

复制代码 代码如下:

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 算命 上辈子是男是女、算命上辈子是什么、上辈子 算命、上辈子是什么转世测试、测试上辈子是什么人,以便于您获取更多的相关知识。

稳定可靠、可弹性伸缩的在线数据库服务,全球最受欢迎的开源数据库之一

6款热门基础云产品6个月免费体验;2款产品1年体验;1款产品2年体验

弹性可伸缩的计算服务,助您降低 IT 成本,提升运维效率

开发者常用软件,超百款实用软件一站式提供