Use Set rather than SetDelayed for q[[1]] and q[[2]]
Set
SetDelayed
Test[n1_] := Module[{q}, q = Table[0, {n1}]; q[[1]] = 1; q[[2]] = q[[1]]; q]; Test[4]
{1, 1, 0, 0}
