<script language="vbs">
    'dim a(3)
    'lbound是得到数组的下限
    'ubound是得到数组的上限
    'msgbox lbound(a) '0
    'msgbox ubound(a) '3
   
    'int()返回传入这个参数的整数部分
    'msgbox int(3.4) '3
    'int("你好")  '错误类型不匹配
    'msgbox fix(-9.4) '-9
    'msgbox int(-9.4) '-10
   
    '生成随机数 rand()
    randomize
    'msgbox rnd() '生成0~1之间的随机数
    '生成 n~m之间是随机数\
    n=1
    m=2
    'msgbox int(rnd()*m-n+1)+n
   
    'instr函数 返回 ab所在的位置
    '从头开始搜索
    'msgbox instr("abcdabc","ab")  '1
   
    'instrrev()函数
    '从尾开始搜索
    'msgbox instrrev("abcdab","ab") '5
   
    'len（）函数
    'msgbox len("12345") 'a
   
    'hex()十进制转换成十六进制
    'msgbox hex(15)
   
    'oct()把十进制转换成八进制
    'msgbox oct(8)
   
    'trim()去掉字符串两边的空格
    'msgbox trim("    sdfsdf")
   
    '字符串截取函数
    'mid() left() right()
    'left("字符串"，从左边开始去几个字符)
    'msgbox left("1234",3) '123
    'right("字符串",从右边开始截取几个字符)
    'msgbox right("1234",2) '34
    'mid("字符串",开始截取的位置，截取几个字符)
    'msgbox mid("12345",2,4) '2345
   
    'replace()
    'Replace(“字符串”，“要被替代的字”，“替代后的字”)
    'msgbox replace("AAAAABBB","AA","BB")
   
    'asc()函数  将文字转化成ASCII
    'chr()函数  将ASCII转化成文字
    'msgbox asc("2")
    'msgbox asc("你")
    'msgbox chr(50)
    'msgbox chr(-15133)
   
    'String()函数
    'Sring(重复几次，“要重复的字”)
    'msgbox string(2,"梁")
   
    'Filter()函数
    '这个数组搜索函数可以搜索数组的数据，将搜索到数据的数组组成一个新数组返回。
    '格式：Filter(要搜索的数组，“要搜索的字”)
    'dim a(3)
    'a(0)="HAPPYWIN"
    'a(1)="HAPPYLEARN"
    'a(2)="LEARN"
    'a(3)="LEARNHAPPY"
    'b=filter(a,"HAPPY")
    'for i=0 to ubound(b)
    'msg=msg & "b("& i& ")=" & b(i) & vbcrlf
    'next
    'msgbox msg
   
    'datepart("w",date())
    '一个星期几的返回值
    '日期返回值
    '星期日1
    '星期一2
    '星期二3
    '星期三4
    '星期四5
    '星期五6
    '星期六7
    msgbox datepart("w",date())
</script>