VBScript中有趣的函数（一）

1、Inputbox()

Inputbox()函数表示输入内容，注意在VBScript中没有input()。

2、msgbox()

msgbox()函数在对话框中显示消息。因为VBScript中没有print()函数，为了做输出提示，用msgbox会比较多。

3、IsNumeric()

IsNumeric()判断是否为数字，若是数字返回True,若不是数字则返回Flase。

Dim num
num=inputbox("please input a number:")
if isnumeric(num) then 
	msgbox num
else
	msgbox ("please input a number:" & num)
end if

4、CBdl(), CInt(), CStr()

CBdl()是将数字类型转化为双精度Double；CInt()转换为整型；CStr()转换为字符数。

5、ReDim

ReDim用来修改动态数组大小。ReDim preserve Ararry()只能修改数组最后维大小，并不能修改数组的维数。

dim A()
ReDim A(10,10,10)
ReDim preserve A(10,10,20)

6、InStr()

InStr()函数用来返回某字符串在另一字符串中第一次出现的位置，主要用来查找字符串。
InStr([start, ]string1, string2[, compare])
（1）start：可选项，用于每次搜索的开始位置。如果制定了compare则必须要有start参数；
（2）string1：接受搜索的字符串；
（3）string2：接受搜索的字符串；
（4）compare使用的比较类型，参数有0和1两种：
0——二进制比较，精确查找，区分大小写，默认为0
0——文本比较，模糊查找，不区分大小写

A="APPappAPPa"
B="a"
MyB=InStr(A,B)'精确查找，区分大小写，返回 4
MyC=InStr(1,A,B,1) '从第1位开始搜索，不区分大小写，返回 1

对于0二进制比较和1文本比较，建议使用0二进制比较，这样更加严谨和简便。

7、Spilt()

Spilt()用来分割字符串，在数组中应用较位广泛。
Split(expression[, delimiter[, count[, start]]])

Dim MyString, MyArray, msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "X")
Msg = MyArray(0) & " " & MyArray(1) & " " & MyArray(2)
MsgBox Msg