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