Waiting on an answer

1. Determine the output displayed when the button is clicked.

Private Sub btnDisplay_Click(…) Handles btnDisplay.Click

   Dim nums() As Integer = {3, 5, 8, 10, 21}

   Dim total As Integer = 0

   For Each num As Integer In nums

      If (num Mod 2 = 0) Then

         total += 1

      End If

   Next

   txtOutput.Text = total & “ even numbers”

End Sub

2. Determine the output displayed when the button is clicked. Assume the five lines of the file Dates.txt contain the numbers 1492, 1776, 1812, 1929, and 1941 and the file is in the appropriate folder.

Private Sub btnDisplay_Click(…) Handles btnDisplay.Click

   Dim dates() As String = IO.FilereadAllLines(“Dates.txt”)

   Dim total As Integer = 0

   For Each yr As String In dates

      If (CInt(yr) >= 1900) Then

         Total += 1

      End If

   Next

   txtOutput.Text = total & ” 20th-century dates”

End Sub

3. Identify the errors in the following program segment.

Dim nums() As Integer = {1, 2, 3)

For Each num as Integer In nums

   Num += 100

Next

MessageBox.Show(CStr(nums.Sum)

4. Determine the output displayed when the button is clicked:

Structure College

   Dim name As String

   Dim stat As String

   Dim yearFounded As Integer

End Structure

 Private Sub btnDisplay_Click(…) Handles btnDisplay.Click

   Dim school As College

   school.name = “USC”

   school.state = “CA”

   school.yearFounded = 1880

   ‘Now.Year is the current year

   Dim age As Integer = Now.Year – school.yearFounded

   txtOutput.Text = school.name & “ is “ & age & “years old.”

End Sub

 

5. Write a program using the file Baseball.txt that requests a team as input from a list and displays the players from that team.

The players should be sorted in decreasing order by the number of hits they had during the season. The Baseball.txt file contains data about the performance of major league baseball players during the 2009 regular season. Each record of the file contains four fields – name, team, atBats, and hits. Some lines of the file are as follows:

Aaron Hill, Blue Jays, 682, 195

Ichiro Suzuki, Mariners, 639, 225

Derek Jeter, Yankees, 634, 212

The output should look like the following:

 

 

 

 

 

 

 

6. Determine the errors in the following code.

 

Structure Vitamins

   Dim a As Double

   Dim c As Double

End Structure

Private Sub btnDisplay_Click(…) Handles btnDisplay.Click

   Dim minimum As Vitamins

   minimum.c = 60

   minimum.a = 5000

   lstOutput.Items.Add(minimum)

End Sub