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