Problema de programación VB, ingrese n números desde el teclado, calcule la suma y el número de números positivos, y la suma y el número de números negativos en cada número.
Private?Sub?Command1_Click()
Dim?a(1?To?10)?As?Single'Aquí se supone que se ingresan 10 números
Dim?Fcount?As ?Integer ,?Zcount?As?Integer
Dim?i%
¿Para?i?=?1?to?10
a(i)? =? InputBox("Entrar")
Siguiente
¿Para?
Si?a(i)? ?+ ?a(i)
Si?a(i)? 0?Entonces?f?=?f?+?a(i)
Siguiente
¿Para?i?=?1?A?10
Si?a(i)? >?0?Entonces?Zcount?=?Zcount?+?1
Si ?a(i)? 0?Entonces?Fcount?=?Fcount?+?1
Siguiente
Imprimir?"Suma de enteros:"? "La suma de números negativos:"?"El número de números positivos:"? &?Zcount
Imprimir?"El número de números negativos:" &?Fcount
Fin ?Sub
¿Escribiendo? Por favor, espera