Question

Fix the following if statement

Dim LastName As String = TxbLastName.Text
Dim FirstName As String = TxbFirstName.Text
If LastName = TxbLastName.Text Then

If FirstName = TxbFirstName.Text Then
MessageBox.Show("Complete User's Information")
Else
If Integer.TryParse(TxbAge.Text, Age) Then
If Age < 15 Or Age > 90 Then
MessageBox.Show("Age number must be at least from 15 to 90 years old.",
"Invalid Number",
MessageBoxButtons.OK, MessageBoxIcon.Information)
Else

BtnClear.Enabled = True
LtbAge.Items.Add(TxbAge.Text)
TxbAge.Text = " "
LtbLastName.Items.Add(TxbLastName.Text)
TxbLastName.Focus()
TxbLastName.Text = " "
LtbFristName.Items.Add(TxbFirstName.Text)
TxbFirstName.Text = " "

End If

With TxbAge

.Focus()
.Clear()
End With
End If
End If
Exit Sub

End If

End Sub

Answer 1

Dear Student ,

As per the requirement submitted above , kindly find the below solution.

Here a new Windows Forms Application in VB is created using Visual Studio 2017 with name "DemoApplication".This application contains a form with name "Form1.vb".Below are the files associated with form1.

1.Form1.cs[Design]

Form1 Age Last Name First Name Display

2.Form1.Designer.cs

3.Form1.cs

Public Class Form1
'display button click
Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click
Dim LastName As String = TxbLastName.Text
Dim FirstName As String = TxbFirstName.Text
Dim Age As Integer
'checking if last and first name is empty or not
If LastName = "" Or FirstName = "" Then
'if first and last name is empty then display messagebox
MessageBox.Show("Complete User's Information")
'checking whether age is numeric or not
ElseIf Integer.TryParse(TxbAge.Text, Age) Then
'checking age if age between 15 and 90
If Age < 15 Or Age > 90 Then
'if not between 15 and 90 display message box
MessageBox.Show("Age number must be at least from 15 to 90 years old.", "Invalid Number", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
'if first name , lastname and age is valid then
BtnClear.Enabled = True 'enable clear button
LtbAge.Items.Add(TxbAge.Text) 'add age in the listbox LtbAge
TxbAge.Text = " " 'clear textbox
LtbLastName.Items.Add(TxbLastName.Text) 'add last name in the listbox LtbLastName
TxbLastName.Focus() 'set focus to the textbox LastName
TxbLastName.Text = " " 'clear textbox value
LtbFristName.Items.Add(TxbFirstName.Text) 'add first name in the listbox LtbFristName
TxbFirstName.Text = " " 'clear textbox value

End If
Else
'if age is not numeric display message box
MessageBox.Show("Enter numeric age")
With TxbAge
.Focus()
.Clear()
End With
End If
Exit Sub
End Sub
End Class

======================================================

Output : Run application using F5 and will get the screen as shown below

Screen 1 :

Form1 Age Last Name First Name Display

Screen 2 :Screen when first or last name is empty

Formi Age Last Name First Name ear Display Complete User's Information OK

Screen 3:Screen when age is non numeric

Formi First Name Last Name Age Virat Kohli asf Display Enter numeric age OK

Screen 4:Screen when age is not in the range

Forml First Name Last Name Age Virat Kohli 10 Display Invalid Number Age number must be at least from 15 to 90 years old. OK

Screen 5:Screen showing first name , last name and age in the list box

Form1 First Name Last Name Age Display Clear Virat Kohli 17

Screen 6:Screen showing first name , last name and age in the list box for couple of entries

Form1 Age Last Name First Name Clear Display 17 Kohli Tendulkar Virat Sachin

NOTE : PLEASE FEEL FREE TO PROVIDE FEEDBACK ABOUT THE SOLUTION.