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