'do loop 的用法
Dim age
age = 23
Do Until age = 100
age= age+1
Loop
MsgBox "我要活到" &age&"岁，哈哈"

'while 的用法
Dim money
money = 2
While money > 0
money = money -1
Wend
MsgBox " 我身无分文了 "

6.函数

Sub HelpMe()
MsgBox " 哪个公司要我啊！ "
End Sub
Call HelpMe()
 在上面的代码中，我们通过 call 来调用 sub ，并且 sub 是没有返回值的。

Dim str,str1,str2
str1 = " 努力工作 "
Function Flighting(str)
str2 = " 我要 " & str
Flighting = str2
End Function
MsgBox Flighting(str1)
在上面的代码中， function 函数是有返回值，而且它的返回值是通过赋给函数名来实现的。

Ltrim：去掉左边空格

Ltrim：去掉右边空格

Trim：去掉两边空格

Lcase：返回字符串的小写形式

Ucase：返回字符串的大写形式

StrComp （str1,str2[,method]） ：返回两个字符串的比较结果。

如果字符串str1小于字符串str2,则返回-1；

如果两字符相等则返回0；

如果字符串str1大于字符串str2,则返回1；

如果其中任意一个字符串为空值NULL，则返回空值NULL。

参数method表示比较方式，0表示二进制比较方式，1表示文字比较方式。

Dim MyString
Dim MyArray(3)
MyArray(0) = "Mr."
MyArray(1) = "John "
MyArray(2) = "Doe "
MyArray(3) = "III"
MyString = Join(MyArray)
MsgBox MyString
以上是对部分函数的举例和说明，更详细的信息大家可以查看 vbs 的官方帮助文档。

split:
返回基于 0 的一维数组，其中包含指定数目的子字符串。
返回值数组 = Split("字符串","分割符")

x="abc 0 cde 0 kkk"
s=split(x,"0")
msgbox s(1)  '返回结果cde

8.转换函数

CBool(expression) :将expression转换成布尔类型  如：CBool(0)返回False

CByte(expression)：将expression转换成单字节类型 如：Cbyte(26.723)返回27

CDate(expression): 将expression转换成日期类型 如：CDate("Feb 19,2009")返回2009-2-19

CDbl(expression): 将expression转换成双精度类型 如：CDbl("323.615")返回323.615

Chr(expression): 将expression所表示的ASCII码转换为对应字符串 如：Chr(65)返回"A"