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