duda con visual

[acanooo]

Hola Buenas soy nuevo en esto por lo que paciencia conmigo.

He intentado hacer un premedio con 3 casillas a las cuales le asigno un numero, sumo las 3 y lo divido entre 3 por lo que me deberia dar el promedio.. pues no es así puesto que me sale un numero siempre mucho mas grande. adjunto lo escrito en visual. en que estoy fallando? saludos

Private Sub Command1_Click()
Dim promedio

Dim a, b, c

    a = text1.Text
    b = Text2.Text
    c = Text3.Text

promedio = (a + b + c) / 3

MsgBox ("el promedio es" & promedio)
   


End Sub

[fary]

Bueno pues,  tu estas tratando de sacar el promedio de una cadena, ya que no conviertes lo que contienen los TextBox en valores numerico. Además no indicas el tipo de variable que declaras.

El código corregido sería este:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
   Dim promedio As Integer

   Dim a As Integer
   Dim b As Integer
   Dim c As Integer

   a = Val(Text1.Text)
   b = Val(Text2.Text)
   c = Val(Text3.Text)

   promedio = (a + b + c) / 3

   MsgBox ("el promedio es " & promedio)
End Sub