For x = 1 To 5
  p(x) = 0

こういうことは出来ない