msgbox"Hello World",,"Title"

dim命令變量（不變）

dim name,age
name="wolf"
age="20"
msgbox name&age

dim命令變量（可變）

dim a,b,c
a=1
b=2
c=a+b
msgbox c

乘法

dim a,b,m
a=inputbox("請輸入第一個乘數(shù)")
b=inputbox("請輸入第二個乘數(shù)")
m=a*b
msgbox "乘積是"&m

圓周長

dim r,c,pi
pi=3.14
r=inputbox("請輸入半徑")
c=2*r*pi
msgbox "半徑為"&r&"圓的周長是"&c

道歉

msgbox("小仙女不要生氣了好不好")
msgbox("我知道自己錯了")
msgbox("但是請相信我，我不是有意的")
msgbox("原諒我好嗎")
dim i
do while i<1
Select Case msgbox("如果你原諒我了請點(diǎn)是",68,"")
Case 6 i=1
Case 7
msgbox"你再考慮一下唄，我向你保證，以后絕對不會再犯了！"
end Select
loop
msgbox"謝謝你原諒我，愛你呦"

表白

msgbox("做我女朋友好不好？")
msgbox("我愛你很久了")
msgbox("請你不要拒絕我")
msgbox("你拒絕我我就關(guān)你電腦")
dim i
do while i<1
Select Case msgbox("做我女朋友好不好",68,"")
Case 6 i=1
Case 7
msgbox"電腦正在關(guān)機(jī)，再見！"
end Select
loop
msgbox"我也愛你么么噠~"

信息轟炸

Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.AppActivate"文件"
for i=1 to 10
WScript.sleep 50
WshShell.Sendkeys "^v"
WshShell.Sendkeys i
WshShell.Sendkeys" %s"
Next