Programación VB: use el teclado para ingresar n números y cuente la suma y el número de números positivos, y la suma y el número de números negativos respectivamente.

subcomando privado1_click()

dmi a() como entero,zs,zss,fs,fss

n=cint(inputbox("n=" ))

redim a(n)

para i=1 a n

a(i)=cint(inputbox("Nº de entrada." & i & "Número:"))

si a(i)>=0 entonces

zs=zs+a(i)

zss=zss+1

else

fs=fs+a(i)

fss=fss+1

finalizar si

siguiente

print "La suma de números positivos=";zs,"El número de números positivos=";zss

print "La suma de números negativos=";fs, "El número de números negativos =";fss

end sub