Programación VB: ¡Calcula 20 7!

atenuar S

s=20

atenuar a, b, c, d

a=0

Para i = 7 a 10

para k = 1a i

b=b * k

siguiente k

a= a b

siguiente i

s= s a

msgbox "Result=" amp;