Introduce en un formulario un Label1 Para escribir el titulo del programa: “FORMAMOS UNA FRASE”

Introduce tres Frames ordenados de izquierda a derecha

Dentro de cada Frame (i de izquierda a derecha) introduce tres botones de opcion (OptionButton) de uno en uno y de arriba abajo .(No hagais matrices de ningún elemento). En el caption de cada botón de opción introducid el texto que hay en la imagen del formulario (NO OTRO)

Añadid un botón como el de la foto , un Label2 debajo y un Label3 un poco más abajo.

En el General Declaraciones hay que declarar las frases1, frase2 y frase3.

Dim frase1 As String

Dim frase2 As String

Dim frase3 As String

Dentro del Botón (“Construimos la frase”) introducir el siguiente código:

Private Sub Command1_Click()

If Option1.Value = True Then frase1 = Option1.Caption

If Option2.Value = True Then frase1 = Option2.Caption

If Option3.Value = True Then frase1 = Option3.Caption

If Option4.Value = True Then frase2 = Option4.Caption

If Option5.Value = True Then frase2 = Option5.Caption

If Option6.Value = True Then frase2 = Option6.Caption

If Option7.Value = True Then frase3 = Option7.Caption

If Option8.Value = True Then frase3 = Option8.Caption

If Option9.Value = True Then frase3 = Option9.Caption

corregir

Label2.Caption = frase1 & " " & frase2 & " " & frase3

End Sub

Atención tendreis que definir una función corregir que hemos utilizado en el botón esto se hace escribiendo detrás de cualquier End Sub lo siguiente:

Private Sub corregir()

If (Option1.Value = True And Option5.Value = True And Option9.Value = True) Then

Label3.ForeColor = vbBlue

Label3.Caption = "FRASE CORRECTA"

Exit Sub

Else

Label3.ForeColor = vbRed

Label3.Caption = "FRASE INCORRECTA"

End If

If (Option2.Value = True And Option6.Value = True And Option7.Value = True) Then

Label3.ForeColor = vbBlue

Label3.Caption = "FRASE CORRECTA"

Exit Sub

Else

Label3.ForeColor = vbRed

Label3.Caption = "FRASE INCORRECTA"

End If

If (Option3.Value = True And Option4.Value = True And Option8.Value = True) Then

Label3.ForeColor = vbBlue

Label3.Caption = "FRASE CORRECTA"

Exit Sub

Else

Label3.ForeColor = vbRed

Label3.Caption = "FRASE INCORRECTA"

End If

End Sub