Red de conocimiento informático - Problemas con los teléfonos móviles - 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.

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)?

Siguiente

¿Para?i?=?1?A?10

Si?a(i)? >?0?Entonces?Zcount?=?Zcount?+?1

Si ?a(i)?

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