Foro de elhacker.net

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

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:

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