Question

An application contains the Structure statement shown here.

Structure  MyFriend 
        Public strName As String 
    Public strBirthday As String
End Structure

Create a VB.Net Windows Form application named MyFriend_YourName. Change the name property of your form to frmMain.

Add the MyFriend Structure to the public class frmMain.

Create 2 text boxes txtName and txtBirthday, and a button with the name property changed to btnExecute and the text property changed to Execute.

In the button click event, write a Dim statement that declares a five-element one-dimensional array of MyFriend variables. Name the array home.

Then write an assignment statement that assigns the value in the txtName control to the strName member contained in the last array element.

Write an assignment statement that assigns the value in the txtBirthday control to the strBirthday member contained in the last array element.

Set a breakpoint next to you’re the Dim statement of your home array. See page 829 in your text for how to set breakpoints in VB.Net or search online.

Run your form, add a name and date to the respective text boxes and click the Execute button. Execution should stop at the breakpoint. Use the Debug menu or shortcut keys to step through the code. All code should execute without error

The solution that I see is:

Public Class frmMain
Structure MyFriend
Public strName As String
Public strBirthday As String
End Structure

Private Sub btnExecute_Click(sender As Object, e As EventArgs) Handles btnExecute.Click
Dim friendArray As MyFriend
friendArray.strName = txtName.Text
friendArray.strBirthday = txtBirthday.Text
MessageBox.Show("Entered Name is " + friendArray.strName + vbNewLine + "Entered Birthday is " + friendArray.strBirthday)
End Sub
End Class

However, I do not see "In the button click event, write a Dim statement that declares a five-element one-dimensional array of MyFriend variables. Name the array home." Am I missing it or not understanding something?

Answer 1

Updated Code:

Public Class frmMain

    'Added structure to frmMain class
    Structure MyFriend
        Public strName As String
        Public strBirthday As String
    End Structure

    ' Execute button click event handler
    Private Sub btnExecute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExecute.Click

        ' Declaring a five-element one-dimensional array of MyFriend variables.
        ' Array name: home
        Dim home(5) As MyFriend

        ' Storing user entered values to last element of array
        home(4).strName = txtName.Text
        home(4).strBirthday = txtBirthday.Text

        ' Displaying stored values in message box
        MessageBox.Show("Entered Name is " + home(4).strName + vbNewLine + "Entered Birthday is " + home(4).strBirthday)

    End Sub

End Class

______________________________________________________________________________________________

Sample Run:

Form1 uh Name Anil EX Entered Name is Anil Entered Birthday is 23/06/1947 Birthday: 23/06/1947 OK Execute