
Ayuda con un codi
Publicado por Matias (1 intervención) el 28/10/2021 02:20:05

Buenas! Necesito ayuda con este ejercicio, soy estudiante de primer año, el tema es que me falta como limpiar los label en caso de error. Tengo este codigo:
Private Sub btnJugar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnJugar.Click
lbl1.Text = Int(100 * Rnd())
lbl2.Text = Int(100 * Rnd())
If lbl2.Text > lbl1.Text Then
MsgBox("BIEN")
Else : MsgBox("PERDISTE Numero 2 es Menor que 1")
End If
lbl3.Text = Int(100 * Rnd())
If lbl3.Text > lbl2.Text Then
MsgBox("BIEN")
Else : MsgBox("PERDISTE Numero 3 es Menor que 2")
End If
lbl4.Text = Int(95 * Rnd())
If lbl4.Text > lbl3.Text Then
MsgBox("BIEN")
Else : MsgBox("PERDISTE Numero 4 es Menor que 3")
End If
End Sub
Private Sub Numeros_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Valora esta pregunta


0