Code: Select all

`'DIM's for the variables.`

dim p1, p2, p3, p4, p5, p6, p7, p8, p9, p10 as integer

'Each of the following variables needs to hold the next consecutive integer from the DATA statement.

'Ex. p1 = 1, p2 = 2, p3 = 3, and so on.

p1 =

p2 =

p3 =

p4 =

p5 =

p6 =

p7 =

p8 =

p9 =

p10 =

data 1,2,3,5,7,3,2,1,5,3