Manipulate[Plot[Sin[k*x],{x,0,2Pi},PlotRange->{{0,2Pi},{-1,1}}],{k,1,10}]

lista=Table[Plot[Sin[k*x],{x,0,2Pi},PlotRange->{{0,2Pi},{-1,1}}],{k,1,10,0.1}];

Export["film.gif",lista,"DisplayDurations"->.1,"AnimationRepetitions"->2]