Temas

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

Buenas a todos,

Estoy empezando con este mundillo y me surgían varias dudas, estoy utilizando visual y me haciendo un programa simple para la autentificacion de usuarios me sale el siguiente error "else sin if" transcribo lo escrito hasta ahora_

Código (vb) [Seleccionar] Expandir

Private Sub CmdEntrar_Click()
If TextUsuario.Text = "acano" And TextContraseña.Text = "12345" Then Ventana2.Show
   Else
   MsgBox = "te has equivocado"
   End If
   End Sub

El error "else sin if" me salta cuando pongo la contraseña y el usuario y pincho en el comando que he creado "cmdEntrar"

Donde esta el fallo por el que me salta el error este?

Muchas gracias de antemano y un saludo