Visual Basic - Solicitud de ejecución de un programa y petición del enlace del código de instrucciones.

Public function partic(n)

dim a(40,40)

dim i,s,h,k

if n=1 then partic=1:exit function

k=n

for i=1

a(1,i)=1

a(i,i)=1

next i

for h=2 to n

for i=2 to h-1

m=h-i

s=0

for j=1 to i:s=s+a(j,m):next j

a(i,h)=s

next i

next h

For h=1 to n

s=0

for i=1 to k

s=s+a(i,h)

next i

next h

partic=s

end function