学习qtp的脚本语言vbs

用Option Explicit显式声明所有变量，并将其作为脚本的第一条语句。

msgbox函数语法：
msgbox "对话框内容prompt" ,显示按钮button, "对话框的标题title，[helpfile，context]"

msgbox中的button参数的常量：
vbok--确定，取消
vbokonly--只显示“确定”按钮
vbcancel--终止，重试，忽略
vbyesnocancel--是，否，取消
vbokcancel--显示“确定”和“取消”按钮；
vbyes--是；
vbno--否；
vbignore--忽略；
vbretry--重试；
vbabort--终止；
举例：msgbox"你好吗",vbokonly,"问好"
例：msgbox".net是基于微软提供的一种面向对象语言的编程环境，严格的说就是.net framework!" ,确定,"系统提示"

InputBox函数语法：InputBox "对话框内容" , "对话框的标题"
举例:
Dim name,birthday
name=InputBox("请输入你的名字：","对话框标题")
birthday=InputBox("请输入你的生日：","对话框标题")
MsgBox name ,,"您的名字是" '直接调变量，无需引号
MsgBox birthday ,,"您的生日是"

数组（类型相同的一组数据）
定义数组:dim 数组名 (元素的个数)
在vbs中，数组的下限是从0开始的！
如:arr[2]，说明该数组里有3个元素；
数组中的元素，数据的类型必须相同；
下面举几个简单的一维数组案例：
举例1：定义一个数组，并输出；
dim a(9) '定义数组，并从下标0开始
for i=0 to 9
a(i)=i '填充每一个数组元素
msgbox(a(i)) '输出数组的每一个元素
next
输出结果：依次为0，1，2，3，4，5，6，7，8，9
举例2：
dim name(3),str '定义一个数组，包含4个学生
for i=0 to 3
name(i)=inputbox("请输入第" & i+1 & "个学生名字") '输入的值为学生的name，并填'
'充到数组的每个元素中；
str=str & " " & name(i) '把前后的name连接一起，返回一个name的字符串
next '如果next在msgbox的后面，输入一个name，会弹出一个name+str，依次叠加；
msgbox(str)'msgbox放在next的后面，会在最后弹出一个对话框，输出所有的name；
举例3:如果元素类型不相同,那么定义多个数组;
dim name(2),high(2),mark(2)
dim count
for count=0 to 2
name(count)=inputbox("请输入第" & count+1 & "个学生的姓名")
high(count)=inputbox("请输入第" & count+1 & "个学生的身高")
mark(count)=inputbox("请输入第" & count+1 & "个学生的分数")
next
rem 上述依次输入名字,身高,分数,并循环输入3次;

dim ename
ename=inputbox("请输入你要查询的名字:")
for count=0 to 2
if name(count)=ename then
exit for
end if
next
msgbox("姓名:" & name(count) & "身高:" & high(count) & "得分:" & mark(count))

LBound函数：返回指定数组维的最小可用下标；
UBound函数：返回指定数组维的最小可用上标；
Dim  A(10,1 to 20)
LBound(A,1)                 '  得出的结果值：0
LBound(A,2)                 '  得出的结果值：1
UBound(A, 1)                '  得出的结果值：10
UBound(A, 2)                '  得出的结果值：20