Respuesta :

Answer:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim a As Byte

       For a = 1 To 5

           MessageBox.Show(a)

       Next a

   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       Close()

   End Sub

Button2 is exit button, and button1 is display button.

Explanation:

Please check the answer section.

ACCESS MORE
EDU ACCESS
Universidad de Mexico