Oct 16, 2017 term paper 2

Private Sub btnDisplay_Click(…) Handles btnDisplay.Click Dim query = From cty In cities

This paper concentrates on the primary theme of Private Sub btnDisplay_Click(…) Handles btnDisplay.Click Dim query = From cty In cities in which you have to explain and evaluate its intricate aspects in detail. In addition to this, this paper has been reviewed and purchased by most of the students hence; it has been rated 4.8 points on the scale of 5 points. Besides, the price of this paper starts from £ 40. For more details and full access to the paper, please refer to the site.

A.Write lines of code as instructed in Steps (a) through (e) to fill in the missing lines in the following program.

1.Structure Appearance

Dim height As Double       ‘inches

Dim weight As Double      ‘pounds

End Structure

Structure Person

Dim name As String

Dim stats As Appearance End Structure

Private Sub btnDisplay_Click(…) Handles btnDisplay.Click Dim personl, person2 As Person

(missing lines)

End Sub

  • Give person the name Michael.
  • Set Michael’s height and weight to 71 and 190, respectively.
  • Give person2 the name Jacob.
  • Set Jacob’s height and weight to 70 and 175, respectively.
  • If one person is both taller and heavier than the other, display a sentence of the form “[name of bigger person] is bigger than [name of smaller person].”

B.In Exercises 15 through 18 describe the output that results from clicking on the button. The programs use the file Cities.ba that contains information about the 25 largest cities in the United States. Each record of the file has four fields—name, state, population in 2000 (in 100,000s), and population in 2010 (in 100,000s). The first four lines in the file are as follows:

1.Private Sub btnDisplay_Click(…) Handles btnDisplay.Click Dim query = From cty In cities

Where cty.state = “TX”

Let growth = (cty.pop2010      cty.pop2000) / cty.pop2000

Order By growth Descending

Select cty.name, cty.state, growth

For Each cty In query

lstOutput.Items.Add(cty.name & “, ” & cty.state)

Next

lstOutput.Items.Add(“Greatest growth: ” &

FormatPercent(query.First.growth))

End Sub

2.Private Sub btnDisplay_Click(…) Handles btnDisplay.Click

Dim query = From cty In cities

Order By cty.pop2010 Descending

Select cty.pop2010

Dim pops() As Double . query.ToArray ReDim Preserve pops(9)

txtOutput.Text = FormatNumber(100000 * pops.Sum, 0)

End Sub


0% Plagiarism Guaranteed & Custom Written, Tailored to your instructions


International House, 12 Constance Street, London, United Kingdom,
E16 2DQ

UK Registered Company # 11483120


100% Pass Guarantee

Order Now

STILL NOT CONVINCED?

We've produced some samples of what you can expect from our Academic Writing Service - these are created by our writers to show you the kind of high-quality work you'll receive. Take a look for yourself!

View Our Samples

corona virus stop
FLAT 25% OFF ON EVERY ORDER.Use "FLAT25" as your promo code during checkout