Depende de la definición de amor que de cada uno y de la personalidad que perciba el estímulo.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPublic Sub Definicion()
Dim respuestauno, respuestados As String
Const respuestauno = _
(InputBox("Escribe aquí tu respuesta"))
If respuestauno Like SI Or SI Or SI Or SI Then
MsgBox ("Respuesta correcta. Cambiando los nombres, si todos los edificios son de piedra y toda la piedra es rompible, entonces todos los edificios son rompibles")
GoTo 16
Else: MsgBox ("Respuesta incorrecta.")
End If
'-----------
Const respuestados = (InputBox("Si compro por 8 y vendo por 10, y más tarde vendo por 12 y compro por 14, ¿cuánto he ganado?"))
If respuestados = 4 Then
MsgBox ("Respuesta correcta. ¡Bien hecho!")
Close
Else:
If respuestados <> 4 Then
MsgBox ("Respuesta incorrecta.")
End If
'-----------
End Sub
Public Sub CommandButton1_Click()
GoSub Definicion