VBScript code in QTP to create five elements array, to store five values in to that array in any type, display alphabets and alphanumerics in that array.

Option explicit

Dim val(4), i

For i=0 to 4 step 1

     val(i)=inputbox("Enter any values :")

Next

For i=0 to 4 step 1

     If not isnumeric(val(i)) Then

        print(val(i))

     End If

Next