Manipulate[
ListPlot[Table[{k,PDF[BinomialDistribution[n,p],k]},{k,0,n}],Filling->Axis,PlotRange->All,PlotMarkers->{Automatic,Medium},Axes->{True,False}]
,{{n,10,"n"},3,300,1},{{p,.01,"p"},0.0,1.0,0.01}]