Programa
Dim i As Integer
Dim sec(20) As Integer
Dim j As Integer
Dim r As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.BackColor = Color.Aquasec(i) = 1
i = i + 1
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickButton2.BackColor = Color.Black
sec(i) = 2
i = i + 1
Timer1.Enabled = True
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
Button3.BackColor = Color.Blue
sec(i) = 3
i = i + 1
Timer1.Enabled = True
End Sub
Private Sub Button4_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button4.BackColor = Color.Yellow
sec(i) = 4
i = i + 1
Timer1.Enabled = True
End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Button5.BackColor = Color.Red
sec(i) = 5
i = i + 1Timer1.Enabled = True
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Button6.BackColor = Color.Greensec(i) = 6
i = i + 1
Timer1.Enabled = True
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.ClickButton7.BackColor = Color.Salmon
sec(i) = 7
i = i + 1
Timer1.Enabled = True
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As...
Regístrate para leer el documento completo.