Escriba un programa en VB para encontrar la suma de 10 números enteros ingresados usando la función del cuadro de entrada y el producto de estos números.
'El código de muestra es el siguiente:
Privado
Sub
Form_Click()
Dim
a (1
A
10)
t
=
1
s
=
para
i
=
1
a
10
a(i)
=
Val(InputBox("Ingrese un número entero: "))
Imprimir
a(i);
"
";
s
=
s
+
a(i)
t
=
t
*
a(i)
Siguiente
i
Cuadro de mensajes
"La suma de diez números es: "
&
s
MsgBox
"El producto de diez números es: "
&
t
Fin
Sub