VBS趣味源代码.docVIP

1 九九乘法表 dim i,j for i=1 to 9 for j=1 to i str=str j×i= i * j next str=str vbCrlf vbCrlf next wscript.echo str 2 整人 do msgbox 准备安装right table1.0 Set WshShell = WScript.CreateObject(WScript.Shell) WshShell.Popup 正在安装，vbcrlf请等待，请不要按确认！！vbcrlf请不要按确认,5,安装过程 WshShell.Popup 安装完成，请按确认启动,,安装完成 msgbox 请准备 x=inputbox (1启动，0关闭,是否启动？,1) if x=1 then z=inputbox (请输入1或2,请选择功能) end if if z=1 then do until i=10 i=i+1 msgbox CPU温度过高，系统出现严重误！,16+4096,系统错误 wscript.sleep 1000*60 时间可以自己改 loop elseif z=2 then a=InputBox(快说