Steps 1-6

Part B

Please answer

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

       Close()

   End Sub

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

       Dim number As Integer

       number = 1 // we need to change this first to 5 and then 6 and run the code

       Do While number < 5

           MessageBox.Show(number)

            Label1.Text = Convert.ToString(number)

           number = number + 1

       Loop

   End Sub

We find that the program runs but no message is displayed in the message box. Same thing happens with the label. It doesnot show any number in that case, but program runs successfully. And this is because of do while loop, which runs for at least one time always. And hence it is used to create the menus.

Explanation: