vbscript基本语法

1变量定义

 

dim name

dim array(3)

d="dfdf"
array(0)="liaomin ai huqiong"
name="www.blabla.cn"

MsgBox(name)

msgbox(array(0))

msgbox(d)

 

 

2判断语句

vmonth=month(Date)

vyear=year(date)
vday=day(date)
d=""
if vmonth=6 or vyear=2010 then
 d="2010-6月舒服啊"
else
 d="不爽啊"
end if
msgbox(d)

'select case语句

select case vday
case 14 msgbox("14号")
case 15 msgbox("15号")
end select

 

 

3循环

 

'定义方法 演示do while 循环  Exit Do为跳出循环

sub dowhileloop()
i=0
do while(i<10)
 msgbox(i)
 i=i+1
 if i=8 then
   exit do
 end if
loop
end sub

'do loop while循环

sub doloopwhile()
i=0
do
 msgbox(i)
 i=i+1
loop while(i<10)
end sub

'dowhileloop()

'do util loop 循环

sub dountilloop()
i=0
do until i>=10
 msgbox(i)
 i=i+1
 if i=8 then
   exit do
 end if
loop
end sub

'dountilloop()

'do loop  util 循环

sub dountilloop()
i=0
do
 msgbox(i)
 i=i+1
 if i=8 then
   exit do
 end if
loop until i>=10
end sub
'dountilloop()

'for循环
sub forloop()
  for i=0 to 10 step 2
  msgbox(i)
  next
end sub
'调用过程 可以 call forloop()  forloop forloop()
call forloop()

 

 

4过程

 

sub hello()
 msgbox "sub不能返回值"
end sub

function add()
 msgbox("function返回值 变量就是函数的名字")
 add="你好这是返回值"
end function
call hello
msgbox(add())