Tricentis Tosca 16.0 Released on Feb-2023 ----- UFT has been upgraded from UFT 15.0.1 to UFT One 15.0.2, Beginning at November 2020.

Monday, 16 September 2019

Script for to Print Even numbers 

For i=1 To 20
    If i mod 2=0 Then
       MsgBox i
    End if
Next

OutPut - 2,4,6,8,10,12,14,16,18,20
    

or

For i=20 To 1 Step-1
    If i mod 2=0 Then
       a=a&" "&i&vbCrLf
    End if
Next
MsgBox a



Print odd numbers

For i=1 To 20
    If i mod 2<>0 Then
       Print i
    End if
Next


Out Put- 1,3,5,7,9,11,13,15,17,19

Read the Array values at once

Dim myarray(3)

myarray(0)="Raja"
myarray(1)="Ravi"
myarray(2)="Sunil"
myarray(3)="Mahe"

MsgBox myarray(0)

For i=0 To UBound(myarray)
    MsgBox myarray(i)
    a=a&myarray(i)&vbcrlf
Next

MsgBox a


Output- 
Raja
Ravi
Sunil
Mahe

No comments:

Post a Comment

Note: only a member of this blog may post a comment.