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