Hola!

Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D

Regístrame ya!

problema con visual basic

N

NIREKO

Becerro
Desde
10 Jun 2014
Mensajes
2
hola compañeros bakunos, tengo un gran problema, se supone que tengo que hacer una tarea de programación en visual basic de excel, la tarea consiste en hacer algo para sacar el area y volumen utilizando el termino GoTo, pero no puedo y por mas que le intento no me da, espero alguien pueda resolverme esta duda.

este es el codigo que llevo y forzosamente necesito usar el GoTo

Sub volumenyareadeunortoedro_goto()

Dim area, volumen, largo, ancho, altura As String



largo = InputBox("dame el largo")

ancho = InputBox("dame el ancho")

altura = InputBox("dame la altura")

area = 2 * (largo * ancho + largo * altura + ancho * altura)

volumen = largo * ancho * altura

If area Then
GoTo linea1

Else

GoTo linea2



linea1:


MsgBox ("area(" & area & ") "), , "el area es"

linea2:

MsgBox ("volumen(" & volumen & ") "), , "el volumen es"

End If
 
Esto me funcionó, sólo que puse el código en un botón, espero que te sirva, tal vez el error estaba en que no declarabas las variables de tipo entero.

Private Sub CommandButton1_Click()
Dim largo, ancho, altura As String
Dim area, volumen, vlargo, vancho, valto As Integer

largo = InputBox("dame el largo")
vlargo = Val(largo)

ancho = InputBox("dame el ancho")
vancho = Val(ancho)
altura = InputBox("dame la altura")
Valtura = Val(altura)
area = 2 * vlargo * vancho + vlargo * Valtura + vancho * Valtura

volumen = vlargo * vancho * Valtura

If area Then
GoTo linea1
Else
GoTo linea2
End If
linea1:
MsgBox ("area(" & area & ") "), , "el area es"

linea2:
MsgBox ("volumen(" & volumen & ") "), , "el volumen es"


End Sub
 
gracias vere si esta bien o si no vuelvo al mismo tema jaja muchas gracias
 
Debes iniciar sesión o registrarte para participar.
Volver
Arriba