QTP VBScript 基础(二)

续 QTP VBScript 基础(一) 继续学习 VB 基础知识

1. 子程序 和 判断语句:

Sub xxx...End Sub

if...then...else...end if

Option Explicit
Dim GetupTime, Act

Sub Sunday(GetupTime, Act)

    If  GetupTime > 10 Then

        If  Act = true Then
            MsgBox ("莉莉超过10点了，有约会出去玩")
        End If

        If Act = false Then
            MsgBox ("莉莉超过10点了，没有约会继续睡觉")
        End If

    else
        MsgBox ("没到10点，莉莉继续睡觉")
    End If

End Sub

Sunday 11, false

2. 函数程序 和 判断语句:

function xxxx....End function  

if...then...else...end if

Option Explicit
Dim GetupTime, Act, Result

function  Sunday(GetupTime, Act)

    If  GetupTime => 10 Then

        If  Act = true Then
            Sunday =  "莉莉超过10点了，有约会出去玩"
        End If

        If Act = false Then
            Sunday = "莉莉超过10点了，没有约会继续睡觉"
        End If

        else
             Sunday = "没到10点，莉莉继续睡觉"
    End If

End function

Msgbox "The msg is " & Sunday(11,true)

3. 条件语句：select case

select case Cash
 case Cash
   msgbox "You are going to pay cash"
 case "Visa"
   msgbox "You are going to pay with visa"
 case "AmEx"
   msgbox "You are going to pay with American Express"
 case Else
   msgbox "Unknown method of payment"
end select

4. 循环语句:For...Next

For 语句规定计数变量以及它的开始值和结束值

Next 语句会递增变量 i

Step 规定计数器递增递减值

Exit for 退出循环

For i=1 to 10 Step 2

    MsgBox i
    If  i = 3  Then
        Exit for
    End If

Next
5. 随机数
Function  RandNumber(num)
     RandNumber = Int(num * rnd())
     Msgbox ("随机数为：" & RandNumber)
End Function

RandNumber(23)