QTP中经常使用的VB语句

1.输出语句msgbox

输出需要返回的数据值，加上""表示原样输出

msgbox("Hello world!")
MsgBox "Hello world!"
result = MsgBox("Hello World!", vbOKOnly, "Greeting")
MsgBox "Hello World!", vbOKOnly, "Greeting"

2.变量声明有两种方式——显式与隐式，显式使用Dim、Public、Private语句进行声明，隐式直接使用变量名。使用隐式声明方式的习惯不好，因为这样有时会由于变量名拼错而导致程序运行出现意外，因此，最好在每个脚本开始第一行使用Option Explicit语句强制显式声明所有变量。声明示例如下:

Option Explicit
Dim i, conn   '声明多个变量时用逗号隔开
Public UserName, Password
Private m_id

注意：在VBScript中，变量名是不区分大小写，即userName与UserName是指同一个变量。

命名规则
VBScript中变量命名是有其规则标准的，变量命名必须遵循：
第一个字符必须是字母。
不能包含嵌入的句点。
长度不能超过255个字符。
在被声明的作用域内必须唯一。

作用域与存活期

变量的作用域由声明它的位置所决定。如果在过程中声明的，则只有该过程可以使用，即过程级变量；如果在过程之外声明的，则该变量可以被脚本中所有过程所使用，即Script级变量。变量所存在的时间为存活期。Script级变量的存活期为从被声明开始，直到脚本运行结束为止；过程级变量的存活期仅是过程被调用执行开始到结束的时间。不同的过程可以使用相同的变量名，因为局部变量只有声明它的过程才能识别。

变量赋值
给变量赋值很简单，使用等号进行赋值，等号左边为变量名，右边为变量值。若该变量是对象引用级别的，则需使用Set语句。示例代码如下：
Dim i, conn, ui
i = 0
Set conn = CreateObject("ADODB.Connection")
Set ui = New UserInfo

标量与数组

dim a(9), table(2,3)

常数

const PI 3.14

运算符

求幂 ^
负号 -
乘 *
除 /
整除 \
求余 Mod
加 +
减 -
字符串连接 &

逻辑运算符

逻辑非 Not
逻辑与 And
逻辑或 Or
逻辑异或 Xor
逻辑等价 Eqv
逻辑隐含 Imp

比较运算符

等于 =
不等于 <>
小于 <
大于 >
小于等于 <=
大于等于 >=
对象引用比较 Is

3.数据类型

子类型 描述
Empty 未初始化的Variant。对于数值变量，值为0；对于字符串变量，值为零长度字符串 ("")。
Null 不包含任何有效数据的Variant。
Boolean 包含True或False。
Byte 包含0到255之间的整数。
Integer 包含-32,768到32,767之间的整数。
Currency -922,337,203,685,477.5808到922,337,203,685,477.5807。
Long 包含-2,147,483,648到2,147,483,647之间的整数。
Single 包含单精度浮点数，负数范围从-3.402823E38到-1.401298E-45，正数范围从1.401298E-45到3.402823E38。
Double 包含双精度浮点数，负数范围从-1.79769313486232E308到-4.94065645841247E-324，正数范围从4.94065645841247E-324到1.79769313486232E308。
Date (Time) 包含表示日期的数字，日期范围从公元100年1月1日到公元9999年12月31日。
String 包含变长字符串，最大长度可为20亿个字符。
Object 包含对象。
Error 包含错误号。

4.Select Case 语句

Dim value : value = 5   '多条语句在一行,需用冒号分开
Select Case value
    Case 0:
        MsgBox(0)
    Case 1:
        MsgBox(9999)
    Case Else
        MsgBox("输入不合法！")
End Select

5.For Each…Next语句
对于集合中的每项或数组中的每个元素，重复执行一组语句，语法结构如下：
For Each element In group
    [statements]
    [Exit For]
    [statements]
Next [element]

6.过程

sub过程

[Public [Default] | Private] Sub name [(arglist)] 
    [statements]
    [Exit Sub]
    [statements]
End Sub

7函数 Function 过程

[Public [Default]| Private] Function name [(arglist)]
    [statements]
    [name = expression]
    [Exit Function] 
    [statements]
    [name = expression]
End Function

Sub没有返回值，而Function有返回值。
Sub不能放在表达式中，而Function可以。