Escribir pequeños programas con VB
El código se cambia a: subformulario privado _ click () dim a, b, c, d as string dim sum, avers longa = val (inputbox("Ingrese el primer número")).
B = InputBox("Ingrese el segundo número")
C = InputBox("Ingrese el tercer número")
D = InputBox (" Por favor ingrese el cuarto número")
Suma = a b c d
aver = suma / 4
Imprimir "Los cuatro números ingresados son"; A , B, C , D
Imprimir "La suma de los cuatro números 4 es"; Sum
Imprimir "El promedio de los cuatro números 4 es" en averEnd Sub VB6.0 La siguiente depuración aprobado