$p=%v$

Achsen-Skalierung

n = 100 (slider from 1 to 1000, step 1)
p = 0.42 (slider from 0 to 1, step 0.01)
L_1 = Sequence(((Binomial[n, k] * p^(k)) * (1 - p)^(n - k)), k, 0, n)
a = BarChart(Sequence[0, n], L_1, 1)
b = true