VBScript code in QTP to create an array with five elements to store a student five subject marks and display total marks

Option explicit

Dim marks(4), i, total

total=0

For i=0 to 4 step 1

    marks(i)=inputbox("Enter marks :")

    total=total+marks(i)

Next

msgbox("Total marks of student : "&total)