Cómo calcular el promedio en programación VB

Crear un nuevo proyecto, un cuadro de texto y un botón

text1 se usa para ingresar datos Debido a que es un número arbitrario, es inconveniente usar muchos cuadros de texto. El diseño del programa usa "," para separar. los números, y puede ingresar cualquier número. Luego, después del botón comando1, se puede mostrar el total y el promedio.

Private Sub Command1_Click()

Si Len(Text1) = 0, entonces salga de Sub

Si InStr(Text1, ","") 2, entonces salga; Subrutina

Dim a, sumn%, i%, j%

a = Split(Text1, ","")

For i = 0 a UBound(a)

Si IsNumeric(Val(a(i)))Entonces 'Evitar casos no numéricos, haga una verificación

sumn = sumn + Val(a ( i))

suma = suma + Val(a(i))

j = j + 1

Suma = Suma%, i%, j %

j = j + 1

Finalizar si

Siguiente

Imprimir "La suma es:" & suma

Imprimir " Media es: " & suma / (UBound(a) + 1)

End Sub.