vbs代码举例

vbs代码举例

矩形面积计算器代码如下：
dim a,b,s
a=inputbox("请输入矩形的长:")
b=inputbox("请输入矩形的宽:");
s=a*b
msgbox (s)
结束圆面积计算器代码如下：
dim a，s
a=inputbox("请输入圆的半径");
s=a*a*3.14
msgbox(s)
其他计算器，如圆周长计算器和长方体体积计算器等，大家可以参考这些代码自行编写。
恶作剧代码示例：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.EXE /c shutdown -r -t 60 -c ""叫你不说，知道厉害了吧！"" ",0 ,true
dim a
do while(a > "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.EXE /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"
扩展资料VBScript(Microsoft Visual Basic Script Editon).，微软公司可视化BASIC脚本版). 正如其字面所透露的信息， VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。 我进一步解释一下， Microsoft Visual Basic是微软公司出品的一套可视化编程工具， 语法基于Basic. 脚本语言， 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行， 简单点说就是你写的程序不需要编译成。exe, 而是直接给用户发送。vbs的源程序， 用户就能执行了。
2024-09-06