Private Sub btnDisplay$\_$Click$($sender As Object, e As EventArgs$)$ Handles btnDisplay.Click

$\text{'}$ Read the states from the file

Dim lines$()$ As String $=$ IO$.$File.ReadAllLines$("$USStates$.$txt$")$

$\text{'}$ Create a query to calculate the total land area

Dim totalAreaQuery $=$

From line In lines

Let parts $=$ line.Split$(","$c$)$

Let area $=$ Integer.Parse$($parts$(2))$

Select area

Dim totalArea As Integer $=$ totalAreaQuery.Sum$()$

$\text{'}$ Create a query to order the states by land area and calculate the percentage of the total area

Dim statesQuery $=$

From line In lines

Let parts $=$ line.Split$(","$c$)$

Let name $=$ parts$(0)$

Let area $=$ Integer.Parse$($parts$(2))$

Let percent $=($area $/$ totalArea$)*100$

Order By area Descending

Select name, percent.ToString$("$F$2")$ & $"\%"$

$\text{'}$ Display the results in the data grid view

dgvOutput.DataSource $=$ statesQuery.ToList$()$

dgvOutput.Columns$(0).$HeaderText $=$ "State"

dgvOutput.Columns$(1).$HeaderText $=$ "Percentage of Total Area"

End Sub