PROGRAMA DE COMPOSICION DE UNA FRASE CORRECTA 2

En un formulario se introducen manteniendo el orden: de arriba abajo y de izquierda a derecha, todos los elementos de la figura, en total 8 Labels como en la imagen, un combobox, un listbox, tres botones de opción, y un botón. (Tal como está en la imagen y con el mismo texto)

Una vez tenemos todos los controles puestos y con el texto correspondiente introducimos la funció Form_load() del formulario:

Private Sub Form_Load()

Combo1.Text = "Selecciona el Sujeto"

Combo1.AddItem ("Nosotros")

Combo1.AddItem ("Yo")

Combo1.AddItem ("Ellas")

Label5.Caption = Combo1.Text

List1.Text = "Selecciona el Verbo"

List1.AddItem ("comeran")

List1.AddItem ("fuimos")

List1.AddItem ("almuerzo")

Label6.Caption = List1.Text

End Sub

Haciendo doble clic en el combo, introducimos la función Combo1_click()

Private Sub Combo1_Click()

Label5.Caption = Combo1.Text

End Sub

Hacemos lo mismo sobre el cuadro de Lista y editamos la función List1.click()

Private Sub List1_Click()

Label6.Caption = List1.Text

End Sub

Los botones de opción deben introducirse de uno en uno y de arriba abajo y haciendo doble clic en cada uno de ellos escribimos sus correspondientes funciones Option_click

Private Sub Option1_Click()

Label7.Caption = Option1.Caption

End Sub

Private Sub Option2_Click()

Label7.Caption = Option2.Caption

End Sub

Private Sub Option3_Click()

Label7.Caption = Option3.Caption

End Sub

Y por último se introduce el código del botón en el evento clic, es decir, el que se abre cuando hacemos dobleclick en el botón desde el formulario, que será el siguiente:

Private Sub Command1_Click()

If Combo1.Text = "Yo" And List1.Text = "almuerzo" And Option2 Then

Label8.ForeColor = vbBlue

Label8.Caption = "FRASE CORRECTA"

ElseIf Combo1.Text = "Nosotros" And List1.Text = "fuimos" And Option3 Then

Label8.ForeColor = vbBlue

Label8.Caption = "FRASE CORRECTA"

ElseIf Combo1.Text = "Ellas" And List1.Text = "comeran" And Option1 Then

Label8.ForeColor = vbBlue

Label8.Caption = "FRASE CORRECTA"

Else

Label8.ForeColor = vbRed

Label8.Caption = "FRASE INCORRECTA"

Exit Sub

End If

End Sub

Y COLORIN COLORADO ESTE PROGRAMA SE HA ACABADO.