VBScript简单示例

'变量声明和赋值51Testing软件测试网/?J`6PaC$v@
Dim name
y9p\#TPD9g n0name="www.admin5.com/html"
b \ Z!tz h b0MsgBox(name)51Testing软件测试网T#s6\1[-TM

'数组变量
&P#gXf!j4p0dim arSites(3)
1a+e V)q/An]0arSites(0)="站长网 站长学院网页教程 http://www.admin5.com/html/"
t#[y~eT2E0arSites(1)="站长网 站长学院图库 http://img.admin5.com/html/"
7m2^A%h;b'u5cg3JA0arSites(2)="站长网 站长学院书库 http://read.admin5.com/html/"
ccGb;BU0arSites(3)="小斧的魔兽世界 http://www.wowstory.com/"51Testing软件测试网Yy0Xf9N

!ZG [)r'i2d[0for i=0 to 351Testing软件测试网Q7uaURkz
MsgBox(arSites(i) & "<br>")
&HD,s)]oE,s-Y"CL(t0next

T-x5L O9M:m;t{&s:l ]2`0'Function过程
j"t+A,PE5^N+CK0Function Celsius(fDegrees)51Testing软件测试网.m%JK'[2z
Celsius = (fDegrees - 32) * 5 / 9
q,Bb"hq&S4_0End Function
np3qPBubx0MsgBox "华氏98度转换成摄氏度为" & Celsius(98)

@g8\-E2d'T0' if then  条件语句51Testing软件测试网 xM/_&D`{ z
vMon=Month(Date)  'Date 函数返回当前系统日期51Testing软件测试网DfF]vU
      'Month 函数返回所给日期的月份数。
yoKk+rI:d%No0MsgBox (vMon & "<br />")

@%?d V
fO vj7d0if vMon = 5 then51Testing软件测试网4tjCX qR'z`
MsgBox("这个月是5月份。")
W8{J v@2A-[0end if

' if then else 条件语句
J-F]!SC'k;t'tD4\0vMon=Month(Date)51Testing软件测试网0w-L"\~/b8uh'E
MsgBox (vMon & "<br>")51Testing软件测试网hBK ~VCi"j:]

if vMon >= 3 or vMon <11 then
/`z?.yrs~0~X0MsgBox("天气好，要出去玩耍。")51Testing软件测试网"Le9tX3['n wd(O3S[
else51Testing软件测试网Q/j(HDj
MsgBox("天气冷，要睡懒觉。")51Testing软件测试网6z(bK bw/C'U3g&A
end if51Testing软件测试网:Y Km0J
]}^o

' if then elseif 条件语句51Testing软件测试网
@3wMoEsVAT/x
vDay=Weekday(Date)  'Date 函数返回当前系统日期51Testing软件测试网$PS%J/``(el-K
     'Weekday 函数返回代表一星期中某天的整数。缺省以星期天为第一天，返回值为1。
?kx#X1^J@`0MsgBox (vDay & "<br>")51Testing软件测试网9^(nh#?l+SP i^

if vDay = 6 then
"K5pQ,C2M:V"{H/K0MsgBox("总算熬到星期五了。")
!yomdseNn0elseif vDay > 1 and vDay <6 then
{
]0|a8C4w4fK c0MsgBox("明天要上班，想想就烦。")
5t5m!fLS8J0b7R
T0else
S,]va9z Pn@ pa4M;Zl0MsgBox("哈哈，周末啦！")
"xTU(prI4?'c0end if

'Select Case 条件语句
a.E4{/|$};XNlj5I+H0vDay=Weekday(Date)
*xLQ7Qs0MsgBox(vDay & "<br>")51Testing软件测试网PLd x ZX6r
Select Case vDay
UwqT@0Case 151Testing软件测试网a:[;Y&o3Iq'A&P1V1KX
MsgBox("今天是星期天。")
{0G&K6Y!z!t2VO%V$W0Case 251Testing软件测试网R'J Z] ZT ^
MsgBox("今天是星期一。")51Testing软件测试网CJwn9Z:](F:|z*Vp
Case 351Testing软件测试网k } gu1w1c
MsgBox("今天是星期二。")
KFw@.t4^`0Case 4
M{$uxO0MsgBox("今天是星期三。")
V@s A H'F6}0Case 551Testing软件测试网6p0Oj/O @8v)MD(N
MsgBox("今天是星期四。")51Testing软件测试网}sK@*K!V
Case 651Testing软件测试网"|*vF|
qq
MsgBox("今天是星期五。")
M)`(iu.RD0Case else51Testing软件测试网[,YU\9Xr
MsgBox("今天是星期六。")
/q2Y$P Q#_)y^~\p3S0end select

'for next 循环语句51Testing软件测试网9ywofTs
Dim i
A#ThB7@ i0for i = 0 to 10
+n+E}z;L)k3T0 MsgBox("Number " & i & "<br>")
7pPa__jN0Next

K)F3a6if`*i2i0'For...Next 循环语句的 Step 用法
,R"p4mhqRKC0Sub TwosTotal()
'J:lY'T3o1C)f9V0 Dim j, total
/m0Hz^n0 For j = 2 To 10 Step 2
(U2x,]%}s[%uNor0  total = total + j
'A+b*D9G#f cgdP0 Next
srFt;l0 MsgBox "总和为 " & total & "。"
2`N G(L4FDTH\0End Sub
b:N~` H7P0Call TwosTotal51Testing软件测试网j)mm"i"fm"g

:MYf;w _'i@est.{7{5t0' Do Until Loop 循环语句51Testing软件测试网(K G!j,^-t
HA
Sub ChkFirstUntil()51Testing软件测试网z)qmmu;i
 Dim counter, myNum
's%hD*d8k#v!?4P*QZ*BO0 counter = 0
k(P"~}R;`@0 myNum = 2051Testing软件测试网BO DI2V7y-a
 Do Until myNum = 1051Testing软件测试网Lt p2A"f!L
  myNum = myNum - 1
#J)`{4}HS2v_O0  counter = counter + 1
@}\jQ q4@1]h0 Loop
ui0s6cK&U ]4V0 MsgBox "循环重复了 " & counter & " 次。"
I_H+Z{:}m-k0End Sub51Testing软件测试网 EJS6ga

Call ChkFirstUntil51Testing软件测试网@&P*RN4P5J4y)p ~v&?I

M(h,~ M3ys$U0'Do Loop Until 循环语句
L ]Sp#W(^0Q[0Sub ChkLastUntil()
Dn
R&sJ!L8\"J0 Dim counter, myNum51Testing软件测试网+`W!oJlBaZ
 counter = 0
9u^4pfvyU `v#f0 myNum = 1
+G:s5~`9FSH b0 Do
"b;D LaG0  myNum = myNum + 1
uG
?(e-gVM0  counter = counter + 1
Y8K+ne&]i8L4{0 Loop Until myNum = 10
a%O_Ux)M'Eh?0 MsgBox "循环重复了 " & counter & " 次。"
Jyy.U,^0End Sub51Testing软件测试网6HBkR2?Ft s

(Wm.kkYhW)r`Xe3`0Call ChkLastUntil

$T*?6C
m,m,y*i0'Do Until Loop 循环语句中使用 Exit Do 退出循环
x5^7hWT1Lw0Sub ExitExample()51Testing软件测试网B6T x#I1Q)Y z
 Dim counter, myNum51Testing软件测试网/z^/B6d:L4@}
 counter = 051Testing软件测试网NX4tSW,N7G
 myNum = 951Testing软件测试网F JjY-Wb
f
 Do Until myNum = 1051Testing软件测试网pG!q5L:I*j.J/DmN
  myNum = myNum - 1
TSYxss&Fe0K&L0  counter = counter + 1
-{sn$c Y)x
K})?&H#n0  If myNum < 10 Then Exit Do51Testing软件测试网hD+CrQ6K4l{9l
 Loop
d5xR.QP'p0 MsgBox "循环重复了 " & counter & " 次。"
U4hf)P~6~v%N0End Sub51Testing软件测试网mlQ1ki5^G~C{P

x@.E]4{ ^ `w0Call ExitExample51Testing软件测试网 E5[J;X`&JL.Rj&b }

'Do While Loop 循环语句
WD!\5nJ1M:d0Sub ChkFirstWhile()
qugO^^0 Dim counter, myNum
a~ l?d0 counter = 0
d[G9c2uA+Kr v0 myNum = 20
W D#p+o\6heG0 Do While myNum > 1051Testing软件测试网F"?7},U&PZM
  myNum = myNum - 151Testing软件测试网:UK5f[4~F3z!t\
  counter = counter + 151Testing软件测试网 D~$fI*m*{c
 Loop51Testing软件测试网,}9]9N:`%Q
 MsgBox "循环重复了 " & counter & " 次。"51Testing软件测试网%F1oja/h
End Sub51Testing软件测试网sZ2E+@.b

Call ChkFirstWhile51Testing软件测试网*J)u*V_r

'Do Loop While 循环语句51Testing软件测试网D/_9|%TO0Y
Sub ChkLastWhile()
e+AA!S8J^0 Dim counter, myNum51Testing软件测试网`*@
y$I]d!U
 counter = 0
#_%}6i([~ R;xy0 myNum = 951Testing软件测试网8n+j:T8V)h6]kYqIb
 Do51Testing软件测试网@
b*uy|
  myNum = myNum - 151Testing软件测试网-C$Z+w5^#Ar+Gg:E
  counter = counter + 151Testing软件测试网G1K\1O*GM9Z
 Loop While myNum > 1051Testing软件测试网#[7CH+V(bnYA
 MsgBox "循环重复了 " & counter & " 次。"51Testing软件测试网)i|\A*`+\zx
End Sub

uuZq B-R-\0Call ChkLastWhile

)wL~`"o0t
b0'没有参数的 VBScript. Sub 过程代码示例51Testing软件测试网 ?H3k,P
l~V(w%oq~
sub myProc()
Dn\ESL0msgbox "欢迎来到站长网 站长学院网页教程网站 www.admin5.com/html"51Testing软件测试网k-v[wVHX
end sub
~Y5vk%X |0call myProc()51Testing软件测试网io2ChM4TbM f

+A|:?t:Z^0'带有参数的 VBScript. Sub 过程代码示例
:T mpP3u5A0Sub myMulti(no1, no2)
`8iV j:]0MsgBox (no1*no2)
'o'}eBMF-o8Z0End Sub51Testing软件测试网
W-OT^;h5J6rj
myMulti 8,9

'用Call语句调用 VBScript. Sub 过程代码示例51Testing软件测试网m8qP| N
Sub myMulti(no1, no2)
U5OIH3vTc$c SZXl0MsgBox (no1*no2)51Testing软件测试网G9JrnNbr
End Sub
-i0``7@$T:T0C5FWey t0call myMulti(8,9)

'VBScript. Function 过程代码示例51Testing软件测试网4|X,mg'fAcx!D
Function myMulti(no1, no2)
+~$J,~Xt
P.F]0myMulti = no1*no2
D'r\V$s*tHdb0End Function
3^"sU@y0dim vNo
x+v1f~A6I M0vNo = myMulti(8,9) + 10051Testing软件测试网vY;}{ MD
MsgBox vNo51Testing软件测试网$J$bK+Vw8gs