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