Student Solutions Manual (Page 1 of 211)

STUDENT SOLUTIONS MANUAL

to accompany An Introduction to Programming Using Visual Basic 2010, 8th Edition by David I. Schneider

Student Solutions Manual (Page 2 of 211)

Copyright 2011 by Pearson Higher Education. All rights reserved.

Student Solutions Manual (Page 3 of 211)

CONTENTS
Chapter Comments Chapter 2 Visual Basic Controls and Events Exercises 2.2 Visual Basic Controls 11 Exercises 2.3 Visual Basic Events 15 Chapter 3 Variables, Input, and Output Exercises 3.1 Numbers 18 Exercises 3.2 Strings 21 Exercises 3.3 Input and Output 26 Chapter 4 Decisions Exercises 4.1 Relational and Logical Operators 30 Exercises 4.2 If Blocks 31 Exercises 4.3 Select Case Blocks 38 Exercises 4.4 Input via User Selection 42 Chapter 5 General Procedures Exercises 5.1 Function Procedures 47 Exercises 5.2 Sub Procedures, Part I 50 Exercises 5.3 Sub Procedures, Part II 55 Chapter 6 Repetition Exercises 6.1 Do Loops 57 Exercises 6.2 ForNext Loops 62 Exercises 6.3 List Boxes and Loops 68 Chapter 7 Arrays Exercises 7.1 Creating and Accessing Arrays 77 Exercises 7.2 Using LINQ with Arrays 85 Exercises 7.3 Arrays of Structures 89 Exercises 7.4 Two-Dimensional Arrays 99 Chapter 8 Text Files Exercises 8.1 Managing Text Files 106 Exercises 8.2 StreamReaders, StreamWriters, Structured Exception Handling 111 Exercises 8.3 XML 115 Chapter 9 Additional Controls and Objects Exercises 9.1 List Boxes and Combo Boxes 120 Exercises 9.2 Eight Additional Controls and Objects 125 Exercises 9.3 Multiple-Form Programs 132 Exercises 9.4 Graphics 142

Student Solutions Manual (Page 4 of 211)

Chapter 10 Databases Exercises 10.1 An Introduction to Databases 151 Exercises 10.2 Editing and Designing Databases 164 Chapter 11 Object-Oriented Programming Exercises 11.1 Classes and Objects 165 Exercises 11.2 Working with Objects 172 Exercises 11.3 Inheritance 186 Chapter 12 Web Applications Exercises 12.1 Programming for the Web, Part 1 193 Exercises 12.2 Programming for the Web, Part 2 199 Exercises 12.3 Using Databases in Web Programs 204

Student Solutions Manual (Page 5 of 211)

Chapter Comments Chapter 1 1. Your instructor might skip this chapter. If so, I recommend that you take a quick look at two items from the chapter. Look at the last question and answer on page 3 to see how the appearance of a program varies with the version of Windows being used. Also, look at the discussion of "Displaying File Extensions" on pages 5 and 6. I recommend that you configure Windows to show all file extensions. Chapter 2 1. On page 44 you are asked to run a program that was downloaded from the Pearson website for the book. All of the programs appearing in Examples and Case Studies can be downloaded from that website. There is never any need for you to manually type in the code for a program in this textbook. The website also contains all the text files, databases, and pictures needed for the exercises. All of these files are contained in the folders Ch02, Ch03, Ch04, and so on. Each chapter file contains a subfolder named Text_Files_for_Exercises which contains the text files needed for that chapters exercises. The folder Ch09 has a subfolder named Pictures that contains picture files. The folders Ch10 and "Ch12" have a subfolder named Databases containing all the databases needed for the exercises. Each program is contained in a folder with a name in the form chaptersection example number. For instance, the program in Chapter 3, Section 1, Example 2 is contained in the folder 3-1-2. Many of the programs make use of a text file in the subfolder Debug of the programs bin subfolder. 2. At the top of page 44, we explain our use of ellipses (...) as place holders for the phrase "ByVal sender As System.Object, ByVal e As System.EventArgs". A program will not run when the phrase is replaced with an ellipsis. However, a program will run if the phrase is simply deleted. Therefore, if you use Ctrl+C to copy code from this Student Solutions Manual and paste it into your own program, the code will execute after you delete the ellipses. 3. Every program you write requires use of the Properties window. By default, the Properties window is docked to the right side of the IDE. You might find the Properties window easier to use if you undock it while setting properties. If you double-click on the Properties windows title bar, the window will become undocked and larger. After you have finished using the Properties window, right-click on its title bar and click on Dock. Note: This process also can be used to undock (and redock) the Toolbar and the Solution Explorer window.

Student Solutions Manual (Page 6 of 211)

Chapter 3 1. Figure 3.1 on page 70 shows the settings for Options Explicit, Strict, and Infer set to On. Most instructors will recommend that the first two Options be set to On. Option Infer, on the other hand, is controversial. (The default setting is On.) If you want to learn more about the effect of Option Infer, take a quick look at the discussion of local type inference on page 236. 2. On page 77, we discuss line continuation. In earlier versions of Visual Basic, the underscore character was needed to continue a statement onto another line. Beginning with VB2010, the underscore character can be omitted when a line that obviously has a continuation (such as, when the line ends with a comma or an arithmetic operator) and therefore will seldom be needed in the programs you write. Underscore characters frequent appear in the answer section of the book and in the Student Solutions Manual following the word "Handles". This was necessary due to the fact that we must limit the length of lines in a printed page. 3. A discussion of sending output to the printer is presented at the end of Section 3.3. This material is optional. If your instructor decides to skip this topic, you might want to take a quick look (just a few minutes) to see what's involved in printing the output of a program. This material is not needed in the textbook. I included it at the request of some instructors. Chapter 4 1. Section 4.1 is unusual in that you will not be asked to write any programs in the exercise set. However, the concepts presented in this section will be fundamental to the rest of the textbook. 2. In Chapter 3 we used list boxes to display data. In Section 4.4, we show how list boxes are used to allow the user to make selections. Another control used to make a selection from a list, a combo box, will be discussed in Chapter 9. 3. The first two sentences after Figure 4.12 on page 149 should read as follows: When you click on an unselected item in a list box, the SelectedIndexChanged event is raised. When you click on a check box or on an unchecked radio button, the CheckedChanged event is raised.

Student Solutions Manual (Page 7 of 211)

Chapter 5 1. Except for the three case studies, Function procedures appear in many more programs than Sub procedures. The use of Sub procedures is part of good programming practice, but it is not essential. Any computer program can be written without Sub procedures. However, there are a number of programs in this textbook that would be very difficult to write without Function procedures. 2. The above comment is not intended to diminish the importance of Sub procedures. They are a fundamental component of good program design. However, if you find Sub procedures somewhat confusing at first, don't worry. You will still be able to work the exercises. You will eventually become comfortable with Sub procedures after seeing them used in subsequent chapters. Chapter 6 1. There are two types of loops presented in this chapterDo loops and For...Next loops. A third type of loop, called a For Each loop, will be presented in Section 7.1. 2. Loops have traditionally been used to process lists of data. For instance, loops can be used with a list of numbers to compute the sum of the numbers, the average of the numbers, the largest number in the list and the smallest number in the lists. The algorithms for calculating sums and averages is obvious. In Example 4 of Section 6.3, the maximum value of the numbers in a list box are calculated with the following algorithm: (a) Declare a variable named max. (b) Assign a value to the variable that is guaranteed to be less than or equal to the maximum value in the list. One possibility is to set the value of max equal to the first number in the list. Another possibility requires some knowledge of the number in the list. For instance, if the number are all grades on an exam, the initial value of max can be set to 0. (c) Use a loop to examine the numbers one at a time. Whenever a number is greater than the current value of max, change the value of max to be that number. After the loop has executed, the value of max will be the largest number in the list. Example 4 uses an analogous algorithm to find the smallest number in the list box. These two algorithms appear several times in the textbook in both examples and exercises. 3. Section 6.3 presents techniques for processing lists of data with loops. In Section 7.2, a method for processing lists without using loops will be presented.

Student Solutions Manual (Page 8 of 211)

Chapter 7 1. A very important idea to take away from Section 7.1 is that there are four ways to fill an array. Let's illustrate the ways by filling an array with the names of the first three presidents.
(a) Dim pres() As String = {"Washington", "Jefferson", "Adams} (b) Dim pres() As String = IO.File.ReadAllLines("Pres.txt"), where the text

file Pres.txt is located in the program's bin\Debug folder of the program and contains three lines (each containing the name of a president).
(c) Dim strVar As String = "Washington,Jefferson,Adams" Dim pres() As String = strVar.Split(","c) (d) Dim pres(2) As String pres(0) = "Washington" pres(1) = "Jefferson" pres(2) = "Adams"

In the first three ways, the array is declared and sized automatically at the same time it is filled. The second and third ways will be the most used in this book. 2. Section 7.3 is perhaps the most challenging section in the book. However, the techniques presented in this section are very powerful and are heavily used later in the book with text files and databases. The techniques also are presented in Section 8.1 in a slightly different form. Some instructors will skip Section 7.3 and rely solely on Section 8.1. 3. Some important text files used in this chapter are as follows: a. Baseball.txt: contains statistics for all of the players in the major league who had at least 350 at bats in 2009. b. Justices.txt: contains all people who served on the U.S. Supreme Court prior to May 2010. c. SBWinners.txt: contains all Super Bowl winners up to and including 2010. Chapter 8 1. The two sections in this chapter are independent of each other. 2. The preliminaries section at the beginning of Section 8.1 can be omitted if you covered Section 8.3. The techniques presented in the preliminaries will take a fair amount of effort to master. However, the payoff will be substantial. 3. Section 8.1 shows some modern techniques for combining lists of data. In earlier versions of Visual Basic, these tasks could only be carried out with complicated algorithms involving loops.

Student Solutions Manual (Page 9 of 211)

4. Some important data files used in this chapter are as follows: a. Baseball.xml: contains statistics for all of the players in the major league who had at least 350 at bats in 2009. b. Justices.txt: contains all people who served on the U.S. Supreme Court prior to the summer of 2010. Justice Stevens retired in the summer of 2010. If you want to update the file after his replacement is named, change the last entry in his record to 2010 and add a record for the person replacing him. c. Senate111.txt: contains the composition of the U.S. Senate as of May 1, 2010. d. USPres.txt: contains the names of all U.S. Chapter 9 1. Most of Chapter 9 is not needed in the remainder of the book. However, the chapter shows how to use several tools that are familiar to you from major programs you have used. 2. Programs written by professional programmers often use more than one form. Section 9.3 shows how this is done. However, since this is an introductory book, all programs outside of Section 9.3 use only one form. Chapter 10 1. The steps for binding a database to a program may look complicated at first. However, after you get used to it you will find it easy and quick to carry out. Also, when you work several exercises using the same database, you can just bind the database once and write a different event procedure for each exercise. 2. Some important databases used in this chapter are as follows: a. Baseball.accdb: contains statistics for all of the players in the major league who had at least 350 at bats in 2009. b. Justices.accdb: contains all people who served on the U.S. Supreme Court prior to the summer of 2010. c. UN.accdb: contains the composition of the United Nations as of May 1, 2010. d. Exchrate.accdb: contains currency exchange rates in December 2009. Chapter 11 1. This chapter is independent of the rest of the book.

Student Solutions Manual (Page 10 of 211)

Chapter 12 1. The programs in the chapter are not created with Visual Basic. Most people will use Visual Web Developer that is contained on the DVD packaged with this book. However, if you have a complete version of Visual Studio, you do not have to install Visual Web Developer. The Visual Studio File menu contains the items New Web Site and Open Web Site that you can use to create and access Web programs. 2. Be sure to read the solution to the practice problem in Section 12.3. It shows you how to save a lot of time when writing the programs for the exercise set.

Student Solutions Manual (Page 11 of 211)

CHAPTER 2 EXERCISES 2.2 1. After a button is clicked it has a blue border. 3. Click on the form to make it the selected object. Click on the Properties window or Press F4 to activate the Properties window. Select the Text property. Type "CHECKING ACCOUNT". 5. Double-click the TextBox icon in the Toolbox. Activate the Properties window. Select the BackColor property. Click on the down-arrow to the right of the Settings box. Click on the Custom tab, and then click on the desired yellow in the palette. Click on the form to see the empty yellow text box. 7. Double-click on the Label icon in the Toolbox. Activate the Properties window, and select the AutoSize property.
Set the AutoSize property to False. Select the Text property and type the requested sentence.

Select the TextAlign property. Click on the down-arrow button to the right of the Settings box, and click on one of the center rectangles. Resize the label so that the sentence occupies three lines. 9. Double-click on the TextBox icon in the Toolbox. Activate the Properties window. Set the Name property to txtLanguage. Select the Text property and type "Visual Basic 2010". Select the Font property and click on the ellipsis to the right of the Settings box. Scroll up the Font list box, and click on Courier New in the Font box. Click OK. Widen the text box to accommodate its text. 11. Double-click on the Button icon in the Toolbox. Activate the Properties window, and select the BackColor property. Click on the down-arrow button to the right of the Settings box. Click on the Custom tab, and then click on the white square in upper-left corner of the palette. Select the Text property and type "PUSH". Select the Font property, and click on the ellipsis. Click on Italic (with XP or Vista) or Oblique (with Windows 7) in the "Font style" list. Click on 24 in the Size box and click OK. Resize the button.

Student Solutions Manual (Page 12 of 211)

13. Double-click on the Button icon in the Toolbox. Activate the Properties window. Select the Text property and type "PUS&H". Click on the form to see the resulting button. 15. Double-click on the Label icon in the Toolbox. Activate the Properties window. Select the Name property and type "lblAKA". Select the Text property and type "ALIAS". Select the AutoSize property and set it to False. Select the Font property and click on the ellipsis. Click on Italic (with XP or Vista) or Oblique (with Windows 7) in the "Font style" list. Click OK. Select the TextAlign property, click on the down-arrow box to the right of the Settings box, and click on one of the center rectangles. 17. Double-click on the Label icon in the Toolbox. Activate the Properties window, and select the TextAlign property. Click on the down-arrow box to the right of the Settings box, and click on one of the rectangles on the right. Select the AutoSize property and set it to False. Select the Text property, type "VISUAL BASIC", and press Enter. If the words " VISUAL BASIC " are on one line, resize the label until the words occupy two lines. 19. Double-click on the Label icon in the Toolbox. Activate the Properties window, and select the Font property. Click on the ellipsis to the right of the Settings box. Click on Wingdings in the Font box. Click on the largest size available (72) in the Size box. Click OK. Select the Text property and change the setting to a less than sign (<). Click on the label. (Note: If you didn't know that the less than symbol corresponded to a diskette in the Wingdings font, you could double-click on the diskette character in the Character Map, click the Copy button, select the Text property, and press Ctrl+V. The less than character will appear in the Text settings box.) 21. Double-click on the ListBox icon in the Toolbox. Activate the Properties window, and select the BackColor property. Click on the down-arrow button to the right of the Settings box. Click on the Custom tab and click on the desired yellow square in the palette. Click on the form to see the yellow list box.

Student Solutions Manual (Page 13 of 211) 23. In the Solution Explorer window, right click on Form1.vb and select Rename from the context menu. Type frmYellow.vb. Right-click on the form in the Form Designer, and select Properties from the context menu. Click on BackColor property in the Properties window. Click on the down-arrow button in the right part of the Settings box, click on the Custom tab, and click on a yellow square. 25. Begin a new project. Change the text in the form's title bar to "Dynamic Duo". Place two buttons on the form. Position and resize the buttons as shown. Enter Batman as the text of the first button, and enter Robin as the text of the second button. Increase the font size for both buttons to 14. 27. Begin a new project. Change the text in the form's title bar to "Fill the Blank". Place a label, a text box, and another label on the form at appropriate locations. Change the Text setting of the first label to "Im the king of the" and the Text setting of the second label to "A Quote by Leonardo DiCaprio". 29. Begin a new project. Change the text in the form's title bar to "Uncle's Advice". Place five labels and three buttons on the form. Change the Text setting of each label as indicated. Change the settings of the buttons' Text properties to "1", "2", and "3". Resize and position the labels and buttons. 33. 1 35. Each arrow key moves the text box in the indicated direction.

37. Pressing the right and left arrow keys widens and narrows the text boxes, buttons, and list boxes in the group of selected controls. The up and down arrow keys shorten and lengthen the buttons and list boxes in the group. The arrow keys have no effect on the labels, and only the left and right arrow keys affect the text boxes.

Student Solutions Manual (Page 14 of 211)

39. Drag a label and a list box onto the form. Click on the label. Hold down the Ctrl key and click on the list box. (You have now selected a group of two controls.) In the Properties window, click on the plus sign (in XP) or the right-pointing triangle (Vista or Windows 7) to the left of the Font property. Click on the Size property, change the setting to 12, and press the Enter key. (Alternative: Replace the last three lines with the following steps.) In the Properties window, select the Font property. Click on the ellipsis button to the right of the Settings box. Click on 12 in the Size list and click OK. 41. The label is positioned just to the left of the text box, and the middles of the two controls are aligned. 43. Center refers to the midpoint horizontally, whereas middle refers to the midpoint vertically. 45. First blue snap line: tops of the two controls are aligned Purple snap line: middles of the two controls are aligned Second blue snap line: bottoms of the two controls are aligned 47. The setting is cycling through the different available colors.

Student Solutions Manual (Page 15 of 211)

EXERCISES 2.3 1. The word "Hello" 3. The word "Hello" on an orange-colored background 7. The word "Hello" in green letters 11. Form1.Text should be Me.Text.

5. The text box vanishes.

9. The word "Hello" on a gold background. 13. Red should be replaced with Color.Red.

15. Font.Size is a read-only property. The statement txtOutput.Text = txtBox.Font.Size is valid since it is reading the value of txtBox.Font.Size. However, txtBox.Font.Size = 20 is not valid since it is setting the value of txtBox.Font.Size.
17. lblTwo.Text = "E.T. phone home." 19. txtBox.ForeColor = Color.Red txtBox.Text = "The stuff that dreams are made of." 21. txtBox.Enabled = False 25. btnOutcome.Enabled = True 23. lblTwo.Visible = False 27. txtBoxTwo.Focus()

29. The Enter event occurs when a control gets the focus.
31. Private Sub Label1_Click(...) Handles Label1.Click lstOutput.Items.Add("Click") End Sub Private Sub Label1_DoubleClick(...) Handles Label1.DoubleClick lstOutput.Items.Add("Double Click") End Sub

Whenever the DoubleClick event is raised, the Click event is also raised.
33. Private Sub btnLeft_Click(...) Handles btnLeft.Click txtBox.Text = "Left Justify" txtBox.TextAlign = HorizontalAlignment.Left End Sub Private Sub btnCenter_Click(...) Handles btnCenter.Click txtBox.Text = "Center" txtBox.TextAlign = HorizontalAlignment.Center End Sub Private Sub btnRight_Click(...) Handles btnRight.Click txtBox.Text = "Right Justify" txtBox.TextAlign = HorizontalAlignment.Right End Sub

Student Solutions Manual (Page 16 of 211)

35. Private Sub btnRed_Click(...) Handles btnRed.Click txtBox.BackColor = Color.Red End Sub Private Sub btnBlue_Click(...) Handles btnBlue.Click txtBox.BackColor = Color.Blue End Sub Private Sub btnWhite_Click(...) Handles btnWhite.Click txtBox.ForeColor = Color.White End Sub Private Sub btnYellow_Click(...) Handles btnYellow.Click txtBox.ForeColor = Color.Yellow End Sub 37. Private Sub txtLife_Enter(...) Handles txtLife.Enter txtQuote.Text = "I like life, it's something to do." End Sub Private Sub txtFuture_Enter(...) Handles txtFuture.Enter txtQuote.Text = "The future isn't what it used to be." End Sub Private Sub txtTruth_Enter(...) Handles txtTruth.Enter txtQuote.Text = "Tell the truth and run." End Sub 39. Private Sub btnOne_Click(...) Handles btnOne.Click btnOne.Visible = False btnTwo.Visible = True btnThree.Visible = True btnFour.Visible = True End Sub Private Sub btnTwo_Click(...) Handles btnTwo.Click btnOne.Visible = True btnTwo.Visible = False btnThree.Visible = True btnFour.Visible = True End Sub Private Sub btnThree_Click(...) Handles btnThree.Click btnOne.Visible = True btnTwo.Visible = True btnThree.Visible = False btnFour.Visible = True End Sub Private Sub btnFour_Click(...) Handles btnFour.Click btnOne.Visible = True btnTwo.Visible = True btnThree.Visible = True btnFour.Visible = False End Sub

Student Solutions Manual (Page 17 of 211)

41. Private Sub btnVanish_Click(...) Handles btnVanish.Click lblFace.Visible = False End Sub Private Sub btnReappear_Click(...) Handles btnReappear.Click lblFace.Visible = True End Sub 43. Private Sub btnAny_Click(...) Handles btnOne.Click, btnTwo.Click txtOutput.Text = "You just clicked on a button." End Sub

Student Solutions Manual (Page 18 of 211)

CHAPTER 3 EXERCISES 3.1 1. 12 13. Valid 3. .125 5. 8 7. 2 17. 10 9. 1 11. Not valid 19. 16 21. 9

15. Not valid

23. Private Sub btnCompute_Click(...) Handles btnCompute.Click lstOutput.Items.Add((7 * 8) + 5) End Sub 25. Private Sub btnCompute_Click(...) Handles btnCompute.Click lstOutput.Items.Add(0.055 * 20) End Sub 27. Private Sub btnCompute_Click(...) Handles btnCompute.Click lstOutput.Items.Add(17 * (3 + 162)) End Sub 29. x Private Sub btnEvaluate_Click(...) Handles btnEvaluate.Click Dim x, y As Double x = 2 y = 3 * x x = y + 5 lstResults.Items.Clear() lstResults.Items.Add(x + 4) y = y + 1 End Sub 31. 6 33. 1 8 9 35. 1 64 37. 2 15 0 2 2 11 11 11 11 y 0 0 6 6 6 6 7

39. The third line should read c = a + b 41. The first assignment statement should not contain a comma. The second assignment statement should not contain a dollar sign. 43. 9W is not a valid variable name.
47. 10 49. 6 51. 3.128 45. Dim quantity As Integer = 12 53. 3 55. 0 57. 6

Student Solutions Manual (Page 19 of 211)

59. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim revenue, costs, profit As Double revenue = 98456 costs = 45000 profit = revenue - costs lstOutput.Items.Add(profit) End Sub 61. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim price, discountPercent, markdown As Double price = 19.95 discountPercent = 30 markdown = (discountPercent / 100) * price price = price - markdown lstOutput.Items.Add(Math.Round(price, 2)) End Sub 63. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim balance As Double balance = 100 balance += 0.05 * balance balance += 0.05 * balance balance += 0.05 * balance lstOutput.Items.Add(Math.Round(balance, 2)) End Sub 65. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim balance As Double balance = 100 balance = balance * (1.05 ^ 10) lstOutput.Items.Add(Math.Round(balance, 2)) End Sub 67. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim acres, yieldPerAcre, corn As Double acres = 30 yieldPerAcre = 18 corn = yieldPerAcre * acres lstOutput.Items.Add(corn) End Sub

Student Solutions Manual (Page 20 of 211)

69. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim distance, elapsedTime, averageSpeed As Double distance = 233 elapsedTime = 7 - 2 averageSpeed = distance / elapsedTime lstOutput.Items.Add(averageSpeed) End Sub

71. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim waterPerPersonPerDay, people, days, waterUsed As Double waterPerPersonPerDay = 1600 people = 315000000 days = 365 waterUsed = waterPerPersonPerDay * people * days lstOutput.Items.Add(waterUsed) End Sub

Student Solutions Manual (Page 21 of 211)

EXERCISES 3.2
1. Visual Basic 3. Ernie 5. flute 13. 5.5 23. 8 7. 123 9. Your age is 21. 17. WALLAWALLA 25. True

11. A ROSE IS A ROSE IS A ROSE 19. ABC 2 4 55 mph STU 21. 12 MUNICIPALITY city 6

15. goodbye

(0 through 7)

27. The variable phoneNumber should be declared as type String, not Double. 29. End is a keyword and cannot be used as a variable name. 31. The IndexOf method cannot be applied to a number, only a string.
33. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim firstName, middleName, lastName As String Dim yearOfBirth As Integer firstName = "Thomas" middleName = "Alva" lastName = "Edison" yearOfBirth = 1847 txtOutput.Text = firstName & " " & middleName & " " & lastName & ", " & yearOfBirth End Sub 35. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim publisher As String publisher = "Prentice Hall, Inc." txtOutput.Text = "(c) " & publisher End Sub 37. Dim str As String 'Place in the Declarations section of the program

Student Solutions Manual (Page 22 of 211)

39. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim distance As Double distance = CDbl(txtNumSec.Text) / 5 distance = Math.Round(distance, 2) txtOutput.Text = "The distance of the storm is " & distance & " miles." End Sub

41. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim cycling, running, swimming, pounds As Double cycling = CDbl(txtCycle.Text) running = CDbl(txtRun.Text) swimming = CDbl(txtSwim.Text) pounds = (200 * cycling + 475 * running + 275 * swimming) / 3500 pounds = Math.Round(pounds, 1) txtWtLoss.Text = pounds & " pounds were lost." End Sub 43. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim revenue, expenses, income As Double revenue = CDbl(txtRevenue.Text) expenses = CDbl(txtExpenses.Text) income = revenue - expenses txtNetIncome.Text = CStr(income) End Sub

Student Solutions Manual (Page 23 of 211)

45. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim amount, percentage, tip As Double amount = CDbl(txtAmount.Text) percentage = CDbl(txtPercentage.Text) tip = amount * (percentage / 100) txtTip.Text = CStr(Math.Round(tip, 2)) End Sub

47. Dim number As Integer = 100 'in Declarations section 'Note: the Text property of txtOutput was set to 100 at design time Private Sub btnPressMe_Click(...) Handles btnPressMe.Click number = number - 1 'decrease number by 1 txtOutput.Text = CStr(number) End Sub

Student Solutions Manual (Page 24 of 211)

49. Private Sub btnModifySentence_Click(...) Handles btnModifySentence.Click Dim sentence, oldWord, newWord As String Dim position As Integer sentence = txtSentence.Text oldWord = txtOriginalWord.Text newWord = txtReplacementWord.Text position = sentence.IndexOf(oldWord) txtOutput.Text = sentence.Substring(0, position) & newWord & sentence.Substring(position + oldWord.Length) End Sub

51. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim speed, distance As Double distance = CDbl(txtDistanceSkidded.Text) speed = Math.Sqrt(24 * distance) speed = Math.Round(speed, 2) txtEstimatedSpeed.Text = speed & " mph" End Sub

Student Solutions Manual (Page 25 of 211)

53. Dim sum As Double Dim num As Integer 'sum of the scores entered 'number of scores entered

Private Sub btnRecord_Click(...) Handles btnRecord.Click num += 1 sum += CDbl(txtScore.Text) txtScore.Clear() txtScore.Focus() End Sub Private Sub btnCalculate_Click(...) Handles btnCalculate.Click txtAverage.Text = CStr(sum / num) End Sub

55. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim num1, num2, sum As Double num1 = CDbl(txtFirstNum.Text) num2 = CDbl(txtSecondNum.Text) sum = num1 + num2 txtSum.Text = CStr(sum) End Sub Private Sub txtEitherNum_TextChanged(...) Handles _ txtFirstNum.TextChanged, txtSecondNum.TextChanged txtSum.Clear() End Sub

Student Solutions Manual (Page 26 of 211)

EXERCISES 3.3
1. 1,235 13. $12,346 23. 66.67% 3. 1,234.0 15. ($0.23) 5. 0.0 7. -0.67 9. 12,346.000 11. 12

17. $0.80

19. 7.50%

21. 100.00%

25. Pay to France $27,267,622.00

27. 25.6% of the U.S. population 25+ years old are college graduates. 29. The likelihood of Heads is 50% 33. Thursday, November 25, 2010 41. You might win 360 dollars. 47. 31. 10/23/2010 35. 10/2/2011 37. 4/5/2013 39. 29

43. Hello John Jones

45. $106.00

Prints the words Hello World using a 10-point bold Courier New font in blue letters 2 inches from the left side of the page and 2 inches from the top of the page. The statement n += 1 is not valid since the value of a named constant cannot be changed.

49.

51. The second line should use CDbl to convert the right-hand side to type Double. 53. FormatNumber(123456) is a string and therefore cannot be assigned to a numeric variable. 55. You must insert .Show, after the word MessageBox.
57. 000 59. LLL000 61. 0-00-000000-&

63. MessageBox.Show("First solve the problem. Then write the code.", "Good Advice") 65. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim begOfYearCost, endOfYearCost As Double Dim percentIncrease As Double begOfYearCost = 200 endOfYearCost = CDbl(InputBox("Enter cost at the end of the year:")) percentIncrease = (endOfYearCost - begOfYearCost) / begOfYearCost txtOutput.Text = "The increase in cost for the year is " & FormatPercent(percentIncrease) & "." End Sub

Student Solutions Manual (Page 27 of 211)

67. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim firstDayOfYr, firstDayOfNextYr As Date Dim numDays As Double firstDayOfYr = CDate("1/1/" & mtbYear.Text) firstDayOfNextYr = firstDayOfYr.AddYears(1) numDays = DateDiff(DateInterval.Day, firstDayOfYr, firstDayOfNextYr) txtNumDays.Text = CStr(numDays) End Sub

69. Private Sub Determine_Click(...) Handles btnDetermine.Click Dim dt As Date = CDate(mtbDate.Text) Dim fullDate As String = FormatDateTime(dt, DateFormat.LongDate) Dim position As Integer = fullDate.IndexOf(",") Dim dayOfWeek As String = fullDate.Substring(0, position) txtDayOfWeek.Text = dayOfWeek End Sub 71. Private Sub Determine_Click(...) Handles btnDetermine.Click Dim month, yr As Integer 'month given as 1 through 12 Dim dt, dt2 As Date Dim numDays As Double month = CInt(txtMonth.Text) yr = CInt(mtbYear.Text) dt = CDate(month & "/1/" & yr) dt2 = dt.AddMonths(1) numDays = DateDiff(DateInterval.Day, dt, dt2) txtNumDays.Text = CStr(numDays) End Sub

Student Solutions Manual (Page 28 of 211)

73. Private Sub txtPhoneNumber_Enter(...) Handles txtPhoneNumber.Enter MessageBox.Show("Be sure to include the area code!", "Reminder") End Sub

75. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim principal, intRate, yrs, amt As Double lstOutput.Items.Clear() principal = CDbl(txtPrincipal.Text) intRate = CDbl(txtIntRate.Text) yrs = 10 amt = principal * (1 + intRate) ^ yrs lstOutput.Items.Add("When " & FormatCurrency(principal) & " is") lstOutput.Items.Add("invested at " & FormatPercent(intRate)) lstOutput.Items.Add("for " & yrs & " years, the ") lstOutput.Items.Add("balance is " & FormatCurrency(amt) & ".") End Sub

Student Solutions Manual (Page 29 of 211)

77. Const ONE_INCH As Integer = 100 Const LINE_HEIGHT As Integer = 20 'number of pixels in an inch 'one-quarter of an inch

Private Sub btnPrint_Click(...) Handles btnPrint.Click PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(...) Handles PrintDocument1.PrintPage Dim gr As Graphics = e.Graphics Dim x1 As Integer = ONE_INCH 'use one inch beyond left margin Dim x2 As Integer = CInt(1.5 * ONE_INCH) 'offset for second column Dim x3 As Integer = CInt(2.25 * ONE_INCH) 'offset for third column Dim y As Integer = ONE_INCH 'use one inch top margin Dim font1 As New Font("Courier New", 10, FontStyle.Underline) Dim font2 As New Font("Courier New", 10, FontStyle.Regular) gr.DrawString("% of", font2, Brushes.Black, x3, y) y += LINE_HEIGHT gr.DrawString("Rank", font1, Brushes.Black, x1, y) gr.DrawString("Country", font1, Brushes.Black, x2, y) gr.DrawString("WW Users", font1, Brushes.Black, x3, y) y += LINE_HEIGHT gr.DrawString("1", font2, Brushes.Black, x1, y) gr.DrawString("USA", font2, Brushes.Black, x2, y) gr.DrawString(FormatPercent(0.16, 1), font2, Brushes.Black, x3, y) y += LINE_HEIGHT gr.DrawString("2", font2, Brushes.Black, x1, y) gr.DrawString("China", font2, Brushes.Black, x2, y) gr.DrawString(FormatPercent(0.119, 1), font2, Brushes.Black, x3, y) y += LINE_HEIGHT gr.DrawString("3", font2, Brushes.Black, x1, y) gr.DrawString("Japan", font2, Brushes.Black, x2, y) gr.DrawString(FormatPercent(0.065, 1), font2, Brushes.Black, x3, y) End Sub Private Sub btnPreview_Click(...) Handles btnPreview.Click PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.ShowDialog() End Sub

Student Solutions Manual (Page 30 of 211)

CHAPTER 4 EXERCISES 4.1

1. hi 3. The letter before G is F

5. "We're all in this alone." - Lily Tomlin

7. True 23. False

9. True

11. True

13. True

15. False

17. False

19. True

21. True

25. False

27. False

29. True

31. Equivalent

33. Not Equivalent

35. Equivalent

37. Not Equivalent

39. Equivalent

41. a <= b

43. (a >= b) Or (c = d)

45. (a = "") Or (a >= b) Or (a.Length >= 5)

[In Exercises 46 through 49, execute a statement of the form txtOutput.Text = Boolean expression.] 47. True 49. False 51. False 53. True 55. True 57. False 59. True

Student Solutions Manual (Page 31 of 211)

EXERCISES 4.2
1. Less than ten. 3. tomorrow is another day. 9. Hi 5. 10

7. To be, or not to be.

11. You are old enough to vote in 7 days.

13. Syntax error. Third line should be If ((1 < num) And (num < 3)) Then 15. Syntax error. Fourth line should be If ((major = "Business") Or (major =
"Computer Science")) Then

17. a = 5
19. message = "Is Alaska bigger than Texas and California combined?" answer = InputBox(message) If (answer.Substring(0, 1).ToUpper = "Y") Then txtOutput.Text = "Correct" Else txtOutput.Text = "Wrong" End If 21. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim cost, tip As Double cost = CDbl(InputBox("Enter cost of meal:")) tip = cost * 0.15 If tip < 1 Then tip = 1 End If txtOutput.Text = "Leave " & FormatCurrency(tip) & " for the tip." End Sub

23. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim num, cost As Double num = CDbl(InputBox("Number of widgets:")) If num < 100 Then cost = 0.25 * num '25 cents each Else cost = 0.2 * num '20 cents each End If txtOutput.Text = "The cost is " & FormatCurrency(cost) & "." End Sub

Student Solutions Manual (Page 32 of 211)

25. Private Sub btnAskQuestion_Click(...) Handles btnAskQuestion.Click Dim name As String name = (InputBox("Who was the first Ronald McDonald?")).ToUpper If name = "WILLARD SCOTT" Then txtOutput.Text = "Correct." Else txtOutput.Text = "Nice try." End If End Sub

27. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim s1, s2, s3 As Double '3 scores Dim avg As Double 'average of the two highest scores s1 = CDbl(InputBox("Enter the first of the three scores.")) s2 = CDbl(InputBox("Enter the second of the three scores.")) s3 = CDbl(InputBox("Enter the third of the three scores.")) If (s1 <= s2) And (s1 <= s3) Then 's1 is smallest number avg = (s2 + s3) / 2 ElseIf (s2 <= s1) And (s2 <= s3) Then 's2 is smallest number avg = (s1 + s3) / 2 Else 's3 is smallest number avg = (s1 + s2) / 2 End If txtAverage.Text = CStr(avg) End Sub

Student Solutions Manual (Page 33 of 211)

29. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim weight, cost, amount, change As Double weight = CDbl(txtWeight.Text) amount = CDbl(txtAmount.Text) cost = weight * 1.7 If (amount >= cost) Then change = amount - cost txtOutput.Text = "Your change is " & FormatCurrency(change) & "." Else txtOutput.Text = "I need " & FormatCurrency(cost - amount) & " more." End If End Sub

31. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim wage, hours, grossPay As Double wage = CDbl(txtHourlyWage.Text) 'Hourly pay hours = CDbl(txtHoursWorked.Text) 'Hours worked If hours <= 40 Then grossPay = wage * hours Else grossPay = (wage * 40) + (1.5 * wage * (hours - 40)) End If txtGrossPay.Text = FormatCurrency(grossPay) End Sub

Student Solutions Manual (Page 34 of 211)

33. Dim numLines As Integer = 0 'In Declarations section of Code Editor 'numLines tells the number of lines that have been displayed. Private Sub btnBogart_Click(...) Handles btnBogart.Click If numLines = 0 Then lstOutput.Items.Add("I came to Casablanca for the waters.") numLines += 1 ElseIf numLines = 2 Then lstOutput.Items.Add("I was misinformed.") numLines += 1 End If End Sub Private Sub btnRaines_Click(...) Handles btnRaines.Click If numLines = 1 Then lstOutput.Items.Add("But we're in the middle of the desert.") numLines += 1 End If End Sub

Student Solutions Manual (Page 35 of 211)

35. Dim numGuesses As Integer = 0 Private Sub btnEvaluate_Click(...) Handles btnEvaluate.Click 'Assume that the Text property of txtNumberOfGuesses 'was set to 0 in the Form Designer numGuesses += 1 txtNumberOfGuesses.Text = CStr(numGuesses) Dim msg As String If txtAnswer.Text.ToUpper.IndexOf("COOLIDGE") <> -1 Then MessageBox.Show("Calvin Coolidge was born on July 4, 1872.", "Correct") Me.Close() ElseIf CInt(numGuesses) = 10 Then msg = "Calvin Coolidge was born on July 4, 1872." MessageBox.Show(msg, "You've Run Out of Guesses") Me.Close() Else If CInt(numGuesses) = 3 Then msg = "He once said, 'If you don't say anything," & " you won't be called upon to repeat it.'" ElseIf CInt(numGuesses) = 7 Then msg = "His nickname was 'Silent Cal.'" Else msg = "Sorry!" End If MessageBox.Show(msg, "Incorrect") End If txtAnswer.Clear() txtAnswer.Focus() End Sub

4.2 Exercise 35

4.2 Exercise 37

37. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click If lblLanguage.Visible Then lblLanguage.Visible = False btnDisplay.Text = "Show Name of Language" Else lblLanguage.Visible = True btnDisplay.Text = "Hide Name of Language" End If End Sub

Student Solutions Manual (Page 36 of 211)

39. Private Sub btnCompute_Click(...) Handles lblDetermine.Click Dim day As String Dim day1, day2 As Date Dim numDays As Double day = "1/1/" & txtYear.Text day1 = CDate(day) day2 = day1.AddYears(1) numDays = DateDiff(DateInterval.Day, day1, day2) If numDays = 366 Then txtLeapYear.Text = "YES" Else txtLeapYear.Text = "NO" End If End Sub

41. Private Sub Determine_Click(...) Handles btnDetermine.Click Dim dt, dt2 As Date Dim approximateAge As Double dt = CDate(mtbDate.Text) approximateAge = DateDiff(DateInterval.Year, dt, Today) dt2 = dt.AddYears(CInt(approximateAge)) If Today < dt2 Then txtAge.Text = CStr(approximateAge - 1) Else txtAge.Text = CStr(approximateAge) End If End Sub

Student Solutions Manual (Page 37 of 211)

43. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim gpa As Double = CDbl(txtGPA.Text) Dim honors As String = "" If gpa >= 3.9 Then honors = " summa cum laude." End If If (3.6 <= gpa) And (gpa < 3.9) Then honors = " magna cum laude." End If If (3.3 <= gpa) And (gpa < 3.6) Then honors = " cum laude." End If If (2 <= gpa) And (gpa < 3.3) Then honors = "." End If txtOutput.Text = "You graduated" & honors End Sub

Student Solutions Manual (Page 38 of 211)

EXERCISES 4.3
1. The price is $3.75 The price is $3.75 3. Mesozoic Era Paleozoic Era ?

5. The equation has no real solutions. The equation has two solutions. The equation has exactly one solution.

7. Should have a Case clause before the 4th line. 9. Case nom = "Bob" should be Case "Bob" 11. Logic error: >= "Peach" should be >= "PEACH". Syntax error: "ORANGE TO PEACH" should be "ORANGE" To "PEACH". 13. Valid 15. Invalid 17. Valid

19. Select Case a Case 1 txtOutput.Text = "one" Case Is > 5 txtOutput.Text = "two" End Select 21. Select Case a Case 2 txtOutput.Text = "yes" Case Is < 5 txtOutput.Text = "no" End Select

Student Solutions Manual (Page 39 of 211)

23. Private Sub btnDescribe_Click(...) Handles btnDescribe.Click Dim percent As Double percent = CDbl(InputBox("Percentage of cloud cover:")) Select Case percent Case 0 To 30 txtOutput.Text = "Clear" Case 31 To 70 txtOutput.Text = "Partly cloudy" Case 71 To 99 txtOutput.Text = "Cloudy" Case 100 txtOutput.Text = "Overcast" Case Else txtOutput.Text = "Percentage must be between 0 and 100." End Select End Sub

25. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim shapeNum As Integer Dim radius, length, height, width As Double 'Input choice of shape and its dimensions '1. Circle 2. Parallelogram 3. Kite shapeNum = CInt(mtbSelection.Text) 'Mask is 0 Select Case shapeNum Case 1 radius = CDbl(InputBox("Input the radius of the circle: ")) txtArea.Text = CStr(3.141593 * radius ^ 2) Case 2 length = CDbl(InputBox("Input the length of the parallelogram: ")) height = CDbl(InputBox("Input the height of the parallelogram: ")) txtArea.Text = CStr(length * height) Case 3 length = CDbl(InputBox("Input the length of the kite: ")) width = CDbl(InputBox("Input the width of the kite: ")) txtArea.Text = CStr((length * width) / 2) Case Else MessageBox.Show("Your choice is not valid.", "Try Again.") mtbSelection.Clear() End Select mtbSelection.Focus() End Sub

Student Solutions Manual (Page 40 of 211)

27. Private Sub btnAssign_Click(...) Handles btnAssign.Click Dim score As Integer, letterGrade As String score = CInt(InputBox("What is the score?")) Select Case score Case 90 To 100 letterGrade = "A" Case 80 To 89 letterGrade = "B" Case 70 To 79 letterGrade = "C" Case 60 To 69 letterGrade = "D" Case 0 To 59 letterGrade = "F" Case Else letterGrade = "Invalid" End Select txtOutput.Text = "The letter grade is " & letterGrade & "." End Sub

29. Private Sub btnDescribe_Click(...) Handles btnDetermine.Click Dim amountRecovered, payment As Double amountRecovered = CDbl(InputBox("How much was recovered?")) Select Case amountRecovered Case Is <= 75000 payment = 0.1 * amountRecovered Case Is <= 100000 payment = 7500 + 0.05 * (amountRecovered - 75000) Case Is > 100000 payment = 8750 + 0.01 * (amountRecovered - 100000) If payment > 50000 Then payment = 50000 End If End Select txtOutput.Text = "The amount given as reward is " & FormatCurrency(payment) & "." End Sub

Student Solutions Manual (Page 41 of 211)

31. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim pres, state, trivia, whichBush As String pres = txtLastName.Text Select Case pres.ToUpper Case "CARTER" state = "Georgia" trivia = "The only soft drink served in the Carter " & "White House was Coca-Cola." Case "REAGAN" state = "California" trivia = "His secret service code name was Rawhide." Case "BUSH" state = "Texas" whichBush = InputBox("Are his middle initials HW or W?") Select Case whichBush.ToUpper Case "HW" trivia = "He celebrated his 85th birthday by parachuting " & "out of an airplane." Case "W" trivia = "He once owned the Texas Rangers baseball team." End Select Case "CLINTON" state = "Arkansas" trivia = "In college he did a good imitation of Elvis Presley." Case "OBAMA" state = "Illinois" trivia = "He was the eighth left-handed president." Case Else state = "" trivia = "" End Select If state <> "" Then lstOutput.Items.Clear() lstOutput.Items.Add("President " & pres & "'s" & " home state was " & state & ".") lstOutput.Items.Add(trivia) End If End Sub

Student Solutions Manual (Page 42 of 211)

EXERCISES 4.4 1. The word "Income" becomes the caption embedded in the top of GroupBox1. 3. The CheckBox1 check box becomes (or remains) unchecked. 5. The radio button becomes (or remains) unselected. 7. The radio buttons caption becomes "Clear All". 9. RadioButton1.Text = "Yes" 11. CheckBox1.Checked = True 15. Yes

13. RadioButton2 is on and RadioButton1 is off.

17. Private Sub CheckedChanged(...) Handles _ radDeluxe.CheckedChanged, radSuper.CheckedChanged, chkUpgradedVideo.CheckedChanged, chkModem.CheckedChanged, chkMemory.CheckedChanged If radDeluxe.Checked Or radSuper.Checked Then Dim cost As Double = 0 'Add amounts to the cost based upon selections. If radDeluxe.Checked Then cost += 1000 Else 'Super model cost += 1500 End If If chkUpgradedVideo.Checked Then cost += 200 End If If chkModem.Checked Then cost += 30 End If If chkMemory.Checked Then cost += 120 End If txtTotalCost.Text = FormatCurrency(cost) Else MessageBox.Show("You must first select a model!") End If End Sub

Student Solutions Manual (Page 43 of 211)

19. Private Sub btnVote_Click(...) Handles btnVote.Click If radCandidate1.Checked Then txtVote.Text = "You voted for Kennedy." ElseIf radCandidate2.Checked Then txtVote.Text = "You voted for Nixon." Else txtVote.Text = "You voted for neither." End If End Sub Private Sub btnClear_Click(...) Handles btnClear.Click radCandidate1.Checked = False radCandidate2.Checked = False End Sub

Student Solutions Manual (Page 44 of 211)

21. Private Sub btnRecord_Click(...) Handles btnRecord.Click Dim majorSelected As Boolean Dim yearSelected As Boolean If lstMajors.Text = "" Then majorSelected = False Else majorSelected = True End If If (radFrosh.Checked Or radSoph.Checked Or radJunior.Checked Or radSenior.Checked) Then yearSelected = True Else yearSelected = False End If If majorSelected And yearSelected Then MessageBox.Show("Information Processed") ElseIf Not majorSelected Then If Not yearSelected Then MessageBox.Show("You must select a Major and a Year.") Else MessageBox.Show("You must select a Major.") End If Else MessageBox.Show("You must select a Year.") End If End Sub

Student Solutions Manual (Page 45 of 211)

23. Private Sub CheckedChanged(...) Handles _ chkSenior.CheckedChanged, chkBlind.CheckedChanged, chkSpouse.CheckedChanged, chkSpouseBlind.CheckedChanged Dim count As Integer = 0 If chkSenior.Checked Then count += 1 End If If chkBlind.Checked Then count += 1 End If If chkSpouse.Checked Then count += 1 End If If chkSpouseBlind.Checked Then count += 1 End If txtOutput.Text = CStr(count) End Sub

Student Solutions Manual (Page 46 of 211)

25. Private Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim fee As Double = 0 If radAdult.Checked Or radSenior.Checked Then Dim numExtras As Integer = 0 If chkTennis.Checked Then numExtras += 1 End If If chkLocker.Checked Then numExtras += 1 End If If chkLaundry.Checked Then numExtras += 1 End If If radAdult.Checked Then fee = 100 + numExtras * 25 Else fee = 75 + numExtras * 25 End If txtFee.Text = FormatCurrency(fee) Else MessageBox.Show("You must select a membership category.") End If End Sub

Student Solutions Manual (Page 47 of 211)

CHAPTER 5 EXERCISES 5.1

1. 203 3. The population will double in 24 years. 7. Your state income tax is $150.00.

5. 27 is an odd number. 9. age before beauty

11. The function header should end with "As String", not "As Integer". 13. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim radius, height As Double lstOutput.Items.Clear() radius = CDbl(InputBox("Enter radius of can (in centimeters):")) height = CDbl(InputBox("Enter height of can (in centimeters):")) lstOutput.Items.Add("A can of radius " & radius & " and height " & height) lstOutput.Items.Add("requires " & TinArea(radius, height) & " square centimeters") lstOutput.Items.Add("of tin.") End Sub
Function TinArea(ByVal radius As Double, ByVal ht As Double) As Double 'Calculate surface area of a cylindrical can. Return 6.283 * (radius ^ 2 + radius * ht) End Function

15. Private Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim weight As Double = CDbl(txtWeight.Text) Dim height As Double = CDbl(txtHeight.Text) txtBMI.Text = CStr(BMI(weight, height)) End Sub Function BMI(ByVal w As Double, ByVal h As Double) As Double Return Math.Round((703 * w) / (h ^ 2)) End Function

Student Solutions Manual (Page 48 of 211)

17. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim popcorn, butter, bucket, price As Double 'amount in dollars popcorn = CDbl(InputBox("What is the cost of the popcorn kernels?")) butter = CDbl(InputBox("What is the cost of the butter substitute?")) bucket = CDbl(InputBox("What is the cost of the bucket?")) price = CDbl(InputBox("What is the sale price?")) txtProfit.Text = FormatCurrency(Profit(popcorn, butter, bucket, price)) End Sub Function Profit(ByVal popcorn As Double, ByVal butter As Double, ByVal bucket As Double, ByVal price As Double) As Double 'Calculate the profit on a bucket of popcorn Return price - (popcorn + butter + bucket) End Function

19. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim weight As Double weight = CDbl(txtWeight.Text) txtOutput.Text = "The cost of mailing the letter was " & FormatCurrency(Cost(weight)) & "." End Sub
Function Ceil(ByVal x As Double) As Double Return -Int(-x) End Function Function Cost(ByVal weight As Double) As Double Return 0.05 + 0.1 * Ceil(weight - 1) End Function

Student Solutions Manual (Page 49 of 211)

21. Private Sub btnAddressNGreet_Click(...) Handles btnAddressNGreet.Click Dim name As String name = InputBox("Enter the senator's name:") lstOutput.Items.Add("The Honorable " & name) lstOutput.Items.Add("United States Senate") lstOutput.Items.Add("Washington, DC 20001") lstOutput.Items.Add("") lstOutput.Items.Add("Dear Senator " & LastName(name) & ",") End Sub Function LastName(ByVal name As String) As String Dim spacePos As Integer spacePos = name.IndexOf(" ") Return name.Substring(spacePos + 1) End Function

23. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click If IsLeapYear(CInt(mtbYear.Text)) Then 'mask is 0000 txtOutput.Text = mtbYear.Text & " is a leap year." Else txtOutput.Text = mtbYear.Text & " is not a leap year." End If End Sub
Function IsLeapYear(ByVal yr As Integer) As Boolean Dim date1 As Date = CDate("#1/1/" & yr & "#") Dim date2 As Date = CDate("#1/1/" & (yr + 1) & "#") If DateDiff(DateInterval.Day, date1, date2) = 366 Then Return True Else Return False End If End Function

Student Solutions Manual (Page 50 of 211)

EXERCISES 5.2
1. 88 keys on a piano 5. 1440 minutes in a day 3. You look dashing in blue. 7. Why do clocks run clockwise? Because they were invented in the northern hemisphere where sundials go clockwise. 9. It was the best of times. It was the worst of times. 11. divorced beheaded died divorced beheaded survived 13. 24 blackbirds baked in a pie.

15. The first 6 letters are Visual.

17. Cost: $250.00 Shipping cost: $15.00 Total cost: $265.00

19. You passed with a grade of 92.

21. There is a parameter in the Sub procedure, but no argument in the statement calling the Sub procedure. 23. Since Handles is a keyword, it cannot be used as the name of a Sub procedure.
25. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim num As Integer = 7 Lucky(num) End Sub Sub Lucky(ByVal num As Integer) txtOutput.Text = num & " is a lucky number." End Sub 27. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Tallest("redwood", 362) Tallest("pine", 223) End Sub Sub Tallest(ByVal tree As String, ByVal ht As Double) lstBox.Items.Add("The tallest " & tree & " tree in the U.S. is " & ht & " feet.") End Sub

Student Solutions Manual (Page 51 of 211)

29. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click DisplaySource() Majors(16.7, "business") Majors(1.0, "computer science") End Sub
Sub DisplaySource() Dim phrase As String phrase = "According to a 2008 survey of college freshmen" & " taken by" lstOutput.Items.Add(phrase) lstOutput.Items.Add("the Higher Education Research Institute:") End Sub Sub Majors(ByVal percentOfStudents As Double, ByVal field As String) lstOutput.Items.Add(percentOfStudents & " percent said they intend to major in " & field & ".") End Sub

31. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim num As Double num = CDbl(txtBox.Text) Sum(num) Product(num) End Sub Sub Sum(ByVal num As Double) Dim phrase As String phrase = "The sum of your favorite number with itself is " lstOutput.Items.Add(phrase & (num + num) & ".") End Sub Sub Product(ByVal num As Double) Dim phrase As String phrase = "The product of your favorite number with itself is " lstOutput.Items.Add(phrase & (num * num) & ".") End Sub

Student Solutions Manual (Page 52 of 211)

33. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click ShowVerse("lamb", "baa") ShowVerse("duck", "quack") ShowVerse("firefly", "blink") End Sub Sub ShowVerse(ByVal animal As String, ByVal sound As String) 'Display a verse from Old McDonald Had a Farm lstOutput.Items.Add("Old McDonald had a farm. Eyi eyi oh.") lstOutput.Items.Add("And on his farm he had a " & animal & ". Eyi eyi oh.") lstOutput.Items.Add("With a " & sound & " " & sound & " here, and a " & sound & " " & sound & " there.") lstOutput.Items.Add("Here a " & sound & ", there a " & sound & ", everywhere a " & sound & " " & sound & ".") lstOutput.Items.Add("Old McDonald had a farm. Eyi eyi oh.") lstOutput.Items.Add("") End Sub

Student Solutions Manual (Page 53 of 211)

35. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim grade1 As Double = CDbl(txtGrade1.Text) Dim grade2 As Double = CDbl(txtGrade2.Text) Dim grade3 As Double = CDbl(txtGrade3.Text) DisplayHighestTwo(grade1, grade2, grade3) End Sub Sub DisplayHighestTwo(ByVal grade1 As Double, ByVal grade2 As Double, ByVal grade3 As Double) Dim first, second As Double first = Max(grade1, grade2) If first = grade1 Then second = Max(grade2, grade3) Else second = Max(grade1, grade3) End If txtOutput.Text = "The highest two grades are " & first & " and " & second & "." End Sub Function Max(ByVal num1 As Double, ByVal num2 As Double) As Double If num1 <= num2 Then Return num2 Else Return num1 End If End Function

Student Solutions Manual (Page 54 of 211)

37. Private Sub btnAlphabetize_Click(...) Handles btnAlphabetize.Click Dim word1 = txtWord1.Text Dim word2 = txtWord2.Text DisplayWords(word1, word2) End Sub Sub DisplayWords(ByVal word1 As String, ByVal word2 As String) Dim first, second As String If word1 <= word2 Then first = word1 second = word2 Else first = word2 second = word1 End If lstOutput.Items.Add(first) lstOutput.Items.Add(second) End Sub

Student Solutions Manual (Page 55 of 211)

EXERCISES 5.3
1. Gabriel was born in the year 1980. 3. The state flower of Alaska is the Forget Me Not. 5. The first 3 letters of EDUCATION are EDU. 7. Current inventory: 2 is displayed both times the button is clicked. The second click also produces the message "Insufficient inventory, purchase cancelled.") 9. sum = 4 difference = 2 11. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim firstName As String = "" Dim lastName As String = "" Dim salary, newSalary As Double InputData(firstName, lastName, salary) newSalary = RaisedSalary(salary) DisplayOutput(firstName, lastName, newSalary) End Sub Sub InputData(ByRef firstName As String, ByRef lastName As String, ByRef salary As Double) firstName = txtFirstName.Text lastName = txtLastName.Text salary = CDbl(txtCurrentSalary.Text) End Sub Function RaisedSalary(ByVal salary As Double) As Double If salary <= 40000 Then Return 1.05 * salary Else Return salary + 2000 + 0.02 * (salary - 40000) End If End Function Sub DisplayOutput(ByVal ByVal txtOutput.Text = "New " is End Sub firstName As String, ByVal lastName As String, newSalary As Double) salary for " & firstName & " " & lastName & " & FormatCurrency(newSalary) & "."

Student Solutions Manual (Page 56 of 211)

13. Private Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim annualRateOfInterest, monthlyPayment, begBalance As Double Dim intForMonth, redOfPrincipal, endBalance As Double InputData(annualRateOfInterest, monthlyPayment, begBalance) Calculate(annualRateOfInterest, monthlyPayment, begBalance, intForMonth, redOfPrincipal, endBalance) DisplayData(intForMonth, redOfPrincipal, endBalance) End Sub Sub InputData(ByRef annualRateOfInterest As Double, ByRef monthlyPayment As Double, ByRef begBalance As Double) annualRateOfInterest = CDbl(txtAnnualRateOfInterest.Text) monthlyPayment = CDbl(txtMonthlyPayment.Text) begBalance = CDbl(txtBegBalance.Text) End Sub Sub Calculate(ByVal annualRateOfInterest As Double, ByVal monthlyPayment As Double, ByVal begBalance As Double, ByRef intForMonth As Double, ByRef redOfPrincipal As Double, ByRef endBalance As Double) Dim monthlyRateOfInterest As Double = annualRateOfInterest / 12 intForMonth = (monthlyRateOfInterest / 100) * begBalance redOfPrincipal = monthlyPayment - intForMonth endBalance = begBalance - redOfPrincipal End Sub Sub DisplayData(ByVal intForMonth, ByVal redOfPrincipal, ByVal endBalance) txtIntForMonth.Text = FormatCurrency(intForMonth) txtRedOfPrincipal.Text = FormatCurrency(redOfPrincipal) txtEndBalance.Text = FormatCurrency(endBalance) End Sub

Student Solutions Manual (Page 57 of 211)

CHAPTER 6 EXERCISES 6.1

1. 18 3. 10 5. Maximum number: 7

7. Infinite loop. (To end the program, click on the Stop Debugging button on the Toolbar.) 9. Do and Loop are interchanged
15. Until name = "" 17. Until (a <= 1) Or (a >= 3) 19. While n = 0 21. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Request and display three names. Dim name As String, num As Integer = 0 Do While num < 3 name = InputBox("Enter a name:") lstOutput.Items.Add(name) num +=1 'Add 1 to value of num. Loop End Sub 11. While num >= 7 13. Until response <> "Y"

Student Solutions Manual (Page 58 of 211)

23. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim celsius As Double = 10 lstOutput.Items.Add("Celsius Fahrenheit") Do While celsius <= 95 lstOutput.Items.Add(" " & celsius & " " & Fahrenheit(celsius)) celsius += 5 Loop End Sub Function Fahrenheit(ByVal celsius As Double) As Double 'Convert Celsius to Fahrenheit Return (9 / 5) * celsius + 32 End Function

25. Private Sub btnLocate_Click(...) Handles btnLocate.Click Dim word As String = "" Dim rPlace, nPlace As Integer Do InputWord(word) rPlace = word.IndexOf("r") nPlace = word.IndexOf("n") If (rPlace = -1) Or (nPlace = -1) Then MessageBox.Show("That word does not contain both r and n.", "") End If Loop Until (rPlace > -1) And (nPlace > -1) ShowFirst(rPlace, nPlace) End Sub

Student Solutions Manual (Page 59 of 211)

Sub InputWord(ByRef word As String) Dim prompt As String prompt = "Enter a word containing the letters 'r' and 'n'." word = InputBox(prompt, "Enter Word") End Sub Sub ShowFirst(ByVal rPlace As Integer, ByVal nPlace As Integer) 'Tell which letter, r or n, comes first. If nPlace > rPlace Then txtOutput.Text = "The letter r is first." Else txtOutput.Text = "The letter n is first." End If End Sub 27. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim num, max, min As Double Dim count As Double = 0 Dim prompt As String = "Enter a nonnegative number. " & "Enter -1 to terminate entering numbers." num = CDbl(InputBox(prompt)) max = num min = num Do While num >= 0 count += 1 num = CDbl(InputBox(prompt)) If (num <> -1) Then If num < min Then min = num End If If num > max Then max = num End If End If Loop If count > 0 Then txtRange.Text = CStr(max - min) Else MessageBox.Show("No numbers were entered.") End If End Sub

Student Solutions Manual (Page 60 of 211)

29. Private Sub btnFind_Click(...) Handles btnFind.Click Dim m, n, t As Integer InputIntegers(m, n) Do While n <> 0 t = n n = m Mod n 'Remainder after m is divided by n m = t Loop txtOutput.Text = CStr(m) End Sub Sub m n End InputIntegers(ByRef m As Integer, ByRef n As Integer) = CInt(txtM.Text) = CInt(txtN.Text) Sub

31. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim age As Integer = 1 Do While 1980 + age <> age ^ 2 age += 1 Loop txtOutput.Text = age & " years old" End Sub

33. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim amount As Double = 100 Dim yrs As Integer = 0 Do Until amount < 1 amount = 0.5 * amount yrs += 28 Loop txtOutput.Text = yrs & " years" End Sub 35. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Const INTEREST_PER_MONTH As Double = 0.005 Dim loanAmount As Double = 15000 Dim months As Integer = 0 Dim balance As Double = loanAmount Do Until balance < loanAmount / 2 balance = (1 + INTEREST_PER_MONTH) * balance - 290 months += 1 Loop txtOutput.Text = months & " months" End Sub

Student Solutions Manual (Page 61 of 211)

37. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim months As Integer = 0 Dim balance As Double = 10000 Do Until balance < 600 balance = 1.003 * balance - 600 months += 1 Loop txtOutput.Text = months & " months; " & FormatCurrency(balance) End Sub

Student Solutions Manual (Page 62 of 211)

EXERCISES 6.2
1. Pass Pass Pass Pass #1 #2 #3 #4 3. 2 4 6 8 Who do we appreciate? 9. 4 5. 5 6 7

7.

11. The loop is never executed since 25 is greater than 1 and the step is negative. 13. The For ... Next loop will not execute since 20 is greater than 0. You must add Step 1 to the end of the For statement.
15. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click For num As Integer = 1 To 9 Step 2 lstBox.Items.Add(num) Next End Sub 17. Private Sub btndisplay_Click(...) Handles btndisplay.Click For i As Integer = 2 To 100 Step 2 lstOutput.Items.Add(i) Next End Sub

19. Private Sub btnFind_Click(...) Handles btnFind.Click Dim sum As Double = 0, num as Double = 0 For i As Integer = 1 To 5 num = CDbl(InputBox("Enter #" & i)) sum += num Next txtAverage.Text = FormatNumber(sum / 5, 2) End Sub

Student Solutions Manual (Page 63 of 211)

21. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim sum As Double = 0 For denominator As Double = 1 To 100 sum += 1 / denominator Next txtOutput.Text = FormatNumber(sum, 5) End Sub

23. Private Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim value As Double = 20000 For i As Integer = 1 To 5 value = 0.85 * value lstOutput.Items.Add(i & ": " & FormatCurrency(value)) Next End Sub 25. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim PERCENT_RAISE As Double = 0.05 Dim name As String, age As Integer, salary As Double Dim earnings As Double = 0 name = txtName.Text age = CInt(txtAge.Text) salary = CDbl(txtSalary.Text) For i As Integer = age To 64 earnings += salary salary = salary + (PERCENT_RAISE * salary) Next txtOutput.Text = name & " will earn about " & FormatCurrency(earnings, 0) & "." End Sub

Student Solutions Manual (Page 64 of 211)

27. Private Sub btnComputeIdealWeights_Click(...) Handles _ btnComputeIdealWeights.Click Dim lower, upper As Integer lstWeightTable.Items.Clear() InputBounds(lower, upper) ShowWeights(lower, upper) End Sub Function IdealMan(ByVal height As Integer) As Double 'Compute the ideal weight of a man given his height Return 4 * height - 128 End Function Function IdealWoman(ByVal height As Integer) As Double 'Compute the ideal weight of a woman given her height Return 3.5 * height - 108 End Function Sub InputBounds(ByRef lower As Integer, ByRef upper As Integer) lower = CInt(InputBox("Enter lower bound on height in inches:")) upper = CInt(InputBox("Enter upper bound on height in inches:")) End Sub Sub ShowWeights(ByVal lower As Integer, ByVal upper As Integer) lstWeightTable.Items.Add(" " & "WEIGHT " & " " & "WEIGHT") lstWeightTable.Items.Add("HEIGHT" & " " & "WOMEN " & " " & "MEN") For height As Integer = lower To upper lstWeightTable.Items.Add(height & " " & FormatNumber(IdealWoman(height), 1) & " " & FormatNumber(IdealMan(height), 1)) Next End Sub

Student Solutions Manual (Page 65 of 211)

29. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim balance As Double = 0 Dim yr As Integer = 2010 For i As Integer = 1 To 120 balance = (1.0025) * balance + 100 If i Mod 12 = 0 Then lstOutput.Items.Add(yr & " " & FormatCurrency(balance)) yr += 1 End If Next End Sub

31. Private Sub btnAnalyze_Click(...) Handles btnAnalyze.Click Const DECAY_RATE As Double = 0.12 Dim grams As Double grams = 10 For yearNum As Integer = 1 To 5 grams = (1 - DECAY_RATE) * grams Next lstOutput.Items.Add("Beginning with 10 grams of cobalt 60,") lstOutput.Items.Add(FormatNumber(grams) & " grams remain after 5 years.") End Sub

Student Solutions Manual (Page 66 of 211)

33. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim price, quantity As Double lstOutput.Items.Clear() quantity = 80 'current crop of soybeans in millions of bushels lstOutput.Items.Add("YEAR" & " " & "QUANTITY" & " " & "PRICE") For yr As Integer = 2010 To 2020 price = 20 - 0.1 * quantity lstOutput.Items.Add(yr & " " & FormatNumber(quantity) & " " & FormatCurrency(price)) quantity = 5 * price - 10 Next End Sub

35. Private Sub btnAnalyzeOptions_Click(...) Handles btnAnalyzeOptions.Click 'Compare salaries Dim opt1, opt2 As Double opt1 = Option1() opt2 = Option2() lstOutput.Items.Add("Option 1 = " & FormatCurrency(opt1)) lstOutput.Items.Add("Option 2 = " & FormatCurrency(opt2)) If opt1 > opt2 Then lstOutput.Items.Add("Option 1 pays better.") ElseIf opt1 = opt2 lstOutput.Items.Add("Options pay the same. Else lstOutput.Items.Add("Option 2 pays better.") End If End Sub Function Option1() As Double 'Compute the total salary for 10 days, 'with a flat salary of $100/day Dim sum As Integer = 0 For i As Integer = 1 To 10 sum += 100 Next Return sum End Function

Student Solutions Manual (Page 67 of 211)

Function Option2() As Double 'Compute the total salary for 10 days, 'starting at $1 and doubling each day Dim sum As Integer = 0, daySalary As Integer = 1 For i As Integer = 1 To 10 sum += daySalary daySalary = 2 * daySalary Next Return sum End Function

37. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim dt As Date = CDate("#1/1/" & mtbYear.Text & "#") Dim d As Date For i As Integer = 0 To 11 d = dt.AddMonths(i) lstOutput.Items.Add(FirstTuesday(d)) Next End Sub Function FirstTuesday(ByVal d As Date) As Date For i As Integer = 0 To 6 If FormatDateTime(d.AddDays(i), DateFormat.LongDate).StartsWith("Tuesday") Then Return d.AddDays(i) End If Next End Function

Student Solutions Manual (Page 68 of 211)

EXERCISES 6.3
1. Mozart 3. Tchaikovsky 5. 3 7. 80 9. 70 11. 300

13. Private Sub btnCount_Click(...) Handles btnCount.Click Dim numWon As Integer = 0 For i As Integer = 0 To lstBox.Items.Count - 1 If CStr(lstBox.Items(i)) = "USC" Then numWon += 1 End If Next txtOutput.Text = CStr(numWon) End Sub

15. Private Sub btnCount_Click(...) Handles btnDetermine.Click Dim college As String = txtCollege.Text txtOutput.Clear() For i As Integer = 0 To lstBox.Items.Count - 1 If CStr(lstBox.Items(i)) = college Then txtOutput.Text = "YES" Exit For End If Next If txtOutput.Text = "" Then txtOutput.Text = "NO" End If End Sub or

Student Solutions Manual (Page 69 of 211)

Private Sub btnCount_Click(...) Handles btnDetermine.Click Dim college As String = txtCollege.Text Dim i As Integer = 0 Dim found As Boolean = False Do Until (found = True) Or (i = lstBox.Items.Count) If CStr(lstBox.Items(i)) = college Then found = True End If i += 1 Loop If found Then txtOutput.Text = "YES" Else txtOutput.Text = "NO" End If End Sub

17. Private Sub btnReverse_Click(...) Handles btnReverse.Click Dim highestIndex As Integer = lstBox.Items.Count - 1 For i As Integer = highestIndex To 0 Step -1 lstBox2.Items.Add(lstBox.Items(i)) Next End Sub

Student Solutions Manual (Page 70 of 211)

19. Private Sub btnAlphabetize_Click(...) Handles btnAlphabetize.Click lstBox2.Sorted = True Dim highestIndex As Integer = lstBox.Items.Count - 1 For i As Integer = 0 To highestIndex lstBox2.Items.Add(lstBox.Items(i)) Next End Sub

21. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim highestIndex As Integer = lstBox.Items.Count - 1 Dim state As String For i As Integer = 0 To highestIndex state = CStr(lstBox.Items(i)) If state.Length = 7 Then lstBox2.Items.Add(state) End If Next End Sub

Student Solutions Manual (Page 71 of 211)

23. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim highestIndex As Integer = lstBox.Items.Count - 1 Dim state As String For i As Integer = 0 To highestIndex state = CStr(lstBox.Items(i)) If state.StartsWith("New") Then txtOutput.Text = state Exit For End If Next End Sub

25. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim highestIndex As Integer = lstBox.Items.Count - 1 Dim maxLength As Integer = 0 Dim state As String For i As Integer = 0 To highestIndex state = CStr(lstBox.Items(i)) If state.Length > maxLength Then maxLength = state.Length End If Next For i As Integer = 0 To highestIndex state = CStr(lstBox.Items(i)) If state.Length = maxLength Then lstBox2.Items.Add(state) End If Next End Sub

Student Solutions Manual (Page 72 of 211)

27. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim highestIndex As Integer = lstBox.Items.Count - 1 Dim state As String For i As Integer = 0 To highestIndex state = CStr(lstBox.Items(i)) If NumberOfVowels(state) = 4 Then lstBox2.Items.Add(state) End If Next End Sub Function NumberOfVowels(ByVal word As String) As Integer Dim numVowels As Integer = 0 word = word.ToUpper Dim letter As String Dim numLetters As Integer = word.Length For i As Integer = 0 To (numLetters - 1) letter = word.Substring(i, 1) If (letter = "A") Or (letter = "E") Or (letter = "I") Or (letter = "O") Or (letter = "U") Then numVowels += 1 End If Next Return numVowels End Function

Student Solutions Manual (Page 73 of 211)

29. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim highestIndex As Integer = lstBox.Items.Count - 1 Dim state As String Dim maxNumOfVowels = 0 For i As Integer = 0 To highestIndex state = CStr(lstBox.Items(i)) If NumberOfVowels(state) > maxNumOfVowels Then maxNumOfVowels = NumberOfVowels(state) End If Next txtOutput.Text = CStr(maxNumOfVowels) End Sub Function NumberOfVowels(ByVal word As String) As Integer Dim numVowels As Integer = 0 word = word.ToUpper Dim letter As String Dim numLetters As Integer = word.Length For i As Integer = 0 To (numLetters - 1) letter = word.Substring(i, 1) If (letter = "A") Or (letter = "E") Or (letter = "I") Or (letter = "O") Or (letter = "U") Then numVowels += 1 End If Next Return numVowels End Function

31. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click txtOutput.Text = CStr(lstBox.Items(0)) End Sub

Student Solutions Manual (Page 74 of 211)

33. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click txtOutput.Text = CStr(lstBox.Items(4)) End Sub

35. Private Sub btnRecord_Click(...) Handles btnRecord.Click lstGrades.Items.Add(txtGrade.Text) txtGrade.Clear() txtGrade.Focus() End Sub Private Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim sum As Double = 0 Dim minGrade As Double = 100 If lstGrades.Items.Count > 0 Then For i As Integer = 0 To lstGrades.Items.Count - 1 sum += CDbl(lstGrades.Items(i)) If CDbl(lstGrades.Items(i)) < minGrade Then minGrade = CDbl(lstGrades.Items(i)) End If Next Else MessageBox.Show("You must first enter some grades.") End If txtAverage.Text = FormatNumber(sum / lstGrades.Items.Count, 2) txtLowest.Text = CStr(minGrade) End Sub

Student Solutions Manual (Page 75 of 211)

37. Private Sub btnRecord_Click(...) Handles btnRecord.Click lstGrades.Items.Add(txtGrade.Text) txtGrade.Clear() txtGrade.Focus() End Sub Private Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim sum As Double = 0 Dim maxGrade As Double = 0 Dim minGrade As Double = 100 If lstGrades.Items.Count > 0 Then For i As Integer = 0 To lstGrades.Items.Count - 1 sum += CDbl(lstGrades.Items(i)) If CDbl(lstGrades.Items(i)) > maxGrade Then maxGrade = CDbl(lstGrades.Items(i)) End If If CDbl(lstGrades.Items(i)) < minGrade Then minGrade = CDbl(lstGrades.Items(i)) End If Next Else MessageBox.Show("You must first enter some grades.") End If txtAverage.Text = FormatNumber(sum / lstGrades.Items.Count, 2) txtRange.Text = CStr(maxGrade - minGrade) End Sub

Student Solutions Manual (Page 76 of 211)

39. Private Sub btnSearch_Click(...) Handles btnSearch.Click Dim letters As String = mtbFirstTwoLetters.Text.ToUpper Dim i As Integer = 49 'index of the state currently considered Do Until (CStr(lstStates.Items(i)).ToUpper <= letters) Or (i = 0) i = i - 1 Loop If CStr(lstStates.Items(i + 1)).ToUpper.StartsWith(letters) Then txtOutput.Text = CStr(lstStates.Items(i + 1)) & " begins with " & mtbFirstTwoLetters.Text & "." ElseIf CStr(lstStates.Items(0)).ToUpper.StartsWith(letters) Then txtOutput.Text = CStr(lstStates.Items(0)) & " begins with " & mtbFirstTwoLetters.Text & "." Else txtOutput.Text = "No state begins with " & mtbFirstTwoLetters.Text & "." End If End Sub

Student Solutions Manual (Page 77 of 211)

CHAPTER 7 EXERCISES 7.1

1. 101 3. Have a dessert spoon. 5. Yes 7. 12

9. You have a trio.

11. Your average is 80 15. one,two,three

13. Slumdog Millionaire won in 2009 17. 2 even numbers

19. Pearl Harbor: 1941 23. 6 words begin with a vowel

21. contains a 19th-century date 25. 4 6 2 27. (a) (b) (c) (d) (e) (f) (g) 29. (a) (b) (c) (d) (e) (f) (g) Superior Erie Huron Superior 5 Ontario 3 6.5 0.7 3.5 1.3 6 1.1 3

(last name in alphabetical order) (first name in alphabetical order) (first name in the array) (last name in the array) (number of names in the array) (second name in the array) (first array subscript whose element is Erie)

(greatest population of a New England state) (least population of a New England state) (first population in the array) (last population in the array) (number of numbers in the array) (fourth population in the array) (first array subscript whose element is 1.1)

31. (a) lstOutput.Items.Add(states.First) or lstOutput.Items.Add(states(0)) (b) For i As Integer = 0 To 12 lstOutput.Items.Add(states(i)) Next (c) lstOutput.Items.Add(states.Last) or lstOutput.Items.Add(states(49)) (d) lstOutput.Items.Add(CStr(Array.IndexOf(states, "Ohio") + 1)) (e) lstOutput.Items.Add(states(1)) (f) lstOutput.Items.Add(states(19)) (g) For i As Integer = (states.Count - 9) To (states.Count) lstOutput.Items.Add(states(i - 1)) Next

Student Solutions Manual (Page 78 of 211)

33. Function Task(ByVal nums() As Integer) As Integer Dim sum As Integer = 0 For Each num As Integer In nums sum += num Next Return sum End Function 35. Function Task(ByVal nums() As Integer) As Integer Dim maxEven As Integer = 0 For Each num As Integer In nums If (num Mod 2 = 0) And (num > maxEven) Then maxEven = num End If Next Return maxEven End Function 37. Function Task(ByVal nums() As Integer) As Integer Dim twoDigits As Integer = 0 For Each num As Integer In nums If (num > 9) And (num < 100) Then twoDigits += 1 End If Next Return twoDigits End Function 39. nums(3) 41.

should be changed to nums()

Logic error. The values of the array elements cannot be altered inside a For Each loop. The output will be 6.

43. lstBox.Items.Add(line.Split(" "c).Count)

Student Solutions Manual (Page 79 of 211)

45. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim numStr() As String = IO.File.ReadAllLines("Numbers.txt") Dim nums(numStr.Count - 1) As Integer For i As Integer = 1 To nums.Count - 1 nums(i) = CInt(numStr(i)) Next lstOutput.Items.Add("Number of integers in the file: " & nums.Count) lstOutput.Items.Add("Sum of integers in the file: " & nums.Sum) End Sub

47. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim names() As String = IO.File.ReadAllLines("Names2.txt") Dim dups(names.Count - 1) As String Dim n As Integer = 0 'index for dups For i As Integer = 0 To names.Count - 2 If (names(i + 1) = names(i)) And (Array.IndexOf(dups, names(i)) = -1) Then dups(n) = names(i) n += 1 End If Next If n = 0 Then lstOutput.Items.Add("No duplicates.") Else For i As Integer = 0 To n - 1 lstOutput.Items.Add(dups(i)) Next End If End Sub

Student Solutions Manual (Page 80 of 211)

49. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim strDigits() As String = IO.File.ReadAllLines("Digits.txt") Dim freq(9) As Integer For i As Integer = 0 To strDigits.Count - 1 freq(CInt(strDigits(i))) += 1 Next lstOutput.Items.Add("Digit Frequency") For i As Integer = 0 To 9 lstOutput.Items.Add(" " & i & " " & freq(i)) Next End Sub

51. Function Sum(ByVal nums() As Integer) As Integer Dim total As Integer = 0 For i As Integer = 1 To nums.Count - 1 Step 2 total += nums(i) Next Return total End Function

Student Solutions Manual (Page 81 of 211)

53. Private Sub btnProcessEggs_Click(...) Handles btnProcessEggs.Click Dim heaviest, lightest, ounces As Double Dim jumbo, xLarge, large, med, small As Integer heaviest = 0 'can be any number lower than lightest egg lightest = 100 'can be any number greater than heaviest egg Dim strEggs() As String = IO.File.ReadAllLines("Eggs.txt") Dim eggs(strEggs.Count - 1) As Double For i As Integer = 0 To eggs.Count - 1 eggs(i) = CDbl(strEggs(i)) Next For i As Integer = 0 To eggs.Count - 1 ounces = eggs(i) If ounces > heaviest Then heaviest = ounces End if If ounces < lightest Then lightest = ounces End If Select Case ounces Case Is < 1.5 'too small & cannot be sold Case Is < 1.75 small += 1 Case Is < 2 med += 1 Case Is < 2.25 large += 1 Case Is < 2.5 xLarge += 1 Case Else jumbo += 1 End Select Next lstOutput.Items.Clear() lstOutput.Items.Add(jumbo & " Jumbo eggs") lstOutput.Items.Add(xLarge & " Extra Large eggs") lstOutput.Items.Add(large & " Large eggs") lstOutput.Items.Add(med & " Medium eggs") lstOutput.Items.Add(small & " Small eggs") If lightest <> 100 Then lstOutput.Items.Add("Lightest egg: " & lightest & " ounces") lstOutput.Items.Add("Heaviest egg: " & heaviest & " ounces") Else lstOutput.Items.Add("File is empty") End If End Sub

Student Solutions Manual (Page 82 of 211)

55. Dim colors() As String = IO.File.ReadAllLines("Colors.txt") Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim letter As String = mtbLetter.Text.ToUpper 'mask is L lstColors.Items.Clear() For Each hue As String In colors If hue.StartsWith(letter) Then lstColors.Items.Add(hue) End If Next End Sub

57. Dim colors() As String = IO.File.ReadAllLines("Colors.txt") Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim letter As String = mtbLetter.Text.ToUpper 'mask L lstColors.Items.Clear() For Each hue As String In SmallerArray(letter) lstColors.Items.Add(hue) Next End Sub Function SmallerArray(ByVal letter As String) As String() Dim smArray(colors.Count - 1) As String Dim counter As Integer = 0 For Each hue As String In colors If hue.StartsWith(letter) Then smArray(counter) = hue counter += 1 End If Next ReDim Preserve smArray(counter - 1) Return smArray End Function

Student Solutions Manual (Page 83 of 211)

59. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim lines() As String = IO.File.ReadAllLines("Sonnet.txt") Dim n = lines.Count - 1 Dim numWords(n) As Integer For i As Integer = 0 To n numWords(i) = lines(i).Split(" "c).Count Next lstOutput.Items.Add("Average number of words per line: " & FormatNumber(numWords.Average, 2)) lstOutput.Items.Add("Total number of words: " & numWords.Sum) End Sub

61. Dim grades(99) As Integer Dim numGrades As Integer

'stores grades 'number of grades stored

Private Sub btnRecord_Click(...) Handles btnRecord.Click 'Add a score to the array 'If no more room, then display error message. If numGrades >= 100 Then MessageBox.Show("100 scores have been entered.", "No more room.") Else grades(numGrades) = CInt(txtScore.Text) numGrades += 1 lstOutput.Items.Clear() txtScore.Clear() txtScore.Focus() End If End Sub Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Display average of grades and the number of above average grades Dim temp() As Integer = grades ReDim Preserve temp(numGrades - 1) lstOutput.Items.Clear() lstOutput.Items.Add("The average grade is " & FormatNumber(temp.Average, 2) & ".") lstOutput.Items.Add(NumAboveAverage(temp) & " students scored above the average.") End Sub

Student Solutions Manual (Page 84 of 211)

Function NumAboveAverage(ByVal temp() As Integer) As Integer 'Count the number of scores above the average grade Dim avg As Double = temp.Average Dim num As Integer = 0 For Each grade In temp If grade > avg Then num += 1 End If Next Return num End Function 63. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click If IsChainLink(txtSentence.Text) Then txtOutput.Text = "This sentence is a chain-link sentence." Else txtOutput.Text = "This sentence is not a chain-link sentence." End If End Sub Function IsChainLink(ByVal sentence As String) As Boolean 'Analyze a sentence to see whether it is a chain-link sentence. Dim words(), ending As String 'Split the sentence into words, removing commas first words = txtSentence.Text.Replace(",", "").Split(" "c) For i As Integer = 0 To words.Count - 2 If (words(i).Length < 2) Or (words(i + 1).Length < 2) Then Return False 'If any word has is less than two letters. End If ending = words(i).Substring(words(i).Length - 2).ToUpper If ending <> words(i + 1).Substring(0, 2).ToUpper Then Return False 'If ending does not match beginning of next word. End If Next Return True 'If all words are ok, then it is a chain-link sentence. End Function

Student Solutions Manual (Page 85 of 211)

EXERCISES 7.2
1. 5 7 3. going offer can't 5. 6 7. 103 9. 8

11. 3 students have a grade of 100

13. 15 12

15. The average after dropping the lowest grade is 80 17. 37 is a prime number 19. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim nums() As Integer = {3, 5, 8, 10, 21} Dim query = From num In nums Where num Mod 2 = 0 Select num txtOutput.Text = query.count & " even numbers" End Sub

21. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim dates() As String = IO.File.ReadAllLines("Dates.txt") Dim query = From yr In dates Where (CInt(yr) >= 1800) And (CInt(yr) <= 1899) Select yr If query.Count > 0 Then txtOutput.Text = "contains a 19th century date." Else txtOutput.Text = "does not contains a 19th century date." End If End Sub 23. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim nums() As Integer = {2, 6, 4} Dim query = From num In nums Order By Array.IndexOf(nums, num) Descending For Each num As Integer In query lstOutput.Items.Add(num) Next End Sub

Student Solutions Manual (Page 86 of 211)

25. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim teams() As String = IO.File.ReadAllLines("SBWinners.txt") Dim query = From team In teams Order By team Ascending Distinct For Each team As String In query lstOutput.Items.Add(team) Next End Sub 27. Dim teamNames() As String = IO.File.ReadAllLines("SBWinners.txt") Private Sub btnDetermine_Click(...) Handles btnDetermine.Click 'Display the number of Super Bowls won by the team in the text box Dim query = From team In teamNames Where team.ToUpper = txtName.Text.ToUpper Select team txtNumWon.Text = CStr(query.Count) End Sub

7.2 Exercise 27

7.2 Exercise 29

29. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query1 = From grade In IO.File.ReadAllLines("Final.txt") Select CInt(grade) Dim avg As Double = query1.Average Dim query2 = From grade In IO.File.ReadAllLines("Final.txt") Where CInt(grade) > avg Select grade txtAverage.Text = FormatNumber(avg) txtAboveAve.Text = FormatPercent(query2.Count / query1.Count) End Sub

Student Solutions Manual (Page 87 of 211)

31. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim states() As String = IO.File.ReadAllLines("States.txt") ReDim Preserve states(12) Dim query = From state In states Order By state Select state For Each state As String In query lstOutput.Items.Add(state) Next End Sub

33. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query = From pres In IO.File.ReadAllLines("USPres.txt") Let lastName = pres.Split(" "c).Last Order By lastName Select pres For Each pres As String In query lstOutput.Items.Add(pres) Next Distinct End Sub

Student Solutions Manual (Page 88 of 211)

35. Dim nations() As String = IO.File.ReadAllLines("Nations.txt") Private Sub frmNations_Load(...) Handles MyBase.Load lstNations.DataSource = nations lstNations.SelectedItem = Nothing End Sub Private Sub txtNations_TextChanged(...) Handles txtNation.TextChanged Dim query = From nation In nations Where nation.StartsWith(txtNation.Text) Select nation lstNations.DataSource = query.ToList lstNations.SelectedItem = Nothing End Sub Private Sub lstNations_Click(...) Handles lstNations.Click txtNation.Text = lstNations.Text End Sub

Student Solutions Manual (Page 89 of 211)

EXERCISES 7.3
1. The area of a football field is 19200 square yards. 3. Duke was founded in NC in 1838. 7. Joe: 88 Moe: 90 Roe: 95 5. heights are same 170

9. Mr. President lives in Washington, DC

11. In the event procedure, peace should be prize.peace and yr should be prize.yr. 13. The condition (game1 > game2) is not valid. Structures can only be compared one field at a time. 15. The cities in Texas, along with their populations. The cities are ordered by the sizes of their populations beginning with the most populous city. 17. The population growth of Phoenix from 2000 to 2010.
19. Structure State Dim name As String Dim abbreviation As String Dim area As Double Dim pop As Double End Structure
Dim states() As State Private Sub frmStates_Load(...) Handles MyBase.Load Dim stateRecords() As String = IO.File.ReadAllLines("USStates.txt") Dim n As Integer = stateRecords.Count - 1 ReDim states(n) Dim line As String Dim data() As String For i As Integer = 0 To n line = stateRecords(i) data = line.Split(","c) states(i).name = data(0) states(i).abbreviation = data(1) states(i).area = CDbl(data(2)) states(i).pop = CDbl(data(3)) Next End Sub

Student Solutions Manual (Page 90 of 211)

Private Sub btnFind_Click(...) Handles btnFind.Click Dim stateAbbr As String = mtbAbbrev.Text.ToUpper Dim query = From state In states Where state.abbreviation = stateAbbr Select state.name, state.area txtOutput.Text = "The area of " & query.First.name & " is " & FormatNumber(query.First.area, 0) & " square miles." End Sub

7.3 Exercise 19
21.

7.3 Exercise 21

(Begin with the code from Exercise 19 and replace the Click event procedure with the following.)
Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query = From state In states Let density = state.pop / state.area Let formattedDensity = FormatNumber(density, 2) Order By density Descending Select state.name, formattedDensity dgvOutput.DataSource = query.ToList dgvOutput.CurrentCell = Nothing dgvOutput.Columns("name").HeaderText = "State" dgvOutput.Columns("formattedDensity").HeaderText = "People per Square Mile" End Sub

Student Solutions Manual (Page 91 of 211)

23. Structure Player Dim name As String Dim team As String Dim atBats As Double Dim hits As Double End Structure
Dim players() As Player Private Sub frmBaseball_Load(...) Handles MyBase.Load Dim playerStats() As String = IO.File.ReadAllLines("Baseball.txt") Dim n As Integer = playerStats.Count - 1 ReDim players(n) Dim line As String Dim data() As String For i As Integer = 0 To n line = playerStats(i) data = line.Split(","c) players(i).name = data(0) players(i).team = data(1) players(i).atBats = CDbl(data(2)) players(i).hits = CDbl(data(3)) Next Dim query = From person In players Order By person.team Ascending Select person.team Distinct lstTeams.DataSource = query.ToList End Sub Private Sub lstTeams_SelectedIndexChanged(...) Handles _ lstTeams.SelectedIndexChanged Dim selectedTeam = lstTeams.Text Dim query = From person In players Where person.team = selectedTeam Order By person.hits Descending Select person.name, person.hits dgvOutput.DataSource = query.ToList dgvOutput.CurrentCell = Nothing dgvOutput.Columns("name").HeaderText = "Player" dgvOutput.Columns("hits").HeaderText = "Hits" End Sub

Student Solutions Manual (Page 92 of 211)

25. Structure Player Dim name As String Dim team As String Dim atBats As Double Dim hits As Double End Structure
Dim players() As Player Private Sub frmBaseball_Load(...) Handles MyBase.Load Dim playerStats() As String = IO.File.ReadAllLines("Baseball.txt") Dim n As Integer = playerStats.Count - 1 ReDim players(n) Dim line As String Dim data() As String For i As Integer = 0 To n line = playerStats(i) data = line.Split(","c) players(i).name = data(0) players(i).team = data(1) players(i).atBats = CDbl(data(2)) players(i).hits = CDbl(data(3)) Next End Sub Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query = From person In players Let ave = person.hits / person.atBats Select ave Dim best As Double = query.Max txtBestAverage.Text = FormatNumber(best, 3) Dim query2 = From person In players Where person.hits / person.atBats = best Select person.name, person.team dgvOutput.DataSource = query2.ToList dgvOutput.CurrentCell = Nothing dgvOutput.Columns("name").HeaderText = "Player" dgvOutput.Columns("team").HeaderText = "Team" End Sub

Student Solutions Manual (Page 93 of 211)

27. Structure Justice Dim firstName As String Dim lastName As String Dim apptPres As String Dim state As String 'state abbreviation Dim yrAppointed As Double Dim yrLeft As Double End Structure
Dim justices() As Justice Private Sub frmJustices_Load(...) Handles MyBase.Load Dim justiceRecords() As String = IO.File.ReadAllLines("Justices.txt") Dim n As Integer = justiceRecords.Count - 1 ReDim justices(n) Dim line As String Dim data() As String For i As Integer = 0 To n line = justiceRecords(i) data = line.Split(","c) justices(i).firstName = data(0) justices(i).lastName = data(1) justices(i).apptPres = data(2) justices(i).state = data(3) justices(i).yrAppointed = CDbl(data(4)) justices(i).yrLeft = CDbl(data(5)) Next End Sub Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query = From person In justices Where person.yrLeft = 0 Order By person.yrAppointed Select person.firstName & " " & person.lastName lstOutput.DataSource = query.ToList lstOutput.SelectedItem = Nothing End Sub

Student Solutions Manual (Page 94 of 211)

29.. (Begin with the code from Exercise 27 and replace the Click event procedure with the following.)
Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query = From person In justices Where person.state = mtbState.Text Let fullName = person.firstName & " " & person.lastName Let yrs = YearsServed(person.yrAppointed, person.yrLeft) Let presLastName = person.apptPres.Split(" "c).Last Select fullName, presLastName, yrs If query.Count = 0 Then MessageBox.Show("No justices appointed from that state.", "NONE") mtbState.Focus() Else dgvOutput.DataSource = query.ToList dgvOutput.CurrentCell = Nothing dgvOutput.Columns("fullName").HeaderText = "Justice" dgvOutput.Columns("presLastName").HeaderText = "Appointing President" dgvOutput.Columns("yrs").HeaderText = "Years Served" End If End Sub Function YearsServed(ByVal enter As Double, ByVal leave As Double) As Double If leave = 0 Then Return (Now.Year - enter) Else Return (leave - enter) End If End Function

Student Solutions Manual (Page 95 of 211)

31. Structure Day Dim num As Integer Dim present As String Dim price As Double End Structure Dim days() As Day Private Sub frmXmas_Load(...) Handles MyBase.Load Dim gifts() As String = IO.File.ReadAllLines("Gifts.txt") Dim n As Integer = gifts.Count - 1 ReDim days(n) Dim data() As String For i As Integer = 0 To n data = gifts(i).Split(","c) days(i).num = CInt(data(0)) days(i).present = data(1) days(i).price = CDbl(data(2)) Next End Sub Private Sub btnDisplayGifts_Click(...) Handles btnDisplayGifts.Click Dim dayNum = CInt(txtDayNum.Text) Dim cost As Double = 0 Dim totalCost As Double = 0 lstOutput.Items.Clear() lstOutput.Items.Add("The gifts for day " & dayNum & " are") For i As Integer = 0 To (dayNum - 1) lstOutput.Items.Add(days(i).num & " " & days(i).present) cost += days(i).num * days(i).price totalCost += days(i).num * days(i).price * (dayNum + 1 - days(i).num) Next lstOutput.Items.Add("") lstOutput.Items.Add("Cost for day " & dayNum & ": " & FormatCurrency(cost)) lstOutput.Items.Add("Total cost for the first " & dayNum & " days: " & FormatCurrency(totalCost)) End Sub

Student Solutions Manual (Page 96 of 211)

33. Structure FamousPerson Dim name As String Dim dateOfBirth As Date End Structure
Dim famousPersons() As FamousPerson Private Sub frmFamous_Load(...) Handles MyBase.Load Dim people() As String = IO.File.ReadAllLines("Famous.txt") Dim n As Integer = people.Count - 1 ReDim famousPersons(n) Dim line As String Dim data() As String For i As Integer = 0 To n line = people(i) data = line.Split(","c) famousPersons(i).name = data(0) famousPersons(i).dateOfBirth = CDate(data(1)) Next End Sub Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query = From person In famousPersons Where (person.dateOfBirth >= #1/1/1970#) And (person.dateOfBirth < #1/1/1980#) Select person.name lstOutput.DataSource = query.ToList lstOutput.SelectedItem = Nothing End Sub

35. Dim people() As Person Private Sub frmFamous_Load(...) Handles MyBase.Load 'Place the data for each person into the array people. Dim group() As String = IO.File.ReadAllLines("Famous.txt") Dim n As Integer = group.Count - 1 ReDim people(n) Dim data() As String For i As Integer = 0 To n data = group(i).Split(","c) people(i).name = data(0) people(i).dateOfBirth = CDate(data(1)) Next End Sub

Student Solutions Manual (Page 97 of 211)

Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query = From individual In people Let ageInDays = FormatNumber(DateDiff(DateInterval.Day, individual.dateOfBirth, Today), 0) Let dayOfBirth = DayOfWeek(individual.dateOfBirth) Where individual.dateOfBirth.AddYears(40) <= Today And individual.dateOfBirth.AddYears(50) > Today Select individual.name, ageInDays, dayOfBirth dgvOutput.DataSource = query.ToList dgvOutput.CurrentCell = Nothing End Sub Function DayOfWeek(ByVal d As Date) As String Dim d1 As String = FormatDateTime(d, DateFormat.LongDate) Dim d2() As String = d1.Split(","c) Return First End Function

37. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click lstOutput.Items.Clear() For i As Integer = 0 To club.Count - 1 If club(i).courses.Count = 3 Then lstOutput.Items.Add(club(i).name) End If Next End Sub

Student Solutions Manual (Page 98 of 211)

39. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Displays the students who are not enrolled in CMSC 100 Dim subject = "CMSC 100" Dim ub = club.Count - 1 Dim checkList(ub) As Boolean For i As Integer = 0 To ub For j As Integer = 0 To club(i).courses.Count - 1 If club(i).courses(j) = subject Then checkList(i) = True End If Next Next For i As Integer = 0 To ub If Not checkList(i) Then lstOutput.Items.Add(club(i).name) End If Next End Sub

Student Solutions Manual (Page 99 of 211)

EXERCISES 7.4
1. 1 3. 3 5. 55 7. 14 9. 2 11. 55

13. Dim twice(2, 3) As Double For r As Integer = 0 To 2 For c As Integer = 0 To 3 twice(r, c) = 2 * nums(r, c) Next Next 15 'use a For Each loop Dim total As Double = 0 For Each num As Double In nums If num Mod 2 = 0 Then total += num End If Next lstOutput.Items.Add(total) 'use LINQ Dim query = From num In nums.Cast(Of Double)() Where (num Mod 2 = 0) Select num lstOutput.Items.Add(query.Sum)

17. 12

Student Solutions Manual (Page 100 of 211)

19. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Display a company's inventory from its two stores Dim inventory(,) As Integer = {{25, 64, 23}, {30, 82, 19}} Dim sales(,) As Integer = {{7, 45, 11}, {4, 24, 8}} Dim total(2) As Integer 'Adjust the inventory values to reflect today's sales For store As Integer = 1 To 2 For item As Integer = 1 To 3 inventory(store - 1, item - 1) = inventory(store - 1, item - 1) - sales(store - 1, item - 1) 'Accumulate the total inventory per store total(store) += inventory(store - 1, item - 1) Next Next 'Display the store's inventory and totals lstOutput.Items.Add(" 1 2 3 TOTAL") For store As Integer = 1 To 2 lstOutput.Items.Add(store & " " & inventory(store - 1, 0) & " " & inventory(store - 1, 1) & " " & inventory(store - 1, 2) & " " & total(store)) Next End Sub

Student Solutions Manual (Page 101 of 211)

21. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Display the course and campus enrollments 'enrollment array named er Dim er(,) As Integer = {{5, 15, 22, 21, 12, 25, 16, 11, 17, 23}, {11, 23, 51, 25, 32, 35, 32, 52, 25, 21}, {2, 12, 32, 32, 25, 26, 29, 12, 15, 11}} 'Define the arrays to accumulate the information Dim campusTotal(2), courseTotal(9) As Integer For campus As Integer = 0 To 2 For course As Integer = 0 To 9 campusTotal(campus) += er(campus, course) courseTotal(course) += er(campus, course) Next Next 'Display the campus enrollment lstOutput.Items.Add("CAMPUS ENROLLMENT") For campus As Integer = 0 To 2 lstOutput.Items.Add((campus + 1) & ": " & campusTotal(campus)) Next 'Display the course enrollment lstOutput.Items.Add("COURSE ENROLLMENT") For course As Integer = 0 To 9 lstOutput.Items.Add((course + 1) & ": " & courseTotal(course)) Next End Sub

Student Solutions Manual (Page 102 of 211)

23. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Load golf data, cumulate totals, and display results Dim scores(3, 3) As Integer Dim golfers(3) As String Dim table() As String = IO.File.ReadAllLines("Golf.txt") Dim data() As String Dim golferTotal(3) As Integer, roundTotal(3) As Integer For i As Integer = 0 To 3 data = table(i).Split(","c) golfers(i) = data(0) For j = 0 To 3 scores(i, j) = CInt(data(j + 1)) Next Next For golfer As Integer = 0 To 3 For round As Integer = 0 To 3 golferTotal(golfer) += scores(golfer, round) roundTotal(round) += scores(golfer, round) Next Next 'Display golfer's totals lstOutput.Items.Add("GOLFER TOTALS") For golfer As Integer = 0 To 3 lstOutput.Items.Add(golfers(golfer) & ": " & golferTotal(golfer)) Next lstOutput.Items.Add("") 'Display average per round lstOutput.Items.Add("ROUND AVERAGE") For round As Integer = 0 To 3 lstOutput.Items.Add(round + 1 & ": " & FormatNumber(roundTotal(round) / 4)) Next End Sub

Student Solutions Manual (Page 103 of 211)

25. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim ranking(2, 4) As String Dim disciplines(2) As String Dim table() As String = IO.File.ReadAllLines("Ranking.txt") Dim data() As String For field As Integer = 0 To 2 data = table(field).Split(","c) disciplines(field) = data(0) For rank As Integer = 0 To 4 ranking(field, rank) = data(rank + 1) Next Next Dim result As String = "" For category As Integer = 0 To 2 For rank As Integer = 0 To 4 If txtName.Text.ToUpper = ranking(category, rank).ToUpper Then 'Append category name to result result &= disciplines(category) & " " End If Next Next If result = "" Then txtOutput.Text = "None." Else txtOutput.Text = result End If End Sub 27. Dim scores(14, 4) As Integer Dim count As Integer Dim names(14) As String 'Stores students' exam scores 'Current number of students stored 'Stores students' names

Private Sub btnAdd_Click(...) Handles btnAdd.Click If (count = 15) Then MessageBox.Show("Fifteen students already stored.", "Warning") Else count += 1 names(count - 1) = txtName.Text scores(count - 1, 0) = CInt(txtExam1.Text) scores(count - 1, 1) = CInt(txtExam2.Text) scores(count - 1, 2) = CInt(txtExam3.Text) scores(count - 1, 3) = CInt(txtExam4.Text) scores(count - 1, 4) = CInt(txtExam5.Text) 'Reset input txtName.Clear() txtExam1.Clear() txtExam2.Clear() txtExam3.Clear() txtExam4.Clear() txtExam5.Clear() txtName.Focus() End If End Sub

Student Solutions Manual (Page 104 of 211)

Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim sum As Double, even As Boolean lstOutput.Items.Clear() lstOutput.Items.Add("Semester Averages") For i As Integer = 0 To count - 1 sum = 0 For exam As Integer = 0 To 4 sum += scores(i, exam) Next lstOutput.Items.Add(names(i) & ": " & FormatNumber(sum / 5)) Next 'Display median on the exams lstOutput.Items.Add("Exam Medians") even = (Int(count / 2) = count / 2) For exam As Integer = 0 To 4 lstOutput.Items.Add(exam + 1 & ": " & Median(scores, count, exam, even)) Next End Sub

Student Solutions Manual (Page 105 of 211)

29. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Load data into an array, cumulate totals, and display a report Dim totalSales As Double Dim sales(,) As Integer = {{25, 64, 23, 45, 14}, {12, 82, 19, 34, 63}, {54, 22, 17, 43, 35}} Dim price() As Double = {12, 17.95, 95, 86.5, 78} 'Cumulate totals Dim totals(2) As Double For store As Integer = 0 To 2 For item As Integer = 0 To 4 totals(store) += sales(store, item) * price(item) Next Next 'Display report, storing grand total in totals(0) lstOutput.Items.Add("Sales per store") For store As Integer = 0 To 2 lstOutput.Items.Add(store + 1 & ": " & FormatCurrency(totals(store))) totalSales += totals(store) Next lstOutput.Items.Add("Total sales: " & FormatCurrency(totalSales)) End Sub

Student Solutions Manual (Page 106 of 211)

CHAPTER 8 EXERCISES 8.1

1. Samuel Alito,NJ Henry Baldwin,PA 5. Alito,Samuel,2006 Baldwin,Henry,1830 3. Alito was appointed by Bush Baldwin was appointed by Jackson

7. The new file contains the full names of the justices whose last name begins with the letter B and the years they were appointed to the court. The justices are ordered by the year they were appointed. 9. The new file is the same as the original file except that the last three fields have been deleted from each record. 11. The new file contains the names of the people who subscribe to either the New York Times or the Wall Street Journal, or both. 13. The new file contains the names of the people who subscribe to the New York Times but not the Wall Street Journal.
15. Private Sub btnBoth_Click(...) Handles btnBoth.Click 'Create a file of presidents who were also vice presidents Dim vicePres() As String = IO.File.ReadAllLines("VPres.txt") Dim presidents() As String = IO.File.ReadAllLines("USPres.txt") Dim both() As String = presidents.Intersect(vicePres).ToArray IO.File.WriteAllLines("Both.txt", both) MessageBox.Show(both.Count & " presidents", "File Created") End Sub

17. Private Sub btnXor_Click(...) Handles btnXor.Click 'Create a file of people who were pres or VP but not both Dim vicePres() As String = IO.File.ReadAllLines("VPres.txt") Dim presidents() As String = IO.File.ReadAllLines("USPres.txt") Dim eitherOr() As String = presidents.Union(vicePres).ToArray Dim both() As String = presidents.Intersect(vicePres).ToArray Dim exclusiveOr() As String = eitherOr.Except(both).ToArray IO.File.WriteAllLines("Xor.txt", exclusiveOr) MessageBox.Show(exclusiveOr.Count & " presidents or vice presidents, but not both", "File Created") End Sub

Student Solutions Manual (Page 107 of 211)

19. Dim countries() As String = IO.File.ReadAllLines("UN.txt") 'lstContinents was filled at design time Private Sub lstContinents_SelectedIndexChanged(...) Handles _ lstContinents.SelectedIndexChanged Dim selectedContinent As String = lstContinents.Text If selectedContinent = "Antarctica" Then lstCountries.DataSource = Nothing MessageBox.Show("There are no countries in Antarctica.") Else Dim query = From nation In countries Let data = nation.Split(","c) Let name = data(0) Let continent = data(1) Where continent = selectedContinent Select name lstCountries.DataSource = query.ToList lstCountries.SelectedItem = Nothing End If End Sub

21. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim cities() As String = IO.File.ReadAllLines("Cities.txt") Dim query = From city In cities Let data = city.Split(","c) Let pop2010 = CDbl(data(3)) Order By pop2010 Descending Select pop2010 Dim pops() As Double = query.ToArray ReDim Preserve pops(9) txtOutput.Text = FormatNumber(100000 * pops.Sum, 0) End Sub

Student Solutions Manual (Page 108 of 211)

23. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim states() As String = IO.File.ReadAllLines("USStates.txt") Dim query = From line In states Let name = line.Split(","c)(0).ToUpper Let abbrev = line.Split(","c)(1) Where Not name.StartsWith(abbrev) Order By name Ascending Select abbrev, name dgvOutput.DataSource = query.ToList dgvOutput.CurrentCell = Nothing dgvOutput.Columns("abbrev").HeaderText = "State Abbreviation" dgvOutput.Columns("name").HeaderText = "State" End Sub

25. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim states() As String = IO.File.ReadAllLines("USStates.txt") Dim query1 = From line In states Let area = CInt(line.Split(","c)(2)) Select area Dim totalArea = query1.Sum Dim query2 = From line In states Let name = line.Split(","c)(0) Let area = CInt(line.Split(","c)(2)) Let percentArea = FormatPercent(area / totalArea) Order By area Descending Select name, percentArea dgvOutput.DataSource = query2.ToList dgvOutput.CurrentCell = Nothing dgvOutput.Columns("name").HeaderText = "State" dgvOutput.Columns("percentArea").HeaderText = "Percentage of Total Area" End Sub

Student Solutions Manual (Page 109 of 211)

27. Private Sub btnUpdate_Click(...) Handles btnUpdate.Click Dim colors() As String = IO.File.ReadAllLines("Pre1990Colors.txt") Dim retired() As String = IO.File.ReadAllLines("RetiredColors.txt") Dim added() As String = IO.File.ReadAllLines("AddedColors.txt") Dim tempArray() As String = colors.Except(retired).ToArray Dim query = From color In tempArray.Concat(added) Order By color Select color IO.File.WriteAllLines("NewColors.txt", query) End Sub

29. Private Sub btnCreate_Click(...) Handles btnCreate.Click Dim justices() As String = IO.File.ReadAllLines("Justices.txt") Dim query = From justice In justices Let data = justice.Split(","c) Let firstName = data(0) Let secondName = data(1) Let pres = data(2) Let yrAppt = data(4) Let yrLeft = data(5) Select firstName & "," & secondName & "," & pres & "," & yrAppt & "," & yrLeft IO.File.WriteAllLines("JusticesNoState.txt", query) End Sub 31. Private Sub btnCreate_Click(...) Handles btnDisplay.Click 'query1: all states; query2: states with justices Dim states() As String = IO.File.ReadAllLines("USStates.txt") Dim justices() As String = IO.File.ReadAllLines("Justices.txt") Dim query1 = From state In states Let abbrev = state.Split(","c)(1) Select abbrev Dim query2 = From justice In justices Let state = justice.Split(","c)(3) Select state IO.File.WriteAllLines("NoJustices.txt", query1.Except(query2)) End Sub

Student Solutions Manual (Page 110 of 211)

33. Dim justices() As String = IO.File.ReadAllLines("Justices.txt") Private Sub Create_Click(...) Handles Create.Click Dim query = From line In justices Let state = line.Split(","c)(3) Order By state Ascending Select state & "," & NumberOfJustices(state) Distinct IO.File.WriteAllLines("NewFile.txt", query) End Sub Function NumberOfJustices(ByVal state As String) As Integer Dim query = From line In justices Let place = line.Split(","c)(3) Where place = state Select place Return query.Count End Function 35. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query = From state In IO.File.ReadAllLines("USStates.txt") Let data = state.Split(","c) Let name = data(0) Let abbrev = data(1) Let area = FormatNumber(data(2), 0) Let pop = FormatNumber(data(3), 0) Order By name Select name, abbrev, area, pop dgvStates.DataSource = query.ToList dgvStates.CurrentCell = Nothing End Sub

Student Solutions Manual (Page 111 of 211)

EXERCISES 8.2
1. Hello 3. Bon Jour 5. You must enter a number.

7. Error occurred.

9. File Ages.txt contains an invalid age.

11. The file Welcome.txt is created and has the following lines:
Hello Bon Jour

13. The filespec Greetings.txt should be delimited with quotation marks. 15. There should be no quotations around the variable name as the argument to the CreateText method. 17. The variable age is declared within the Try-Catch-Finally block. Therefore it has block-level scope and is not available below the line End Try.
19. Private Sub btnCreate_Click(...) Handles btnCreate.Click 'Create a text file and populate it Dim sw As IO.StreamWriter = IO.File.CreateText("Cowboy.txt") sw.WriteLine("Colt Peacemaker,12.20") sw.WriteLine("Holster,2.00") sw.WriteLine("Levi Strauss jeans,1.35") sw.WriteLine("Saddle,40.00") sw.WriteLine("Stetson,10.00") sw.Close() 'Always close the writer when finished. MessageBox.Show("The file has been created.", "Done") End Sub

21. Private Sub btnAdd_Click(...) Handles btnAdd.Click 'Append item to a text file Dim sw As IO.StreamWriter = IO.File.AppendText("Cowboy.txt") sw.WriteLine("Winchester Rifle,20.50") sw.Close() MessageBox.Show("The item has been added to the file.", "DONE") End Sub

Student Solutions Manual (Page 112 of 211)

23. Private Sub btnAdd_Click(...) Handles btnAdd.Click Dim item As String Dim price As Double Dim sr As IO.StreamReader = IO.File.OpenText("Cowboy.txt") Dim sw As IO.StreamWriter = IO.File.CreateText("Cowboy2.txt") Dim flag As Boolean = False Dim line As String = "" Dim data() As String Do While (line < txtItem.Text) And (Not sr.EndOfStream) line = sr.ReadLine data = line.Split(","c) item = data(0) price = CDbl(data(1)) If item > txtItem.Text Then sw.WriteLine(txtItem.Text & "," & FormatNumber(txtPrice.Text)) 'Set flag to True so we don't add it again at the end flag = True End If sw.WriteLine(line) Loop Do Until sr.EndOfStream line = sr.ReadLine sw.WriteLine(line) Loop If Not flag Then sw.WriteLine(txtItem.Text & "," & FormatNumber(txtPrice.Text)) End If sr.Close() sw.Close() MessageBox.Show("Item added to Cowboy2.txt") txtItem.Clear() txtPrice.Clear() End Sub

Student Solutions Manual (Page 113 of 211)

25. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim sr As IO.StreamReader = IO.File.OpenText("Cowboy.txt") Dim lines(4) As String For i As Integer = 0 To 4 lines(i) = sr.ReadLine Next Dim query = From line In lines Let data = line.Split(","c) Let item = data(0) Let cost = FormatCurrency(data(1)) Select item, cost dgvOutput.DataSource = query.ToList dgvOutput.CurrentCell = Nothing End Sub

27. Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim sr As IO.StreamReader = IO.File.OpenText("Numbers.txt") Dim counter As Integer = 0 Dim num As Double Do Until sr.EndOfStream num = CDbl(sr.ReadLine) counter += 1 Loop txtOutput.Text = CStr(counter) sr.Close() End Sub

Student Solutions Manual (Page 114 of 211)

29. Private Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim sr As IO.StreamReader = IO.File.OpenText("Numbers.txt") Dim num As Double Dim min As Double = CDbl(sr.ReadLine) Do Until sr.EndOfStream num = CDbl(sr.ReadLine) If num < min Then min = num End If Loop txtOutput.Text = CStr(min) sr.Close() End Sub

31. Private Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim sr As IO.StreamReader = IO.File.OpenText("Numbers.txt") Dim counter As Integer = 0 Dim total As Double = 0 Dim num As Double Do Until sr.EndOfStream num = CDbl(sr.ReadLine) counter += 1 total += num Loop txtOutput.Text = FormatNumber(total / counter) sr.Close() End Sub

Student Solutions Manual (Page 115 of 211)

EXERCISES 8.3 1. No 3. No 5. No 7. No 9. No

11. <?xml version='1.0'?> <!-- This file contains the ages of the presidents when inaugurated.--> <Presidents> <president> <name>George Washington</name> <ageAtInauguation>57</ageAtInauguation> </president> <president> <name>John Adams</name> <ageAtInauguation>61</ageAtInauguation> </president> </Presidents> 13. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim stateData As XElement = XElement.Load("USStates.xml") Dim query = From st In stateData.Descendants("state") Let pop = CInt(st.<population>.Value) Select pop txtOutput.Text = FormatNumber(query.Sum, 0) End Sub

15. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim stateData As XElement = XElement.Load("USStates.xml") Dim queryPop = From st In stateData.Descendants("state") Let pop = CInt(st.<population>.Value) Select pop Dim queryArea = From st In stateData.Descendants("state") Let area = CInt(st.<area>.Value) Select area txtOutput.Text = FormatNumber(queryPop.Sum / queryArea.Sum) & " people per square mile" End Sub

Student Solutions Manual (Page 116 of 211)

17. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim stateData As XElement = XElement.Load("USStates.xml") Dim query = From st In stateData.Descendants("state") Let name = st.<name>.Value Let area = CDbl(st.<area>.Value) Let formattedArea = FormatNumber(area, 0) Where area > 100000 Order By area Descending Select name, formattedArea dgvStates.DataSource = query.ToList dgvStates.CurrentCell = Nothing dgvStates.Columns("name").HeaderText = "State" dgvStates.Columns("formattedArea").HeaderText = "Area" End Sub

19. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim stateData As XElement = XElement.Load("USStates.xml") Dim query1 = From st In stateData.Descendants("state") Let name = st.<name>.Value Let numVowels = NumberOfVowels(name) Order By numVowels Descending Select numVowels Dim maxVowels As Integer = query1.First Dim query2 = From st In stateData.Descendants("state") Let name = st.<name>.Value Where NumberOfVowels(name) = maxVowels Select name lstOutput.DataSource = query2.ToList lstOutput.SelectedItem = Nothing End Sub

Student Solutions Manual (Page 117 of 211)

Function NumberOfVowels(ByVal word As String) As Integer word = word.ToUpper Dim num As Integer = 0 If word.IndexOf("A") <> -1 Then num += 1 End If If word.IndexOf("E") <> -1 Then num += 1 End If If word.IndexOf("I") <> -1 Then num += 1 End If If word.IndexOf("O") <> -1 Then num += 1 End If If word.IndexOf("U") <> -1 Then num += 1 End If Return num End Function 21. Dim colleges As XElement = XElement.Load("Colleges.xml") Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Display the colleges in Colleges.xml located in the given state Dim chosenState As String = mtbState.Text.ToUpper 'mask LL Dim query = From col In colleges.Descendants("college") Let name = col.<name>.Value Let state = col.<state>.Value Let yearFounded = col.<yearFounded>.Value Where state = chosenState Order By name Ascending Select name & " " & yearFounded lstColleges.DataSource = query.ToList lstColleges.SelectedItem = Nothing End Sub

Student Solutions Manual (Page 118 of 211)

23.Dim colleges As XElement = XElement.Load("Colleges.xml") Private Sub frmColleges_Load(...) Handles MyBase.Load 'Place the years for each college into the array schools Dim query = From col In colleges.Descendants("college") Let yearFounded = col.<yearFounded>.Value Order By yearFounded Ascending Select yearFounded Distinct lstYears.DataSource = query.ToList lstYears.SelectedItem = Nothing End Sub Private Sub lstYears_SelectedIndexChanged(...) Handles _ lstYears.SelectedIndexChanged Dim chosenYear As String = lstYears.Text Dim query = From col In colleges.Descendants("college") Let name = col.<name>.Value Let yearFounded = col.<yearFounded>.Value Where yearFounded = chosenYear Select name lstColleges.DataSource = query.ToList lstColleges.SelectedItem = Nothing End Sub

Student Solutions Manual (Page 119 of 211)

25(a). Private Sub btnSenate_Click(...) Handles btnSenate.Click Dim sr As IO.StreamReader = IO.File.OpenText("Senate111.txt") Dim sw As IO.StreamWriter = IO.File.CreateText("Senate111.xml") sw.WriteLine("<?xml version='1.0'?>") sw.WriteLine("<!-- This file contains data on the 111th Senate -->") sw.WriteLine("<Senate111>") Dim temp As String = "" Do Until sr.EndOfStream temp = sr.ReadLine sw.WriteLine(" <senator>") sw.WriteLine(" <name>" & temp.Split(","c)(0) & "</name>") sw.WriteLine(" <state>" & temp.Split(","c)(1) & "</state>") sw.WriteLine(" <party>" & temp.Split(","c)(2) & "</party>") sw.WriteLine(" </senator>") Loop sw.WriteLine("</Senate111>") sr.Close() sw.Close() MessageBox.Show("File Created") End Sub

25(b). Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim senateData As XElement = XElement.Load("Senate111.XML") Dim query = From st In senateData.Descendants("senator") Let name = st.<name>.Value Let state = st.<state>.Value Let party = st.<party>.Value Order By state, name Ascending Select name, state, party dgvSenators.DataSource = query.ToList dgvSenators.CurrentCell = Nothing dgvSenators.Columns("name").HeaderText = "Senator" dgvSenators.Columns("state").HeaderText = "State" dgvSenators.Columns("party").HeaderText = "Party Affiliation" End Sub

Student Solutions Manual (Page 120 of 211)

CHAPTER 9 EXERCISES 9.1 1. 3. 5. 7.

9.

Chopin is deleted from the list. The currently selected item in lstBox, Mozart, is deleted. The item Haydn is inserted into lstBox between Chopin and Mozart. The names in the list box will appear in descending alphabetical order.
cboBox.Text = "Dante"

11. cboBox.Items.Remove("Shakespeare") 13. cboBox.Items.RemoveAt(cboBox.Items.Count - 1) 15. Dim i As Integer = 0 Do While i < cboBox.Items.Count If CStr(cboBox.Items(i)).Substring(0, 1) = "M" Then cboBox.Items.RemoveAt(i) Else i += 1 End If Loop

Student Solutions Manual (Page 121 of 211)

17. Private Sub btnSort_Click(...) Handles btnSort.Click Dim names() As String = IO.File.ReadAllLines("PopularName.txt") lstOutput.Sorted = True lstOutput.DataSource = names lstOutput.SelectedItem = Nothing For i As Integer = 0 To lstOutput.Items.Count - 1 names(i) = CStr(lstOutput.Items(i)) Next IO.File.WriteAllLines("SortedNames.txt", names) MessageBox.Show("The ordered file has been created.", "Done") End Sub

Student Solutions Manual (Page 122 of 211)

19. Private Sub btnSort_Click(...) Handles btnSort.Click 'Assume the String Collection Editor was filled with the numbers '4, 9, 2, 11, 5, 17, 3, 6 at design time Dim n As Integer = lstBox.Items.Count - 1 Dim nums(n) As Double For i As Integer = 0 To n nums(i) = CDbl(lstBox.Items(i)) Next Dim query = From num In nums Order By num Ascending Select num lstBox.DataSource = query.ToList lstBox.SelectedItem = Nothing End Sub

Student Solutions Manual (Page 123 of 211)

21. Private Sub frmList_Load(...) Handles MyBase.Load lblCount.Text = CStr(lstOutput.Items.Count) End Sub
Private Sub btnAdd_Click(...) Handles btnAdd.Click 'Add an item above the currently selected item. Dim first(), last() As String Dim location As Integer = lstOutput.SelectedIndex Dim newItem As String = InputBox("Enter item to add to list:", _ "Add Item") If location = -1 Then 'If no item is selected, add the new item to the top of the list. ReDim first(lstOutput.Items.Count - 1) For i As Integer = 0 To lstOutput.Items.Count - 1 first(i) = CStr(lstOutput.Items(i)) Next lstOutput.Items.Clear() lstOutput.Items.Add(newItem) For i As Integer = 0 To first.Count - 1 lstOutput.Items.Add(first(i)) Next Else ReDim first(location - 1) For i As Integer = 0 To (location - 1) first(i) = CStr(lstOutput.Items(i)) Next ReDim last(lstOutput.Items.Count - location - 1) For i As Integer = 0 To (lstOutput.Items.Count - location - 1) last(i) = CStr(lstOutput.Items(location + i)) Next lstOutput.Items.Clear() For i As Integer = 0 To first.Count - 1 lstOutput.Items.Add(first(i)) Next lstOutput.Items.Add(newItem) For i As Integer = 0 To last.Count - 1 lstOutput.Items.Add(last(i)) Next End If lblCount.Text = CStr(lstOutput.Items.Count) 'Update the counter. End Sub Private Sub btnDelete_Click(...) Handles btnDelete.Click 'Delete the highlighted item. Dim location As Integer = lstOutput.SelectedIndex 'Only delete if something is selected. If location >= 0 Then lstOutput.Items.RemoveAt(location) lblCount.Text = CStr(lstOutput.Items.Count) 'Update the counter. End If End Sub

Student Solutions Manual (Page 124 of 211)

23. Dim ages() As String = IO.File.ReadAllLines("AgesAtInaugural.txt") Private Sub frmPres_Load(...) Handles MyBase.Load Dim pres() As String = IO.File.ReadAllLines("USPres.txt") lstPres.DataSource = pres End Sub Private Sub lstPres_SelectedIndexChanged(...) Handles _ lstPres.SelectedIndexChanged txtAge.Text = ages(lstPres.SelectedIndex) End Sub

9.1 Exercise 23
25. 'Note: This event procedure handles events from all three combo boxes Private Sub SelectedIndexChanged(...) Handles _ cboBrand.SelectedIndexChanged, cboMemory.SelectedIndexChanged, cboMonitor.SelectedIndexChanged 'Update output if all choices have been made. If (cboBrand.SelectedIndex >= 0) And (cboMemory.SelectedIndex >= 0) And (cboMonitor.SelectedIndex >= 0) Then txtOutput.Text = "You have a " & cboBrand.Text & " computer with " & cboMemory.Text & " of memory and a " & cboMonitor.Text & " monitor." End If End Sub

Student Solutions Manual (Page 125 of 211)

EXERCISES 9.2 1. The Tick event will be triggered every 5 seconds (5000 milliseconds). 3. The tooltip will appear one second after the cursor is hovered over a control. 5. A check mark appears in front of the mnuOrderAsc menu item. 7. The Tick event will be triggered every intVar seconds. 9. The name of one of the 44 U.S. presidents is selected at random and displayed in txtBox. 11. Two states are selected at random and displayed in the list box. 13. The contents of the Clipboard are deleted. 15. The text currently selected in txtBox, if any, is copied into the Clipboard. 17. The contents of the Clipboard are displayed in txtBox. 19. The contents of the Clipboard are assigned to the variable strVar. 21. A blue circle of radius 50 pixels will be drawn in the picture box. Its upper- leftmost point will be 20 pixels from the left side of the picture box and 30 pixels from the top side. 23. A picture of an airplane will be placed in the picture box. 25. Clicking on the arrow on either end of the scroll bar will move the button the same ("large") distance as clicking on the bar between the scroll box and an arrow.
27. Timer1.Enabled = False 29. Dim randomNum As New Random() txtBox.Text = CStr(randomNum.Next(1, 13)) 31. Dim sr As IO.StreamReader = IO.Files.ReadText("Towns.txt") Dim randomNum As New Random() Dim num As Integer = randomNum.Next(1, 26) Dim city As String For i As Integer = 1 To num city = sr.ReadLine Next txtBox.Text = city

Student Solutions Manual (Page 126 of 211)

33. Dim n As Integer = rivers.Count If n 2 Then Dim randomNum As New Random() Dim firstNumber, secondNumber As Integer firstNumber = randomNum.Next(0, n) Do secondNumber = randomNum.Next(0, n) Until secondNumber <> firstNumber lstBox.Items.Add(rivers(firstNumber)) lstBox.Items.Add(rivers(secondNumber)) Else MessageBox.Show("The array has fewer than two elements.") End If

35. Clipboard.SetText("")

37. Clipboard.SetText(txtBox.SelectedText)

39. Dim amount As Integer amount = CInt(Clipboard.GetText) 41. mnuOrderDesc.Checked = False 43. VScrollBar2.Value = VScrollBar2.Minimum

45. The menu item mnuOrderAsc is grayed out and cannot be selected.

Student Solutions Manual (Page 127 of 211)

47. Private Sub frmClock_Load(...) Handles MyBase.Load 'Load the image from the file into the picture box picBox.Image = Image.FromFile("TREES.BMP") UpdateClock() End Sub Private Sub tmrClock_Tick(...) Handles tmrClock.Tick 'When the timer ticks, update the clock. UpdateClock() End Sub Private Sub UpdateClock() 'Update the clock with the current time. Dim timeStr As String = "" 'The function Hour returns the current hour. timeStr = timeStr & FormatNumber(Hour(Now), 0) 'The function Minute() returns the current minute. timeStr &= ":" & PadZero(Minute(Now)) 'The function Second returns the current second. timeStr &= ":" & PadZero(Second(Now)) 'Set the label to the time. lblTime.Text = timeStr End Sub Function PadZero(ByVal num As Integer) As String 'Pads a one-digit number with a zero Dim result As String 'Format the number without decimal places. result = FormatNumber(num, 0) 'If the number is less than 10, add a zero. If num < 10 Then Return "0" & result Else Return result End If End Function

Student Solutions Manual (Page 128 of 211)

49. Private Sub btnSelect_Click(...) Handles btnSelect.Click 'Assume there are at least three members in the club. Dim names() As String = IO.File.ReadAllLines("Members.txt") Dim n As Integer = names.Count Dim p As Integer Dim randomNum As New Random() p = randomNum.Next(0, n) txtPresident.Text = names(p) 'Swap President with the person in the last array element. names(p) = names(n - 1) names(n - 1) = txtPresident.Text 'Choose a random person from first n-1 for Treasurer. p = randomNum.Next(0, n - 1) txtTreasurer.Text = names(p) 'Swap Treasurer with the person in the next to last array element. names(p) = names(n - 2) names(n - 2) = txtTreasurer.Text 'Choose a random person from first n-2 for Secretary. p = randomNum.Next(0, n - 2) txtSecretary.Text = names(p) End Sub

51. Dim randomNum As New Random() Private Sub btnPlay_Click(...) Handles btnPlay.Click 'Roll a pair of dice until 7 appears 1000 times. Dim die1, die2 As Integer Dim numberOfSevens As Integer = 0 Dim numberOfRolls As Integer = 0 Do 'Roll the dice die1 = randomNum.Next(1, 7) die2 = randomNum.Next(1, 7) 'If lucky 7, increment the sevens counter. If (die1 + die2) = 7 Then numberOfSevens += 1 End If numberOfRolls += 1 'Increment the rolls counter. Loop Until (numberOfSevens = 1000) 'Display the result to two decimal places. txtOutput.Text = FormatNumber(numberOfRolls / numberOfSevens, 2) End Sub

Student Solutions Manual (Page 129 of 211)

53. Private Sub btnCompute_Click(...) Handles btnCompute.Click Dim match As Boolean Dim num, i As Integer Dim people(22) As Integer Dim randomNum As New Random For k As Integer = 1 To 1000 match = False For j As Integer = 0 To 22 people(j) = randomNum.Next(1, 366) Next i = 0 Do Until i = 22 Or match For j As Integer = i + 1 To 22 If people(i) = people(j) Then match = True End If Next i += 1 Loop If match Then num += 1 End If Next txtNum.Text = CStr(num / 10) End Sub

55.

Student Solutions Manual (Page 130 of 211)

57. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Display the open file dialog box to get the file Dim fileSpec As String OpenFileDialog1.ShowDialog() fileSpec = OpenFileDialog1.FileName 'Display picture contained in the file. picBox.Image = Image.FromFile(fileSpec) End Sub

59. Private Sub tmrMoon_Tick(...) Handles tmrMoon.Tick 'Update the phase and display the image. 'Timer Interval setting is 2000; Timer Enabled setting is True phase += 1 If phase = 9 Then phase = 1 End If picBox.Image = Image.FromFile("Moon" & phase & ".bmp") End Sub

Student Solutions Manual (Page 131 of 211)

61. Private Sub tmrBall_Tick(...) Handles tmrBall.Tick 'Update the value of the scroll bar and label. 'Timer Interval setting is 1000 'vsbBall.Minimum = 0, vsbBall.Maximum = 10 count = count - 1 vsbBall.Value = 10 - count lblBall.Text = CStr(count) 'If at zero, display the message and end program. If count = 0 Then tmrBall.Enabled = False MessageBox.Show("HAPPY NEW YEAR!!!!", "NYE") Me.Close() End If End Sub

Student Solutions Manual (Page 132 of 211)

EXERCISES 9.3
1. $106.00 3. Your last name begins with K. 5. 'Form1's code Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Form2.ShowDialog() txtQuotation.Text = Form2.quotation End Sub 'Form2's code (Movies) Public quotation As String Private Sub btnProcessSelection_Click(...) Handles _ btnProcessSelection.Click If rad1.Checked Then quotation = "Plastics." End If If rad2.Checked Then quotation = "Rosebud." End If If rad3.Checked Then quotation = "That's all folks." End If Me.Close() End Sub

Student Solutions Manual (Page 133 of 211)

7. 'Code for frmMillionaire Public numberOfYrs As Integer Public Const INTEREST_RATE As Double = 0.06 Private Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim balance As Double, numYears As Integer balance = CDbl(txtAmount.Text) Do While balance < 1000000 balance += INTEREST_RATE * balance numYears += 1 Loop txtWhen.Text = "In " & numYears & " years you will have a million dollars." numberOfYrs = numYears frmBalance.ShowDialog() End Sub 'Code for frmBalance Structure Year Dim num As Integer Dim amount As Double End Structure Private Sub frmBalance_Activated(...) Handles Me.Load Dim a(frmMillionaire.numberOfYrs) As Year a(0).num = 0 a(0).amount = CDbl(frmMillionaire.txtAmount.Text) For i As Integer = 1 To a.Count - 1 a(i).num = i a(i).amount = (1 + frmMillionaire.INTEREST_RATE) * a(i - 1).amount Next Dim query = From yr In a Let Year = yr.num Let Amount = FormatCurrency(yr.amount) Select Year, Amount dgvBalance.DataSource = query.ToList dgvBalance.CurrentCell = Nothing End Sub Private Sub frmBalance_FormClosing(...) Handles Me.FormClosing frmMillionaire.txtAmount.Clear() frmMillionaire.txtWhen.Clear() frmMillionaire.txtAmount.Focus() End Sub

Student Solutions Manual (Page 134 of 211)

9. Form1's Code 'Class-level named constants and variables 'Data files that store information Const INIT_FILE As String = "Initial_Info.txt" Public Const TRANS_FILE As String = "Transactions.txt" 'Variables used for each entry Dim isCheck As Boolean Dim nameOnChk As String 'Name to appear on checks Dim lastCkNum As Integer 'Number of last check written Dim lastDpNum As Integer 'Number of last deposit slip processed Dim curBal As Double 'Current balance in account Private Sub frmAccount_Load(...) Handles MyBase.Load 'Sets the class variables from a new or existing text file InitializeData() 'Set name and balance labels lblName.Text = nameOnChk txtBalance.Text = FormatCurrency(curBal) 'Set the date field to the current date. txtDate.Text = CStr(Today) SetupCheck() ResetInput() End Sub

Student Solutions Manual (Page 135 of 211)

Private Sub InitializeData() If IO.File.Exists(INIT_FILE) Then Dim data() As String 'holds the data read from the file Dim initFileContents() As String = IO.File.ReadAllLines(INIT_FILE) 'Split the single line of the INIT_FILE using the separator data = initFileContents.First.Split(","c) 'Load the name to appear on checks, current balance, number of 'last check written and number of last deposit slip processed nameOnChk = data(0) curBal = CDbl(data(1)) lastCkNum = CInt(data(2)) lastDpNum = CInt(data(3)) 'Possibly update the values above by looking at last record of TRANS_FILE If IO.File.Exists(TRANS_FILE) Then Dim transFileContents() As String = IO.File.ReadAllLines(TRANS_FILE) data = transFileContents.Last.Split(","c) curBal = CDbl(data(2)) lastCkNum = CInt(data(3)) lastDpNum = CInt(data(4)) End If Else 'INIT_FILE does not exist, so get initial data from user Dim sw As IO.StreamWriter nameOnChk = InputBox("Name to appear on checks:") Try curBal = CDbl(InputBox("Starting Balance:")) 'Get numbers of last check and deposit slip lastCkNum = CInt(InputBox("Number of first check:")) - 1 lastDpNum = CInt(InputBox("Number of first deposit slip:")) - 1 'The single record in the text file records the name to 'appear on checks plus the initial data for account Dim outputLine As String = nameOnChk & "," & curBal & "," & lastCkNum & "," & lastDpNum sw = IO.File.CreateText(INIT_FILE) sw.WriteLine(outputLine) Catch 'If a number cannot be converted then display message and quit MessageBox.Show("Invalid number. Program terminating.", "Error") Me.Close() Finally 'Close the writer no matter what happens above sw.Close() End Try End If End Sub

Student Solutions Manual (Page 136 of 211)

Private Sub btnRecord_Click(...) Handles btnRecord.Click 'Store the input into the transactions file Dim amt As Double Dim transType As String 'Only store if all required fields are filled and valid If DataValid() Then amt = CDbl(txtAmount.Text) 'Adjust balance by amount depending on check or deposit slip mode If isCheck Then curBal = curBal - amt lastCkNum = CInt(txtNum.Text) transType = "Check" Else curBal += amt lastDpNum = CInt(txtNum.Text) transType = "Deposit" End If txtBalance.Text = FormatCurrency(curBal) 'String array contains info to be stored Dim transOutput() As String = {transType, txtToFrom.Text, CStr(curBal), CStr(lastCkNum), CStr(lastDpNum), CStr(amt), txtMemo.Text, txtDate.Text} Dim sw As IO.StreamWriter = IO.File.AppendText(TRANS_FILE) 'Append the info to the text file, separated by the separator sw.WriteLine(Join(transOutput, ",")) sw.Close() 'Reset input text boxes to blank for next entry ResetInput() End If End Sub

Student Solutions Manual (Page 137 of 211)

Function DataValid() As Boolean 'Returns True if all data are valid, or displays a message if not Dim errorMessage As String = "" 'If one of the two essential pieces of information 'is missing, assign its name to errorMessage If txtToFrom.Text.Trim = "" Then If isCheck Then errorMessage = "Pay To" Else errorMessage = "Source" End If txtToFrom.Focus() ElseIf txtAmount.Text.Trim = "" Then errorMessage = "Amount" txtAmount.Focus() End If 'If no errors yet then check syntax of the two numerical fields If errorMessage = "" Then 'Check syntax of the amount field (Double) Try If CDbl(txtAmount.Text) <= 0 Then errorMessage = "The amount must be greater than zero." txtAmount.Focus() End If Catch exc As InvalidCastException errorMessage = "The amount " & txtAmount.Text & " is invalid." txtAmount.Focus() End Try Else errorMessage = "The '" & errorMessage & "' field must be filled." End If 'Display error message if available If errorMessage = "" Then 'All required data fields have been filled; recording can proceed Return True Else 'Advise user of invalid data MessageBox.Show(errorMessage & " Please try again.") Return False End If End Function Private Sub btnMode_Click(...) Handles btnMode.Click 'Toggle mode between Check and Deposit Slip If isCheck Then SetupDeposit() Else SetupCheck() End If 'Set fields for next entry ResetInput() End Sub

Student Solutions Manual (Page 138 of 211)

Sub SetupCheck() 'Prepare form for the entry of a check isCheck = True Me.Text = "Check" 'Sets the title bar of the form lblToFrom.Text = "Pay To" btnRecord.Text = "&Record This Check" btnMode.Text = "&Switch to Deposits" Me.BackColor = Color.LightGray End Sub Sub SetupDeposit() 'Prepare form for the entry of a deposit isCheck = False Me.Text = "Deposit Slip" 'Sets the title bar of the form lblToFrom.Text = "Source" btnRecord.Text = "&Record This Deposit" btnMode.Text = "&Switch to Checks" Me.BackColor = Color.Yellow End Sub Sub ResetInput() 'Reset all text entry fields except date txtToFrom.Clear() txtAmount.Clear() txtMemo.Clear() If isCheck Then 'Make txtNum text box reflect next check number txtNum.Text = CStr(lastCkNum + 1) Else 'Make txtNum text box reflect next deposit slip number txtNum.Text = CStr(lastDpNum + 1) End If 'Set focus on to/from control for the next entry txtToFrom.Focus() End Sub Private Sub btnReport_Click(...) Handles btnReport.Click If IO.File.Exists(TRANS_FILE) Then Form2.ShowDialog() Else MessageBox.Show("There are no transactions to report.") End If End Sub

Student Solutions Manual (Page 139 of 211)

Function FormNumber(ByVal type As String, ByVal checkNumber As String, ByVal depositNumber As String) As String If type = "Check" Then Return "Check #" & checkNumber Else Return "Deposit #" & depositNumber End If End Function Private Sub btnQuit_Click(...) Handles btnQuit.Click Me.Close() 'Exit the program End Sub

Student Solutions Manual (Page 140 of 211)

Form2's Code Private Sub Form2_Load(...) Handles MyBase.Load Dim transFileContents() = IO.File.ReadAllLines(frmAccount.TRANS_FILE) Dim query = From trans In transFileContents Let data = trans.Split(","c) Let transDate = CDate(data(7)) Let number = frmAccount.FormNumber(data(0), data(3), data(4)) Let toFrom = data(1) Let Memo = data(6) Let Amount = FormatCurrency(data(5)) Let Balance = FormatCurrency(data(2)) Select transDate, number, toFrom, Memo, Amount, Balance dgvTransactions.DataSource = query.ToList dgvTransactions.Columns("transDate").HeaderText = "Transaction Date" dgvTransactions.Columns("number").HeaderText = "Description" dgvTransactions.Columns("toFrom").HeaderText = "Recipient or Source" End Sub

Student Solutions Manual (Page 141 of 211)

11. 'Form1's code (Customer) Private Sub btnGet_Click(...) Handles btnGet.Click If radBillCust.Checked Then Form2.ShowDialog() Else Form3.ShowDialog() End If End Sub 'Form2's code (Customer Info) Private Sub Form2_Load(...) Handles MyBase.Load txtName.Text = Form1.txtName.Text End Sub Private Sub btnRecord_Click(...) Handles btnRecord.Click Dim city, state, zip As String Form1.lstOutput.Items.Add("Mail bill to:") Form1.lstOutput.Items.Add(txtName.Text) Form1.lstOutput.Items.Add(txtAddress.Text) city = txtCity.Text state = cboState.Text zip = txtZip.Text Form1.lstOutput.Items.Add(city & ", " & state & " " & zip) Me.Close() End Sub 'Form3's code (Credit Card Info) Private Sub Form3_Load(...) Handles MyBase.Load Dim num As Integer = Today.Year For i As Integer = num To num + 5 cboYear.Items.Add(i) Next End Sub Private Sub btnRecord_Click(...) Handles btnRecord.Click Form1.lstOutput.Items.Add("Bill " & cboCard.Text) Form1.lstOutput.Items.Add("Name on card: " & txtName.Text) Form1.lstOutput.Items.Add("Card number: " & txtCardNumber.Text) Form1.lstOutput.Items.Add("Expiration date: " & cboMonth.Text & "/" & cboYear.Text) Me.Close() End Sub

Student Solutions Manual (Page 142 of 211)

EXERCISES 9.4
1. Private Sub btnDraw_Click(...) Handles btnDraw.Click Dim gr As Graphics = picBox.CreateGraphics Dim x As Double = picBox.Width / 2 Dim y As Double = picBox.Height / 2 Dim r As Double = x / 2 If r > y / 2 Then r = y / 2 End If gr.FillEllipse(Brushes.Black, CSng(x - r), CSng(y - r), CSng(2 * r), CSng(2 * r)) End Sub

3. Private Sub btnDraw_Click(...) Handles btnDraw.Click Dim gr As Graphics = picBox.CreateGraphics Dim x As Double = picBox.Width / 2 Dim y As Double = picBox.Height / 2 Dim r As Double = 20 gr.FillEllipse(Brushes.Red, CSng(x - r), CSng(y - r), CSng(2 * r), CSng(2 * r)) r = 19 gr.FillEllipse(Brushes.White, CSng(x - r), CSng(y - r), CSng(2 * r), CSng(2 * r)) End Sub

Student Solutions Manual (Page 143 of 211)

5. Private Sub btnCreate_Click(...) Handles btnCreate.Click Dim gr As Graphics = picFlag.CreateGraphics Dim br() As Brush = {Brushes.Green, Brushes.White, Brushes.Red} 'picFlag.Width = 149; picFlag.Height = 99 For i As Integer = 0 To 2 gr.FillRectangle(br(i), 0 + i * 50, 0, 50, 99) Next gr.DrawLine(Pens.Black, 0, 0, 148, 0) 'top border gr.DrawLine(Pens.Black, 0, 0, 0, 98) 'left border gr.DrawLine(Pens.Black, 0, 98, 148, 98) 'bottom border gr.DrawLine(Pens.Black, 148, 0, 148, 98) 'right border End Sub

9.4 Exercise 5 (Italy)

9.4 Exercise 7 (Niger)

7. Private Sub btnCreate_Click(...) Handles btnCreate.Click Dim gr As Graphics = picFlag.CreateGraphics Dim br() As Brush = {Brushes.Orange, Brushes.White, Brushes.Green} Dim r As Integer = 12 'radius of circle 'picFlag.Width = 149; picFlag.Height = 99 For i As Integer = 0 To 2 gr.FillRectangle(br(i), 0, 0 + i * 33, 149, 33) Next gr.FillPie(Brushes.Orange, 75 - r, 49 - r, 2 * r, 2 * r, 0, 360) gr.DrawLine(Pens.Black, 0, 0, 148, 0) 'top border gr.DrawLine(Pens.Black, 0, 0, 0, 98) 'left border gr.DrawLine(Pens.Black, 0, 98, 148, 98) 'bottom border gr.DrawLine(Pens.Black, 148, 0, 148, 98) 'right border End Sub

Student Solutions Manual (Page 144 of 211)

9. Private Sub btnDraw_Click(...) Handles btnDraw.Click Dim numbers As String = "" Dim gr As Graphics = picBox.CreateGraphics picBox.Refresh() Dim n As Integer = CInt(txtNumber.Text) 'Font is Microsoft Sans Serif For i As Integer = 0 To n If i < 9 Then numbers &= i & " " Else numbers &= i & " " End If gr.DrawLine(Pens.Blue, 12 + (24 * i), 5, 12 + (24 * i), 15) Next gr.DrawLine(Pens.Blue, 0, 10, 24 * (n + 1), 10) gr.DrawString(numbers, Me.Font, Brushes.Blue, 8, 20) End Sub

Student Solutions Manual (Page 145 of 211)

11. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim legend() As String = {"Soft Drinks", "Beer", "Bottled Water", "Other"} Dim quantity() As Single = {52.9, 14.7, 11.1, 21.3} Dim percent(quantity. Count - 1) As Single Dim sumOfQuantities As Single = 0 Dim sumOfSweepAngles As Single = 0 Dim br() As Brush = {Brushes.Blue, Brushes.Red, Brushes.Tan, Brushes.Green, Brushes.Orange, Brushes.Gray} Dim gr As Graphics = picOutput.CreateGraphics 'The picture box has width 312 and height 215 Dim r As Integer = 100 'Radius of circle Dim c As Integer = 105 'Center of circle is (c, c) Me.Text = "U.S. Recreational Beverage Consumption" 'Sum the numbers for the quantities For i As Integer = 0 To quantity.Count - 1 sumOfQuantities += quantity(i) Next 'Convert tbe quantities to percents For i As Integer = 0 To quantity. Count - 1 percent(i) = quantity(i) / sumOfQuantities Next 'Display the pie chart and the legends For i As Integer = 0 To quantity. Count - 1 gr.FillPie(br(i), c - r, c - r, 2 * r, 2 * r, sumOfSweepAngles, percent(i) * 360) sumOfSweepAngles += percent(i) * 360 gr.FillRectangle(br(i), 220, 20 + 30 * i, 20, 20) gr.DrawString(legend(i), Me.Font, Brushes.Black, 250, 22 + 30 * i) Next End Sub

Student Solutions Manual (Page 146 of 211)

13. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim gr As Graphics = picOutput.CreateGraphics Dim smokers() As Single = {11.6, 12.7, 10.0, 7.4, 6.4, 5.3, 4.4} gr.DrawLine(Pens.Black, 30, 100, picOutput.Width, 100) 'x-axis gr.DrawLine(Pens.Black, 30, 100, 30, 0) 'y-axis gr.DrawLine(Pens.Black, 27, 100 - 12.7 * 7, 33, 100 - 12.7 * 7) 'tick mark gr.DrawString("12.7", Me.Font, Brushes.Black, 0, 100 - 12.7 * 7 - 6) gr.DrawString("1996 1998 2000 2002 2004 2006 2008", Me.Font, Brushes.Black, 35, 102) gr.DrawString("Percentage of College Freshmen Who Smoke", Me.Font, Brushes.Blue, 30, 120) gr.DrawString("Source: Higher Education Research Institute", Me.Font, Brushes.Blue, 30, 135) For i As Integer = 0 To smokers.Count - 2 gr.DrawLine(Pens.Blue, 50 + i * 35, 100 - smokers(i) * 7, 50 + (i + 1) * 35, 100 - smokers(i + 1) * 7) Next For i As Integer = 0 To smokers.Count - 1 gr.DrawLine(Pens.Black, 50 + i * 35, 95, 50 + i * 35, 100) gr.FillEllipse(Brushes.Blue, 50 + i * 35 - 3, 100 - smokers(i) * 7 - 3, 6, 6) Next End Sub

Student Solutions Manual (Page 147 of 211)

15. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim quantity() As Single = {5.2, 5.1, 4.5, 3.8, 3.8} Dim gr As Graphics = picOutput.CreateGraphics Dim legend As String 'The picture box has width 310 and height 170 gr.DrawLine(Pens.Black, 10, 100, picOutput.Width - 10, 100) x-axis Me.Text = "Most Popular Majors" For i As Integer = 0 To quantity.Count - 1 gr.FillRectangle(Brushes.Tan, 20 + i * 60, (100 - quantity(i) * 19), 30, quantity(i) * 19) gr.DrawString(CStr(FormatNumber(quantity(i), 1) & "%"), Me.Font, Brushes.DarkBlue, 21 + i * 60, 85) Next legend = "Biology Psychology Nursing Predent Bus. Admin." gr.DrawString(legend, Me.Font, Brushes.Blue, 15, 102) legend = "(general) Premed" & " (general)" gr.DrawString(legend, Me.Font, Brushes.Blue, 12, 115) gr.DrawString("Prevet", Me.Font, Brushes.Blue, 195, 128) gr.DrawString("Most Popular Majors for College Freshmen in Fall 2008", Me.Font, Brushes.Blue, 5, 145) End Sub

Student Solutions Manual (Page 148 of 211)

17. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim legend() As String = {"Bengali", "English", "German", "Hindi", "Japanese", "Mandarin", "Portuguese", "Russian", "Spanish", "Wu"} Dim quantity() As Single = {173, 311, 96, 182, 128, 882, 179, 146, 326, 78} Dim gr As Graphics = picOutput.CreateGraphics Dim caption As String 'The picture box has width 365 and height 185 gr.DrawLine(Pens.Black, 40, 100, picOutput.Width, 100) 'x-axis gr.DrawLine(Pens.Black, 40, 100, 40, 0) 'y-axis gr.DrawLine(Pens.Black, 35, 100 - 88.2, 45, 100 - 88.2) 'tick mark gr.DrawString("882", Me.Font, Brushes.Black, 8, 100 - 88.2 - 6) Me.Text = "Principal Languages" For i As Integer = 0 To quantity.Count - 1 gr.FillRectangle(Brushes.Blue, 60 + i * 30, (100 - quantity(i) / 10), 15, quantity(i) / 10) Next For i As Integer = 0 To quantity.Count - 1 Step 2 gr.DrawLine(Pens.Black, 60 + i * 30 + 7, 100, 60 + i * 30 + 7, 110) gr.DrawString(legend(i), Me.Font, Brushes.Black, 60 + i * 30 - 21, 110) Next For i As Integer = 1 To quantity.Count - 1 Step 2 gr.DrawLine(Pens.Black, 60 + i * 30 + 7, 100, 60 + i * 30 + 7, 130) gr.DrawString(legend(i), Me.Font, Brushes.Black, 60 + i * 30 - 10, 130) Next gr.DrawString("Principal Languages of the World", Me.Font, Brushes.Blue, 90, 150) caption = "(in millions of " & Chr(34) & "first language" & Chr(34) & " speakers)" gr.DrawString(caption, Me.Font, Brushes.Blue, 90, 165) End Sub

Student Solutions Manual (Page 149 of 211)

19. Dim x As Integer = 1 Dim y As Integer = 40 Private Sub frmPlane_Load(...) Handles MyBase.Load Timer1.Enabled = True End Sub Private Sub Timer1_Tick(...) Handles Timer1.Tick If picBox.Left = Me.Width Then picBox.Left = -picBox.Width Else picBox.Left += 1 End If End Sub

Student Solutions Manual (Page 150 of 211)

21. Private Sub btnPrint_Click(...) PrintDocument1.Print() End Sub Handles btnPrint.Click

Private Sub PrintDocument1_PrintPage...) Handles _ PrintDocument1.PrintPage Dim gr As Graphics = e.Graphics Dim br() As Brush = {Brushes.Green, Brushes.White, Brushes.Red} For i As Integer = 0 To 2 gr.FillRectangle(br(i), 300 + i * 50, 200, 50, 99) Next gr.DrawLine(Pens.Black, 300, 200, 448, 200) 'top border gr.DrawLine(Pens.Black, 300, 200, 300, 298) 'left border gr.DrawLine(Pens.Black, 300, 298, 448, 298) 'bottom border gr.DrawLine(Pens.Black, 448, 200, 448, 298) 'right border End Sub Private Sub btnPreview_Click(...) Handles btnPreview.Click PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.ShowDialog() End Sub

Student Solutions Manual (Page 151 of 211)

CHAPTER 10 EXERCISES 10.1 1. (e) 3. (d) 5. (b)

7. Private Sub frmCities_Load(...) Handles MyBase.Load Me.CitiesTableAdapter.Fill(Me.MegacitiesDataSet.Cities) End Sub Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query = From city In MegacitiesDataSet.Cities Let popGrowth = (city.pop2015 - city.pop2010) / city.pop2010 Let formattedPopGrowth = FormatPercent(popGrowth) Order By popGrowth Descending Select city.name, city.country, formattedPopGrowth dgvOutput.DataSource = query.ToList dgvOutput.CurrentCell = Nothing dgvOutput.Columns("name").HeaderText = "City" dgvOutput.Columns("country").HeaderText = "Country" dgvOutput.Columns("formattedPopGrowth").HeaderText = "Projected Population Growth" End Sub

Student Solutions Manual (Page 152 of 211)

9. Private Sub frmCities_Load(...) Handles MyBase.Load Me.CitiesTableAdapter.Fill(Me.MegacitiesDataSet.Cities) End Sub Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query = From city In MegacitiesDataSet.Cities Where city.pop2015 > 20 Order By city.pop2015 Descending Select city.name lstOutput.DataSource = query.ToList lstOutput.SelectedItem = Nothing End Sub

11. Private Sub frmCities_Load(...) Handles MyBase.Load Me.CitiesTableAdapter.Fill(Me.MegacitiesDataSet.Cities) End Sub Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query1 = From city In MegacitiesDataSet.Cities Let perIncr = (city.pop2015 - city.pop2010) / city.pop2010 Order By perIncr Descending Select city.name Dim geatestCity As String = query1.First Dim query2 = From city In MegacitiesDataSet.Cities Where city.name = geatestCity Select city.name, city.country, city.pop2010, city.pop2015 dgvOutput.DataSource = query2.ToList dgvOutput.CurrentCell = Nothing dgvOutput.Columns("name").HeaderText = "City" dgvOutput.Columns("country").HeaderText = "Country" dgvOutput.Columns("pop2010").HeaderText = "Population in 2010" dgvOutput.Columns("pop2015").HeaderText = "Population in 2015" End Sub

Student Solutions Manual (Page 153 of 211)

13. Private Sub frmCities_Load(...) Handles MyBase.Load Me.CountriesTableAdapter.Fill(Me.MegacitiesDataSet.Countries) Me.CitiesTableAdapter.Fill(Me.MegacitiesDataSet.Cities) Dim query = From city In MegacitiesDataSet.Cities Select city.name lstCities.DataSource = query.ToList End Sub Private Sub lstCities_SelectedIndexChanged(...) Handles _ lstCities.SelectedIndexChanged Dim query = From city In MegacitiesDataSet.Cities Join country In MegacitiesDataSet.Countries On city.country Equals country.name Let cityPer = city.pop2010 / country.pop2010 Where city.name = lstCities.Text Select cityPer txtOutput.Text = FormatPercent(query.First) End Sub

15. Private Sub frmCities_Load(...) Handles MyBase.Load Me.CitiesTableAdapter.Fill(Me.MegacitiesDataSet.Cities) End Sub Private Sub btnCreate_Click(...) Handles btnCreate.Click Dim query = From city In MegacitiesDataSet.Cities Select city.name & "," & city.country & "," & city.pop2010 & "," & city.pop2015 IO.File.WriteAllLines("MEGACITIES.TXT", query.ToArray) MessageBox.Show("File Created") End Sub

Student Solutions Manual (Page 154 of 211)

17. Private Sub frmNations_Load(...) Handles MyBase.Load Me.NationsTableAdapter.Fill(Me.UNDataSet.Nations) Dim query = From nation In UNDataSet.Nations Order By nation.continent Ascending Select nation.continent Distinct lstContinents.DataSource = query.ToList End Sub Private Sub lstContinents_SelectedIndexChanged(...) Handles _ lstContinents.SelectedIndexChanged Dim queryPop = From nation In UNDataSet.Nations Where nation.continent = lstContinents.Text Order By nation.population Descending Select nation.name lstCountriesPop.DataSource = queryPop.ToList lstCountriesPop.SelectedItem = Nothing Dim queryArea = From nation In UNDataSet.Nations Where nation.continent = lstContinents.Text Order By nation.area Descending Select nation.name lstCountriesArea.DataSource = queryArea.ToList lstCountriesArea.SelectedItem = Nothing End Sub

Student Solutions Manual (Page 155 of 211)

19. Private Sub Form1_Load(...) Handles MyBase.Load Me.NationsTableAdapter.Fill(Me.UNDataSet.Nations) End Sub Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query = From country In UNDataSet.Nations Select country.area Dim max As Double = query.Max Dim min As Double = query.Min Dim queryOutput = From country In UNDataSet.Nations Where country.area = max Or country.area = min Order By country.area Descending Select country.name, country.continent, country.population, country.area dgvOutput.DataSource = queryOutput.ToList dgvOutput.CurrentCell = Nothing End Sub

Student Solutions Manual (Page 156 of 211)

21. Private Sub frmCurrencies_Load(...) Handles MyBase.Load Me.RatesTableAdapter.Fill(Me.ExchrateDataSet.Rates) Dim query = From money In ExchrateDataSet.Rates Order By money.dollarRate Ascending Select money.country lstCountries.DataSource = query.ToList End Sub Private Sub lstCountries_SelectedIndexChanged(...) Handles _ lstCountries.SelectedIndexChanged Dim query = From money In ExchrateDataSet.Rates Where money.country = lstCountries.Text Select money.monetaryUnit, money.dollarRate txtCurrency.Text = query.First.monetaryUnit txtRate.Text = CStr(query.First.dollarRate) End Sub

23. Private Sub frmBaseball_Load(...) Handles MyBase.Load Me.TeamsTableAdapter.Fill(Me.BaseballDataSet.Teams) Dim query = From team In BaseballDataSet.Teams Order By team.name Select team.name lstTeams.DataSource = query.ToList End Sub Private Sub lstTeams_SelectedIndexChanged(...) Handles _ lstTeams.SelectedIndexChanged Dim query = From team In BaseballDataSet.Teams Where team.name = lstTeams.Text Select team.stadium txtStadium.Text = query.First End Sub

Student Solutions Manual (Page 157 of 211)

25. Private Sub frmBaseball_Load(...) Handles MyBase.Load Me.PlayersTableAdapter.Fill(Me.BaseballDataSet.Players) End Sub Private Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim query1 = From player In BaseballDataSet.Players Order By player.hits Descending Select player.hits Dim mostHits As Double = query1.Max Dim query2 = From player In BaseballDataSet.Players Where player.hits = mostHits Select player.name lstOutput.DataSource = query2.ToList lstOutput.SelectedItem = Nothing End Sub

27. Private Sub frmBaseball_Load(...) Handles MyBase.Load Me.TeamsTableAdapter.Fill(Me.BaseballDataSet.Teams) Me.PlayersTableAdapter.Fill(Me.BaseballDataSet.Players) Dim query = From team In BaseballDataSet.Teams Order By team.name Select team.name lstTeams.DataSource = query.ToList End Sub Private Sub lstTeams_SelectedIndexChanged(...) Handles _ lstTeams.SelectedIndexChanged Dim query = From player In BaseballDataSet.Players Where player.team = lstTeams.Text Let battingAve = player.hits / player.atBats Let formattedBattingAve = FormatNumber(battingAve, 3) Order By battingAve Descending Select player.name, formattedBattingAve dgvOutput.DataSource = query.ToList dgvOutput.CurrentCell = Nothing dgvOutput.Columns("name").HeaderText = "Name" dgvOutput.Columns("formattedBattingAve").HeaderText = "Batting Average" End Sub

Student Solutions Manual (Page 158 of 211)

29. Private Sub frmBaseball_Load(...) Handles MyBase.Load Me.TeamsTableAdapter.Fill(Me.BaseballDataSet.Teams) End Sub Private Sub radAmerican_CheckedChanged(...) Handles radAmerican.CheckedChanged DisplayPlayers("American") End Sub Private Sub radNational_CheckedChanged(...) Handles radNational.CheckedChanged DisplayPlayers("National") End Sub Sub DisplayPlayers(ByVal group As String) Dim query = From team In BaseballDataSet.Teams Let battingAve = team.hits / team.atBats Let formattedBattingAve = FormatNumber(battingAve, 3) Where team.league = group Order By battingAve Descending Select team.name, formattedBattingAve dgvOutput.DataSource = query.ToList dgvOutput.CurrentCell = Nothing dgvOutput.Columns("name").HeaderText = "Team" dgvOutput.Columns("formattedBattingAve").HeaderText = "Batting Average" End Sub

Student Solutions Manual (Page 159 of 211)

31. Private Sub frmBaseball_Load(...) Handles MyBase.Load Me.TeamsTableAdapter.Fill(Me.BaseballDataSet.Teams) End Sub Private Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim query1 = From team In BaseballDataSet.Teams Where team.league = "American" Select team.hits Dim query2 = From team In BaseballDataSet.Teams Where team.league = "American" Select team.atBats txtBattingAve.Text = FormatNumber(query1.Sum / query2.Sum, 3) End Sub

33. Private Sub frmBaseball_Load(...) Handles MyBase.Load Me.TeamsTableAdapter.Fill(Me.BaseballDataSet.Teams) Me.PlayersTableAdapter.Fill(Me.BaseballDataSet.Players) End Sub Private Sub btnCount_Click(...) Handles btnCount.Click Dim query = From player In BaseballDataSet.Players Join team In BaseballDataSet.Teams On player.team Equals team.name Where team.league = "National" Select player.name txtNational.Text = FormatNumber(query.Count, 0) End Sub

Student Solutions Manual (Page 160 of 211)

35. Private Sub frmBaseball_Load(...) Handles MyBase.Load Me.TeamsTableAdapter.Fill(Me.BaseballDataSet.Teams) Me.PlayersTableAdapter.Fill(Me.BaseballDataSet.Players) Dim query = From team In BaseballDataSet.Teams Order By team.name Select team.name lstTeams.DataSource = query.ToList End Sub Private Sub lstTeams_SelectedIndexChanged(...) Handles _ lstTeams.SelectedIndexChanged Dim query = From player In BaseballDataSet.Players Join team In BaseballDataSet.Teams On player.team Equals team.name Let playerBattingAve = player.hits / player.atBats Let teamBattingAve = team.hits / team.atBats Where team.name = lstTeams.Text And playerBattingAve > teamBattingAve Order By playerBattingAve Descending Select player.name lstPlayers.DataSource = query.ToList lstPlayers.SelectedItem = Nothing End Sub

Student Solutions Manual (Page 161 of 211)

37. Private Sub frmBaseball_Load(...) Handles MyBase.Load Me.TeamsTableAdapter.Fill(Me.BaseballDataSet.Teams) Me.PlayersTableAdapter.Fill(Me.BaseballDataSet.Players) End Sub Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim query1 = From player In BaseballDataSet.Players Join team In BaseballDataSet.Teams On player.team Equals team.name Where team.league = "National" And player.atBats > 100 Let playerBattingAve = player.hits / player.atBats Select playerBattingAve Dim highestAve As Double = query1.Max Dim query2 = From player In BaseballDataSet.Players Join team In BaseballDataSet.Teams On player.team Equals team.name Let playerBattingAve = player.hits / player.atBats Where team.league = "National" And playerBattingAve = highestAve Select player.name lstPlayers.DataSource = query2.ToList lstPlayers.SelectedItem = Nothing End Sub

39.

film

Student Solutions Manual (Page 162 of 211)

41. Private Sub frmMovies_Load(...) Handles MyBase.Load Me.LinesTableAdapter.Fill(Me.MoviesDataSet.Lines) Me.ActorsTableAdapter.Fill(Me.MoviesDataSet.Actors) Dim query = From line In MoviesDataSet.Lines Select line.film Distinct lstFilms.DataSource = query.ToList End Sub Private Sub lstFilms_SelectedIndexChanged(...) Handles _ lstFilms.SelectedIndexChanged Dim query = From line In MoviesDataSet.Lines Join flick In MoviesDataSet.Actors On line.film Equals flick.film Where line.film = lstFilms.Text Select flick.maleLead txtLead.Text = query.First End Sub

Student Solutions Manual (Page 163 of 211)

43. Private Sub frmFilms_Load(...) Handles MyBase.Load Me.LinesTableAdapter.Fill(Me.MoviesDataSet.Lines) Me.ActorsTableAdapter.Fill(Me.MoviesDataSet.Actors) Dim query = From flick In MoviesDataSet.Actors Select flick.maleLead Distinct lstActors.DataSource = query.ToList End Sub Private Sub lstFilms_SelectedIndexChanged(...) Handles _ lstActors.SelectedIndexChanged Dim query = From line In MoviesDataSet.Lines Join flick In MoviesDataSet.Actors On line.film Equals flick.film Where flick.maleLead = lstActors.Text Select line.famousLine lstLines.DataSource = query.ToList lstLines.SelectedItem = Nothing End Sub

Student Solutions Manual (Page 164 of 211)

EXERCISES 10.2 7. Add a record to the Cities table whose name field is empty or contains the same name as an already existing record.
9. (BindingSource1.Find("name", strVar) = 0) And (strVar <> "Bombay")

11. Create a control named BindingSource2 that has the Countries table as its DataMember.
Private Sub CountryTextBox_Leave(...) Handles _ CountryTextBox.Leave, BindingNavigator1.Click BindingSource2.Position = BindingSource2.Find("name", CountryTextBox.Text) If (CountryTextBox.Text <> "") And (BindingSource2.Position = 0) And (CountryTextBox.Text <> "Argentina") Then MessageBox.Show("Not a valid country.", "ERROR") CountryTextBox.Focus() End If End Sub 13. Private Sub frmMovies_Load(...) Handles MyBase.Load Me.LinesTableAdapter.Fill(Me.MoviesDataSet.Lines) End Sub Private Sub btnUpdate_Click(...) Handles btnUpdate.Click 'These two lines update the database file on the hard drive. BindingSource1.EndEdit() LinesTableAdapter.Update(MoviesDataSet.Lines) End Sub

17. Apollo 13 does not appear in the key field of the Actors table. Thus the Rule of Referential Integrity would be violated. 19. Replace the table with two tables. The first table should contain the fields name, address, and city. The second table should contain the fields city, state, and stateCapital. 21. Write a program similar to the one in Example 1, but using the database Justices accdb. Then use the program to update the database.

Student Solutions Manual (Page 165 of 211)

CHAPTER 11 EXERCISES 11.1 1. Any negative grade will be recorded as 0 and any grade greater than 100 will be recorded as 100. 3. Remove the keyword WriteOnly from the Midterm property block and add the following Get property procedure to it:
Get Return m_midterm End Get

5. The properties Midterm and Final are write only. 7. The property SocSecNum is initialized to the value 999-99-9999. 9. The keyword New is missing from the third line of the event procedure. 11. The statement nom = m_name is not valid. m_name would need to be Public and referred to by scholar.m_name. 13. The statements pupil.Midterm = scholar.Midterm and lstGrades.Items.Add(pupil.Midterm) are not valid. The Midterm property is write only; it can be set, but cannot return a value.
15. Country: Canada Capital: Ottawa Pop: 31 million

Student Solutions Manual (Page 166 of 211) 17. Change 20 to 20 in the btnMove_Click event procedure, and create a frmCircle_Load event procedure with the following lines,
round.Xcoord = picCircle.Width - 40 round.Ycoord = picCircle.Height - 40

Student Solutions Manual (Page 167 of 211)

19. Class Square Private m_length, m_perimeter, m_area As Double Public Property Length() As Double Get Return m_length End Get Set(ByVal value As Double) m_length = value m_perimeter = value * 4 m_area = value * value End Set End Property Public Property Perimeter() As Double Get Return m_perimeter End Get Set(ByVal value As Double) m_perimeter = value m_length = value / 4 m_area = value * value / 16 End Set End Property Public Property Area() As Double Get Return m_area End Get Set(ByVal value As Double) m_area = value m_length = Math.Sqrt(value) m_perimeter = Math.Sqrt(value) * 4 End Set End Property End Class 'Square

Student Solutions Manual (Page 168 of 211)

21. Class PairOfDice Private m_die1, m_die2 As Integer Dim randomNum As New Random() Public ReadOnly Property Die1() As Integer Get Return m_die1 End Get End Property Public ReadOnly Property Die2() As Integer Get Return m_die2 End Get End Property Public ReadOnly Property SumOfFaces() As Integer Get Return m_die1 + m_die2 End Get End Property Sub Roll() m_die1 = randomNum.Next(1, 7) m_die2 = randomNum.Next(1, 7) End Sub End Class 'PairOfDice

Student Solutions Manual (Page 169 of 211)

23. Class College Private m_name As String Private m_students, m_faculty As Double Public WriteOnly Property Name() As String Set(ByVal Value As String) m_name = Value End Set End Property Public WriteOnly Property NumStudents() As Double Set(ByVal Value As Double) m_students = Value End Set End Property Public WriteOnly Property NumFaculty() As Double Set(ByVal Value As Double) m_faculty = Value End Set End Property Function SFRatio() As Double Return m_students / m_faculty End Function End Class 'College

Student Solutions Manual (Page 170 of 211)

25. Public Class frmCashRegister Dim register As New CashRegister() Private Sub btnAdd_Click(...) Handles btnAdd.Click 'Add an amount to the balance. register.Add(CDbl(txtAmount.Text)) txtBalance.Text = FormatCurrency(register.Balance) txtAmount.Clear() txtAmount.Focus() End Sub Private Sub btnSubtract_Click(...) Handles btnSubtract.Click 'Subtract an amount from the balance. register.Subtract(CDbl(txtAmount.Text)) txtBalance.Text = FormatCurrency(register.Balance) txtAmount.Clear() txtAmount.Focus() End Sub End Class 'frmCashRegister Class CashRegister Private m_balance As Double Public ReadOnly Property Balance() As Double Get Return m_balance End Get End Property Sub Add(ByVal amount As Double) If (m_balance + amount) >= 0 Then 'Ensure balance stays nonnegative m_balance += amount End If End Sub Sub Subtract(ByVal amount As Double) If (m_balance - amount) >= 0 Then 'Ensure balance stays nonnegative m_balance = m_balance - amount End If End Sub End Class 'CashRegister

Student Solutions Manual (Page 171 of 211)

27. Public Class frmFICA Private Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim tax As New FICA() tax.PreviousEarnings = CDbl(txtToDate.Text) tax.CurrentEarnings = CDbl(txtCurrent.Text) txtTax.Text = FormatCurrency(tax.CalculateFICA) End Sub End Class 'frmFICA Class FICA 'Member variables store property values. Private m_previousEarnings As Double 'Previous year-to-date earnings Private m_currentEarnings As Double Public WriteOnly Property PreviousEarnings() As Double Set(ByVal Value As Double) m_previousEarnings = Value End Set End Property Public WriteOnly Property CurrentEarnings() As Double Set(ByVal Value As Double) m_currentEarnings = Value End Set End Property Function CalculateFICA() As Double 'Calculate Social Security benefits tax and Medicare tax 'for a single pay period in 2009. Dim socialSecurityBenTax, medicareTax As Double If (m_previousEarnings + m_currentEarnings) <= 106800 Then socialSecurityBenTax = 0.062 * m_currentEarnings ElseIf m_previousEarnings < 106800 Then socialSecurityBenTax = 0.062 * (106800 - m_previousEarnings) End If medicareTax = 0.0145 * m_currentEarnings Return socialSecurityBenTax + medicareTax End Function End Class 'FICA

Student Solutions Manual (Page 172 of 211)

EXERCISES 11.2
1. Sub btnDisplay_Click(...) Handles btnDisplay.Click ReDim Preserve students(lastStudentAdded) Dim query = From pupil In students Let name = pupil.Name Let ssn = pupil.SocSecNum Let semGrade = pupil.CalcSemGrade Where semGrade = "A" Select pupil.Name, pupil.SocSecNum, pupil.CalcSemGrade dgvGrades.DataSource = query.ToList dgvGrades.CurrentCell = Nothing dgvGrades.Columns("Name").HeaderText = "Student Name" dgvGrades.Columns("SocSecNum").HeaderText = "SSN" dgvGrades.Columns("CalcSemGrade").HeaderText = "Grade" ReDim Preserve students(50) txtName.Focus() End Sub

Student Solutions Manual (Page 173 of 211)

3. Public Class frmStates Dim states(49) As State 'Holds the state's data Private Sub frmStates_Load(...) Handles MyBase.Load 'Load the data file into the array Dim usstates() As String = IO.File.ReadAllLines("UnitedStates.txt") Dim data() As String For i As Integer = 0 To 49 data = usstates(i).Split(","c) states(i) = New State(data(0), data(1), CDate(data(2)), CDbl(data(3)), CDbl(data(4))) Next End Sub Private Sub btnLookup_Click(...) Handles btnLookup.Click 'Look up name in the array and return the state information. Dim nm As String Dim i As Integer = 0 'Get name of state from message box nm = InputBox("Name of state:", "Enter state's name").ToUpper 'Clear the output text boxes txtName.Clear() txtAbbr.Clear() txtDensity.Clear() txtEntered.Clear() Dim query = From state In states Where state.Name.ToUpper = nm.ToUpper Select state.Name, state.Abbreviation, state.Density, state.Entered txtName.Text = query.First.Name txtAbbr.Text = query.First.Abbreviation txtDensity.Text = FormatNumber(query.First.Density, 1) txtEntered.Text = FormatDateTime(query.First.Entered, DateFormat.LongDate) End Sub End Class 'frmStates Class State Private m_name, m_abbr As String Private m_entered As Date Private m_area As Double Public ReadOnly Property Name() As String Get Return m_name End Get End Property Public ReadOnly Property Abbreviation() As String Get Return m_abbr End Get End Property

Student Solutions Manual (Page 174 of 211)

Public ReadOnly Property Entered() As Date Get Return m_entered End Get End Property Public ReadOnly Property Area() As Double Get Return m_area End Get End Property Public Property Population() As Double Sub New(ByVal n As String, ByVal a As String, ByVal e As Date, ByVal ar As Double, ByVal p As Double) 'Store parameters into member variables m_name = n m_abbr = a m_entered = e m_area = ar _Population = p End Sub Function Density() As Double 'Density is calculated as population divided by area. Return _Population / m_area End Function End Class 'State

Student Solutions Manual (Page 175 of 211)

5. Public Class frmStates Dim WithEvents usa As New UnitedStates() Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Load the data file into the array. Dim sr As IO.StreamReader = IO.File.OpenText("UnitedStates.txt") For i As Integer = 0 To 49 'Add each state to the USA object Dim data() As String = Split(sr.ReadLine, ","c) usa.Add(New State(data(0), data(1), CDate(data(2)), CDbl(data(3)), CDbl(data(4)))) Next sr.Close() End Sub Sub Populous(ByVal name As String, ByVal population As Double) Handles usa.Populous 'Display the populous states and their populations in the list box. lstOutput.Items.Add(name & ": " & FormatNumber(population, 0)) End Sub End Class 'frmStates Class UnitedStates Dim states(49) As State 'Holds the state data Dim count As Integer 'Last stored state 'The event contains the state's name and population Public Event Populous(ByVal name As String, ByVal population As Double) Sub Add(ByVal state As State) 'Add the state to the array states(count) = state count += 1 'If the state's population is large then raise an event If state.Population > 10000000 Then RaiseEvent Populous(state.Name, state.Population) End If End Sub End Class 'UnitedStates Class State Private m_name, m_abbr As String Private m_entered As Date Private m_area As Double Public ReadOnly Property Name() As String Get Return m_name End Get End Property Public ReadOnly Property Abbreviation() As String Get Return m_abbr End Get End Property

Student Solutions Manual (Page 176 of 211)

Public ReadOnly Property Entered() As Date Get Return m_entered End Get End Property Public ReadOnly Property Area() As Double Get Return m_area End Get End Property Public Property Population() As Double Sub New(ByVal n As String, ByVal a As String, ByVal e As Date, ByVal ar As Double, ByVal p As Double) 'Store parameters into member variables m_name = n m_abbr = a m_entered = e m_area = ar _Population = p End Sub Function Density() As Double 'Density is calculated as population divided by area. Return _Population / m_area End Function End Class 'State

7. Public Class frmCashRegister Dim WithEvents register As New CashRegister() Private Sub btnAdd_Click(...) Handles btnAdd.Click 'Add an amount to the balance. register.Add(CDbl(txtAmount.Text)) txtBalance.Text = FormatCurrency(register.Balance) txtAmount.Clear() txtAmount.Focus() End Sub

Student Solutions Manual (Page 177 of 211)

Private Sub btnSubtract_Click(...) Handles btnSubtract.Click 'Subtract an amount from the balance. register.Subtract(CDbl(txtAmount.Text)) txtBalance.Text = FormatCurrency(register.Balance) txtAmount.Clear() txtAmount.Focus() End Sub Private Sub AttemptToOverdraw(ByVal amt As Double) Handles _ register.AttemptToOverdraw MessageBox.Show("You would have been overdrawn by " & FormatCurrency(amt) & ".", "Withdrawal Denied") End Sub End Class 'frmCashRegister Class CashRegister Private m_balance As Double Public Event AttemptToOverdraw(ByVal amt As Double) Public ReadOnly Property Balance() As Double Get Return m_balance End Get End Property Sub Add(ByVal amount As Double) If (m_balance + amount) >= 0 Then 'Ensure balance stays nonnegative m_balance += amount Else RaiseEvent AttemptToOverdraw(amount + m_balance) End If End Sub Sub Subtract(ByVal amount As Double) If (m_balance - amount) >= 0 Then 'Ensure balance stays nonnegative m_balance = m_balance - amount Else RaiseEvent AttemptToOverdraw(amount - m_balance) End If End Sub End Class 'CashRegister

Student Solutions Manual (Page 178 of 211)

9. Public Class frmAdd Dim WithEvents x As New Fraction() Dim WithEvents y As New Fraction() Dim WithEvents z As New Fraction()

'Left fraction 'Middle fraction 'Right fraction

Private Sub btnResult_Click(...) Handles btnResult.Click 'Add the x and y fractions to get the z fraction. 'Store the input into the x and y fractions. x.Num = CInt(txtNumX.Text) x.Den = CInt(txtDenX.Text) y.Num = CInt(txtNumY.Text) y.Den = CInt(txtDenY.Text) 'Add the two fractions. z.Num = (x.Num * y.Den) + (y.Num * x.Den) z.Den = x.Den * y.Den 'Reduce and display the result. z.Reduce() txtNumZ.Text = CStr(z.Num) txtDenZ.Text = CStr(z.Den) End Sub Sub fraction_ZeroDenominator() Handles x.ZeroDenominator, _ y.ZeroDenominator 'If x or y has a zero denominator, display an error message. Dim message As String = "You cannot set a denominator to zero. " & "All such denominators will be replaced by 1." MessageBox.Show(message) If txtDenX.Text = "0" Then txtDenX.Text = CStr(1) x.Den = 1 End If If txtDenY.Text = "0" Then txtDenY.Text = CStr(1) y.Den = 1 End If End Sub End Class 'frmAdd

Student Solutions Manual (Page 179 of 211)

Class Fraction Private m_den As Double = 1

'Denominator set to default value

Public Event ZeroDenominator() Public Property Num() As Double Public Property Den() As Double Get Return m_den End Get Set(ByVal Value As Double) 'Raise the event if zero If Value = 0 Then RaiseEvent ZeroDenominator() Else m_den = Value End If End Set End Property Sub Reduce() Dim t As Double Dim m As Double = Num Dim n As Double = m_den 'Algorithm to calculate greatest common divisor of m and n. 'After the loop terminates, the value of m will be the GCD. Do While (n <> 0) t = n n = m Mod n m = t Loop 'Divide both numerator and denominator by greatest common divisor. If m <> 0 Then Num = Num / m m_den = m_den / m End If End Sub End Class 'Fraction

Student Solutions Manual (Page 180 of 211)

11. Public Class frmDice Dim game As New HighRoller() Private Sub btnPlay_Click(...) Handles btnPlay.Click 'Play the game. game.Play() 'Display the throws. Randomize() txt1Die1.Text = CStr(game.First.Die1) txt1Die2.Text = CStr(game.First.Die2) txt2Die1.Text = CStr(game.Second.Die1) txt2Die2.Text = CStr(game.Second.Die2) 'Display the results Select Case game.First.SumOfFaces Case game.Second.SumOfFaces txtOutput.Text = "Tie." Case Is > game.Second.SumOfFaces txtOutput.Text = "Player 1 wins." Case Else txtOutput.Text = "Player 2 wins." End Select End Sub End Class 'frmDice Class HighRoller Private m_first As PairOfDice Private m_second As PairOfDice 'First player 'Second player

Public Sub New() m_first = New PairOfDice() 'The time is used to determine how the sequence of random numbers 'will be generated. The For...Next loop below guarantees that the 'two random number generators will act differently. Without the 'For...Next loop, often the two rolls will be identical. For i As Integer = 1 To 10000000 Next Second = New PairOfDice() End Sub Public ReadOnly Property First() As PairOfDice Get Return m_first End Get End Property Public Property Second() As PairOfDice Get Return m_second End Get Set(ByVal value As PairOfDice) m_second = value End Set End Property

Student Solutions Manual (Page 181 of 211)

Sub Play() 'Roll both pairs of dice. m_first.Roll() m_second.Roll() End Sub End Class 'HighRoller Class PairOfDice Private m_die1, m_die2 As Integer Dim randomNum As New Random() 'Random number generator Public ReadOnly Property Die1() As Integer Get Return m_die1 End Get End Property Public ReadOnly Property Die2() As Integer Get Return m_die2 End Get End Property Public ReadOnly Property SumOfFaces() As Integer Get Return m_die1 + m_die2 End Get End Property Sub Roll() 'Get random numbers between 1 through 6 inclusive. m_die1 = randomNum.Next(1, 7) m_die2 = randomNum.Next(1, 7) End Sub End Class 'PairOfDice

Student Solutions Manual (Page 182 of 211)

13. Public Class frmPayroll Dim emp As New Employee() Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Read input and display paycheck receipt Dim wages, takeHome As Double 'Store input into properties emp.Name = txtName.Text emp.Hours = CDbl(txtHours.Text) emp.Salary = CDbl(txtSalary.Text) emp.YearToDate = CDbl(txtYtd.Text) emp.Withhold = CInt(txtWithhold.Text) emp.Married = radMarried.Checked 'Calculate take-home pay. wages = emp.Hours * emp.Salary takeHome = wages - emp.FICA - emp.Withholding 'Display paycheck receipt. lstOutput.Items.Clear() lstOutput.Items.Add("Name: " & emp.Name) lstOutput.Items.Add("Weekly Wages: " & FormatCurrency(wages)) lstOutput.Items.Add("Year-to-Date Wages: " & FormatCurrency(emp.YearToDate + wages)) lstOutput.Items.Add("FICA tax deduction: " & FormatCurrency(emp.FICA)) lstOutput.Items.Add("Withholding tax deduction: " & FormatCurrency(emp.Withholding)) lstOutput.Items.Add("Take-home Pay: " & FormatCurrency(takeHome)) End Sub End Class 'frmPayroll Class Employee Private m_hours As Double Private m_salary As Double Dim tax As New Tax() 'Represents the tax for this employee

Public Property Name() As String Public Property Hours() As Double Get Return m_hours End Get Set(ByVal Value As Double) m_hours = Value 'Update the tax property also tax.Wages = m_hours * m_salary End Set End Property

Student Solutions Manual (Page 183 of 211)

Public Property Salary() As Double Get Return m_salary End Get Set(ByVal Value As Double) m_salary = Value 'Update the tax property also tax.Wages = m_hours * m_salary End Set End Property Public Property YearToDate() As Double Get 'Return the tax property Return tax.YearToDate End Get Set(ByVal Value As Double) 'Update the tax property tax.YearToDate = Value End Set End Property Public Property Withhold() As Integer Get 'Return the tax property Return tax.Withhold End Get Set(ByVal Value As Integer) 'Update the tax property tax.Withhold = Value End Set End Property Public Property Married() As Boolean Get 'Return the tax property Return tax.Married End Get Set(ByVal Value As Boolean) 'Update the tax property tax.Married = Value End Set End Property Function FICA() As Double 'Return the tax property Return tax.FICA End Function Function Withholding() As Double 'Return the tax property Return tax.Withholding End Function End Class 'Employee

Student Solutions Manual (Page 184 of 211)

Class Tax Public Public Public Public Property Property Property Property Wages() As Double YearToDate() As Double Withhold() As Integer Married() As Boolean

Function FICA() As Double 'Calculate Social Security benefits tax and Medicare tax 'for a single pay period in 2009 Dim socialSecurityBenTax, medicare As Double If (YearToDate + Wages) <= 106800 Then socialSecurityBenTax = 0.062 * Wages ElseIf YearToDate < 106800 Then socialSecurityBenTax = 0.062 * (106800 - YearToDate) End If medicare = 0.0145 * Wages 'Return the sum Return socialSecurityBenTax + medicare End Function Function Withholding() As Double Dim adjPay As Double = Wages - (70.19 * Withhold) 'Subtract exemptions If Married Then Select Case adjPay Case Is <= 303 Return 0 Case Is <= 470 Return (adjPay - 303) * 0.1 Case Is <= 1455 Return (adjPay - 470) * 0.15 + 16.7 Case Is <= 2272 Return ((adjPay - 1455) * 0.25) + 163.45 Case Is <= 4165 Return ((adjPay - 2272) * 0.28) + 368.7 Case Is <= 7021 Return ((adjPay - 4165) * 0.33) + 898.74 Case Else Return ((adjPay - 7321) * 0.35) + 1940.22 End Select

Student Solutions Manual (Page 185 of 211)

Else 'Withholding table for single earners Select Case adjPay Case Is <= 138 Return 0 Case Is <= 200 Return (adjPay - 138) * 0.1 Case Is <= 696 Return (adjPay - 200) * 0.15 + 6.2 Case Is <= 1279 Return ((adjPay - 696) * 0.25) + 80.6 Case Is <= 3338 Return ((adjPay - 1279) * 0.28) + 226.35 Case Is <= 7212 Return ((adjPay - 3338) * 0.33) + 802.87 Case Else Return ((adjPay - 7212) * 0.35) + 2081.29 End Select End If End Function End Class 'Tax

Student Solutions Manual (Page 186 of 211)

EXERCISES 11.3 1. 4 3. 64 5. Can move Has jointed limbs and no backbone

7. The keyword Overrides should be Inherits. 9. The Hi function should be declared with the Overridable keyword in class Hello and with the keyword Overrides keyword in class Aussie. 11. The Hi function should be declared with the Overrides keyword in class Cowboy. 13. The Hello class should be declared with the MustInherit keyword, and the function Hi should be declared with the MustOverride keyword. 15. The Hello class should be declared with the MustInherit keyword, not MustOverride.
17. Public Class frmCalculator 'Create the machines Dim adder As New AddingMachine() Dim calc As New Calculator() Dim sci As New ScientificCalculator() Private Sub radAddingMachine_CheckedChanged(...) Handles _ radAddingMachine.CheckedChanged 'Hide the multiply, divide and exponentiation 'functionality if checked If radAddingMachine.Checked Then btnMultiply.Visible = False btnDivide.Visible = False btnExponentiation.Visible = False End If End Sub Private Sub radCalculator_CheckedChanged(...) Handles _ radCalculator.CheckedChanged 'Show the multiply and divide functionality, 'hide the exponentiation if checked If radCalculator.Checked Then btnMultiply.Visible = True btnDivide.Visible = True btnExponentiation.Visible = False End If End Sub

Student Solutions Manual (Page 187 of 211)

Private Sub radScientific_CheckedChanged(...) Handles _ radScientific.CheckedChanged 'Show the multiply, divide and exponentiation 'functionality if checked If radScientific.Checked Then btnMultiply.Visible = True btnDivide.Visible = True btnExponentiation.Visible = True End If End Sub Private Sub btnAdd_Click(...) Handles btnAdd.Click 'Add two numbers If radAddingMachine.Checked Then 'If adding machine selected, use it to get the result adder.num1 = CDbl(txtNumber1.Text) adder.num2 = CDbl(txtNumber2.Text) txtResult.Text = CStr(adder.Add()) ElseIf radCalculator.Checked Then 'If calculator selected, use it to get the result calc.num1 = CDbl(txtNumber1.Text) calc.num2 = CDbl(txtNumber2.Text) txtResult.Text = CStr(calc.Add()) Else 'If scientific calculator selected, use it to get the result sci.num1 = CDbl(txtNumber1.Text) sci.num2 = CDbl(txtNumber2.Text) txtResult.Text = CStr(sci.Add()) End If End Sub Private Sub btnSubtract_Click(...) Handles btnSubtract.Click If radAddingMachine.Checked Then 'If adding machine selected, use it to get the result adder.num1 = CDbl(txtNumber1.Text) adder.num2 = CDbl(txtNumber2.Text) txtResult.Text = CStr(adder.Subtract()) ElseIf radCalculator.Checked Then 'If calculator selected, use it to get the result calc.num1 = CDbl(txtNumber1.Text) calc.num2 = CDbl(txtNumber2.Text) txtResult.Text = CStr(calc.Subtract()) Else 'If scientific calculator selected, use it to get the result sci.num1 = CDbl(txtNumber1.Text) sci.num2 = CDbl(txtNumber2.Text) txtResult.Text = CStr(sci.Subtract()) End If End Sub

Student Solutions Manual (Page 188 of 211)

Private Sub btnMultiply_Click(...) Handles btnMultiply.Click If radCalculator.Checked Then 'If calculator selected, use it to get the result. calc.num1 = CDbl(txtNumber1.Text) calc.num2 = CDbl(txtNumber2.Text) txtResult.Text = CStr(calc.Multiply()) Else 'If scientific calculator selected, use it to get the result. sci.num1 = CDbl(txtNumber1.Text) sci.num2 = CDbl(txtNumber2.Text) txtResult.Text = CStr(sci.Multiply()) End If End Sub Private Sub btnDivide_Click(...) Handles btnDivide.Click If radCalculator.Checked Then 'If calculator selected, use it to get the result. calc.num1 = CDbl(txtNumber1.Text) calc.num2 = CDbl(txtNumber2.Text) txtResult.Text = CStr(calc.Divide()) Else 'If scientific calculator selected, use it to get the result sci.num1 = CDbl(txtNumber1.Text) sci.num2 = CDbl(txtNumber2.Text) txtResult.Text = CStr(sci.Divide()) End If End Sub Private Sub btnExponentiation_Click(...) Handles _ btnExponentiation.Click sci.num1 = CDbl(txtNumber1.Text) sci.num2 = CDbl(txtNumber2.Text) txtResult.Text = CStr(sci.Exponentiation()) End Sub End Class 'frmCalculator Class AddingMachine Property num1() As Double Property num2() As Double Function Add() As Double 'Add the two number Return num1 + num2 End Function Function Subtract() As Double 'Subtract the two number Return num1 - num2 End Function End Class 'AddingMachine

Student Solutions Manual (Page 189 of 211)

Class Calculator Inherits AddingMachine 'Calculator inherits properties num1 and num2 'and functions add() and subtract(). Function Multiply() As Double 'Multiply the two number Return num1 * num2 End Function Function Divide() As Double 'Divide the two number Return num1 / num2 End Function End Class 'Calculator Class ScientificCalculator Inherits Calculator 'ScientificCalculator inherits properties num1 and num2 'and methods Add(), Subtract(), Multiply, and Divide. Function Exponentiation() As Double 'Raise the first number by the second Return num1 ^ num2 End Function End Class 'ScientificCalculator

Student Solutions Manual (Page 190 of 211)

19. Public Class frmRegister Dim tollBooth As New FastTrackRegister() Private Sub btnProcess_Click(...) Handles btnProcess.Click If radCar.Checked Then tollBooth.ProcessCar() Else tollBooth.ProcessTruck() End If txtRevenue.Text = FormatCurrency(tollBooth.Balance) txtNumVehicles.Text = CStr(tollBooth.Count) End Sub End Class 'frmRegister Class CashRegister Private m_balance As Double Sub Deposit(ByVal amount As Double) m_balance += amount End Sub Sub WithDrawal(ByVal amount As Double) m_balance = m_balance - amount End Sub Public ReadOnly Property Balance() As Double Get Return m_balance End Get End Property End Class 'CashRegister Class FastTrackRegister Inherits CashRegister Private m_count As Integer Public ReadOnly Property Count() As Integer Get Return m_count End Get End Property Sub ProcessCar() m_count += 1 Deposit(1) End Sub 'Process a car: $1.00

Sub ProcessTruck() m_count += 1 'Process a truck: $2.00 Deposit(2) End Sub End Class 'FastTrackRegister

Student Solutions Manual (Page 191 of 211)

11.3 Exercise 21
21. Public Class frmBookstore Dim books(10) As Book Dim count As Integer 'Stores books 'Last stored book

Private Sub btnOrder_Click(...) Handles btnOrder.Click 'Create appropriate book object Dim book As Book If radTextbook.Checked Then book = New Textbook() Else book = New Tradebook() End If 'Store the values into the book object book.Name = txtName.Text book.Cost = CDbl(txtCost.Text) book.Quantity = CInt(txtQuantity.Text) 'Increment counter and store book into array books(count) = book count += 1 'Reset input fields and focus on the quantity txtName.Clear() txtCost.Clear() txtQuantity.Text = "" txtQuantity.Focus() End Sub

Student Solutions Manual (Page 192 of 211)

Private Sub btnInventory_Click(...) Handles btnInventory.Click 'Display inventory of books Dim num As Integer = 0 Dim textb As Integer = 0 Dim cost As Double = 0 Dim value As Double = 0 'Aggregate totals For i As Integer = 0 To count - 1 cost += books(i).Quantity * books(i).Cost value += books(i).Quantity * books(i).Price num += books(i).Quantity 'Count textbooks If TypeOf books(i) Is Textbook Then textb += books(i).Quantity End If Next 'Display totals lstInventory.Items.Clear() lstInventory.Items.Add("Total cost: " & FormatCurrency(cost)) lstInventory.Items.Add("Total value: " & FormatCurrency(value)) lstInventory.Items.Add("Number of books: " & num) lstInventory.Items.Add("Number of textbooks: " & textb) End Sub End Class 'frmBookstore MustInherit Class Book Public Property Name() As String Public Property Cost() As Double Public Property Quantity() As Integer 'Children must override this property MustOverride ReadOnly Property Price() As Double End Class 'Book Class Tradebook Inherits Book Overrides ReadOnly Property Price() As Double Get Return 1.4 * Cost '40% markup End Get End Property End Class 'Tradebook Class Textbook Inherits Book Overrides ReadOnly Property Price() As Double Get Return 1.2 * Cost '20% markup End Get End Property End Class 'Textbook

Student Solutions Manual (Page 193 of 211)

CHAPTER 12 EXERCISES 12.1

1. Protected Sub btnFind_Click(...) Handles btnFind.Click Dim max As Double = CDbl(txtFirstNum.Text) If CDbl(txtSecondNum.Text) > max Then max = CDbl(txtSecondNum.Text) End If If CDbl(txtThirdNum.Text) > max Then max = CDbl(txtThirdNum.Text) End If txtLargestNum.Text = CStr(max) End Sub 3. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim num As Integer = CInt(txtNumber.Text) For i As Integer = 1 To num - 1 lstOutput.Items.Add(i & " potato") Next lstOutput.Items.Add(num) End Sub 5. Protected Sub btnCalculate_Click(...) Handles btnCalculate.Click Dim purchPrice As Double = CDbl(txtPurPrice.Text) Dim redemValue As Double = CDbl(txtRedValue.Text) txtDiscRate.Text = FormatPercent((redemValue - purchPrice) / redemValue) txtIntRate.Text = FormatPercent((redemValue - purchPrice) / purchPrice) End Sub

Student Solutions Manual (Page 194 of 211)

7. Protected Sub btnAdd_Click(...) Handles btnAdd.Click If IsNumeric(txtFirstNum.Text) And IsNumeric(txtSecondNum.Text) Then txtSum.Text = CStr(CDbl(txtFirstNum.Text) + CDbl(txtSecondNum.Text)) ElseIf Not IsNumeric(txtFirstNum.Text) Then If Not IsNumeric(txtSecondNum.Text) Then txtMessage.Text = "Each text box is empty or has an improper entry." Else txtMessage.Text = "The first text box is empty or has an improper entry." End If Else txtMessage.Text = "The second text box is empty or has an improper entry." End If End Sub

Student Solutions Manual (Page 195 of 211)

9. Protected Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim grade1 As Double = CDbl(txtGrade1.Text) Dim grade2 As Double = CDbl(txtGrade2.Text) Dim grade3 As Double = CDbl(txtGrade3.Text) DisplayHighestTwo(grade1, grade2, grade3) End Sub Sub DisplayHighestTwo(ByVal grade1 As Double, ByVal grade2 As Double, ByVal grade3 As Double) Dim first, second As Double If grade1 <= grade2 And grade1 <= grade3 Then first = Max(grade2, grade3) second = Min(grade2, grade3) ElseIf grade2 <= grade1 And grade2 <= grade3 Then first = Max(grade1, grade3) second = Min(grade1, grade3) Else first = Max(grade1, grade2) second = Min(grade1, grade2) End If txtOutput.Text = "The highest two grades are " & first & " and " & second & "." End Sub Function Max(ByVal num1 As Double, ByVal num2 As Double) As Double If num1 <= num2 Then Return num2 Else Return num1 End If End Function Function Min(ByVal num1 As Double, ByVal num2 As Double) As Double If num1 <= num2 Then Return num1 Else Return num2 End If End Function

Student Solutions Manual (Page 196 of 211)

11. Protected Sub btnSort_Click(...) Handles btnSort.Click Dim word1 As String = txtFirst.Text Dim word2 As String = txtSecond.Text If (word2 < word1) Then SwapWords(word1, word2) End If txtOutput.Text = word1 & " before " & word2 End Sub Sub SwapWords(ByRef word1 As String, ByRef word2 As String) Dim temp As String temp = word1 word1 = word2 word2 = temp End Sub

13. Protected Sub btnReverse_Click(...) Handles btnReverse.Click txtBackwards.Text = Reverse(txtWord.Text) End Sub Function Reverse(ByVal info As String) As String Dim m As Integer, temp As String = "" m = info.Length For j As Integer = m - 1 To 0 Step -1 temp &= info.Substring(j, 1) Next Return temp End Function

Student Solutions Manual (Page 197 of 211)

15. Protected Sub btnEvaluate_Click(...) Handles btnEvaluate.Click Dim strGrades() As String = IO.File.ReadAllLines(MapPath("App_Data\Final.txt")) Dim grades(strGrades.Count - 1) As Double Dim avg As Double Dim counter As Integer For i As Integer = 0 To grades.Count - 1 grades(i) = CDbl(strGrades(i)) Next avg = grades.Average txtAverage.Text = FormatNumber(avg) For i As Integer = 0 To grades.Count - 1 If grades(i) > avg Then counter += 1 End If Next txtAboveAvg.Text = FormatPercent(counter / grades.Count) End Sub

17. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim states() As String = IO.File.ReadAllLines(MapPath("App_Data\States.txt")) For Each state As String In states If state.EndsWith("ia") Then lstOutput.Items.Add(state) End If Next End Sub

Student Solutions Manual (Page 198 of 211)

19. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim states() As String = IO.File.ReadAllLines(MapPath("App_Data\States.txt")) Dim letter As String = txtLetter.Text lstOutput.Items.Clear() For Each state As String In states If state.StartsWith(letter) Then lstOutput.Items.Add(state) End If Next End Sub

Student Solutions Manual (Page 199 of 211)

EXERCISES 12.2
1. Protected Sub Page_Load(...) Handles Me.Load If Not IsPostBack Then Dim states() As String = IO.File.ReadAllLines(MapPath("App_Data\States.txt")) Dim query = From state In states Order By state Select state lstStates.DataSource = query lstStates.DataBind() txtNumStates.Text = CStr(lstStates.Items.Count) End If End Sub Protected Sub btnDelete_Click(...) Handles btnDelete.Click lstStates.Items.Remove(lstStates.Text) txtNumStates.Text = CStr(lstStates.Items.Count) End Sub

12.2 Exercise 1
3. 'Note: The AutoPostBack and CausesValidation properties were 'set to True for each check box. Protected Sub rblModel_SelectedIndexChanged(...) Handles _ rblModel.SelectedIndexChanged, chkUpgradedVideo.CheckedChanged, chkModem.CheckedChanged, chkMemory.CheckedChanged Dim cost As Double = 0 'Add amounts to the cost based upon selections. If rblModel.Text = "Deluxe" Then cost += 1000 Else cost += 1500 End If If chkUpgradedVideo.Checked Then cost += 200 End If If chkModem.Checked Then cost += 30 End If If chkMemory.Checked Then cost += 120 End If txtOutput.Text = FormatCurrency(cost) End Sub

Student Solutions Manual (Page 200 of 211)

5. Protected Sub btnConvert_Click(...) Handles btnConvert.Click Dim fahrenheitTemp, celsiusTemp As Double fahrenheitTemp = CDbl(txtTempF.Text) celsiusTemp = FtoC(fahrenheitTemp) txtTempC.Text = CStr(celsiusTemp) End Sub Function FtoC(ByVal t As Double) As Double Return (5 / 9) * (t - 32) End Function

Student Solutions Manual (Page 201 of 211)

7. Protected Sub btnDetermine_Click(...) Handles btnDetermine.Click Dim grade1 As Double = CDbl(txtGrade1.Text) Dim grade2 As Double = CDbl(txtGrade2.Text) Dim grade3 As Double = CDbl(txtGrade3.Text) DisplayHighestTwo(grade1, grade2, grade3) End Sub Sub DisplayHighestTwo(ByVal grade1 As Double, ByVal grade2 As Double, ByVal grade3 As Double) Dim first, second As Double first = Max(grade1, grade2) If first = grade1 Then second = Max(grade2, grade3) Else second = Max(grade1, grade3) End If txtOutput.Text = "The highest two grades are " & first & " and " & second & "." End Sub Function Max(ByVal num1 As Double, ByVal num2 As Double) As Double If num1 <= num2 Then Return num2 Else Return num1 End If End Function

Student Solutions Manual (Page 202 of 211)

9. 'In RangeValidator controls, Minimum is "a" and Maximum is "zzzzzzz". Protected Sub btnAlphabetize_Click(...) Handles btnAlphabetize.Click Dim word1 = txtWord1.Text Dim word2 = txtWord2.Text DisplayWords(word1, word2) End Sub Sub DisplayWords(ByVal word1 As String, ByVal word2 As String) lstOutput.Items.Clear() If word1 <= word2 Then lstOutput.Items.Add(word1) lstOutput.Items.Add(word2) Else lstOutput.Items.Add(word2) lstOutput.Items.Add(word1) End If End Sub

Student Solutions Manual (Page 203 of 211)

11. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim justices() As String = IO.File.ReadAllLines(MapPath("App_Data\Justices.txt")) Dim stateAbbrev As String = txtState.Text.ToUpper Dim query = From justice In justices Let data = justice.Split(","c) Let name = data(0) & " " & data(1) Let pres = data(2) Let state = data(3) Let yrsServed = YearsServed(data(4), data(5)) Where state = stateAbbrev Select name, pres, yrsServed grvJustices.DataSource = query grvJustices.DataBind() grvJustices.HeaderRow.Cells(0).Text = "Justice" grvJustices.HeaderRow.Cells(1).Text = "Appointing President" grvJustices.HeaderRow.Cells(2).Text = "Years Served" End Sub Function YearsServed(ByVal enter As Double, ByVal leave As Double) As Double If leave = 0 Then Return (Now.Year - enter) Else Return (leave - enter) End If End Function

Student Solutions Manual (Page 204 of 211)

EXERCISES 12.3
1. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim mcDC As New MegacitiesDataContext Dim query = From city In mcDC.Cities Order By city.name Descending Select city.name, city.pop2010 chtMegacities.DataBindTable(query, "name") chtMegacities.ChartAreas(0).AxisX.Interval = 1 chtMegacities.ChartAreas(0).AxisX.Title = "City" chtMegacities.ChartAreas(0).AxisY.Title = "2010 Population in Millions " End Sub

3. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim mcDC As New MegacitiesDataContext Dim query = From city In mcDC.Cities Let popGrowth = 100 * (city.pop2015 - city.pop2010) / city.pop2010 Order By popGrowth Descending Select city.name, popGrowth chtMegacities.DataBindTable(query, "name") chtMegacities.ChartAreas(0).AxisX.Interval = 1 chtMegacities.ChartAreas(0).AxisX.Title = "City" chtMegacities.ChartAreas(0).AxisY.Title = "Percentage Population Growth" End Sub

Student Solutions Manual (Page 205 of 211)

5. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim avePop As Double Dim mcDC As New MegacitiesDataContext Dim query = From city In mcDC.Cities Select city.pop2010 avePop = query.Average Dim query2 = From city In mcDC.Cities Where city.pop2015 >= avePop Select city.name, city.pop2010 chtMegacities.DataBindTable(query2, "name") chtMegacities.ChartAreas(0).AxisX.Interval = 1 chtMegacities.ChartAreas(0).AxisX.Title = "City with Above-Average Population" chtMegacities.ChartAreas(0).AxisY.Title = "2010 Population in Millions" End Sub

7. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim mcDC As New MegacitiesDataContext Dim query = From city In mcDC.Cities Join country In mcDC.Countries On city.country Equals country.name Select city.name, country.pop2010 chtMegacities.DataBindTable(query, "name") chtMegacities.ChartAreas(0).AxisX.Interval = 1 chtMegacities.ChartAreas(0).AxisX.Title = "City" chtMegacities.ChartAreas(0).AxisY.Title = "2010 Pop. of Country in Millions" End Sub

Student Solutions Manual (Page 206 of 211)

9. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim mcDC As New MegacitiesDataContext Dim query = From country In mcDC.Countries Order By country.pop2010 Descending Select country.name, country.pop2010 chtMegacities.DataBindTable(query, "name") chtMegacities.ChartAreas(0).AxisX.Interval = 1 chtMegacities.ChartAreas(0).AxisX.Title = "Country" chtMegacities.ChartAreas(0).AxisY.Title = "2010 Population in Millions" End Sub

Student Solutions Manual (Page 207 of 211)

11. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim mcDC As New MegacitiesDataContext Dim query = From city In mcDC.Cities Let popIncr = (city.pop2015 - city.pop2010) / city.pop2010 Let formattedPopIncr = FormatPercent(popIncr) Order By popIncr Descending Select city.name, formattedPopIncr GridView1.DataSource = query GridView1.DataBind() GridView1.HeaderRow.Cells(0).Text = "City" GridView1.HeaderRow.Cells(1).Text = "Population Increase" End Sub

13. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim mcDC As New MegacitiesDataContext Dim query = From country In mcDC.Countries Let pop = 1000000 * country.pop2010 Let formattedPop = FormatNumber(pop, 0) Order By pop Descending Select country.name, formattedPop GridView1.DataSource = query GridView1.DataBind() GridView1.HeaderRow.Cells(0).Text = "Country" GridView1.HeaderRow.Cells(1).Text = "Population in 2010" End Sub

Student Solutions Manual (Page 208 of 211)

15. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim mcDC As New MegacitiesDataContext Dim query = From city In mcDC.Cities Join country In mcDC.Countries On city.country Equals country.name Order By city.name Ascending Select city.name, city.country, country.monetaryUnit GridView1.DataSource = query GridView1.DataBind() GridView1.HeaderRow.Cells(0).Text = "City" GridView1.HeaderRow.Cells(1).Text = "Country" GridView1.HeaderRow.Cells(2).Text = "Currency" End Sub

17. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim pizzaDC As New PizzaDataContext Dim query = From chain In pizzaDC.Pizzerias Order By chain.sales2008 Descending Let amount = chain.sales2008 / 1000000 Select chain.name, amount chtPizzaChains.DataBindTable(query, "name") chtPizzaChains.ChartAreas(0).AxisX.Interval = 1 chtPizzaChains.ChartAreas(0).AxisX.Title = "Pizzeria" chtPizzaChains.ChartAreas(0).AxisY.Title = "2008 Sales in Billions" End Sub

Student Solutions Manual (Page 209 of 211)

19. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim pizzaDC As New PizzaDataContext Dim query = From chain In pizzaDC.Pizzerias Let growth = chain.numStores2008 - chain.numStores2007 Order By growth Select chain.name, growth chtPizzaChains.DataBindTable(query, "name") chtPizzaChains.ChartAreas(0).AxisX.Interval = 1 chtPizzaChains.ChartAreas(0).AxisX.Title = "Pizzeria" chtPizzaChains.ChartAreas(0).AxisY.Title = "Change in Number of Stores" End Sub

21. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim pizzaDC As New PizzaDataContext Dim query = From chain In pizzaDC.Pizzerias Order By chain.name Let sales2007 = chain.sales2007 / 1000000 Let sales2008 = chain.sales2008 / 1000000 Select chain.name, sales2007, sales2008 chtPizzaChains.DataBindTable(query, "name") chtPizzaChains.ChartAreas(0).AxisX.Interval = 1 chtPizzaChains.ChartAreas(0).AxisX.Title = "Pizzeria" chtPizzaChains.ChartAreas(0).AxisY.Title = "2007 & 2008 Sales in $Billion" End Sub

Student Solutions Manual (Page 210 of 211)

23. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim pizzaDC As New PizzaDataContext Dim query = From chain In pizzaDC.Pizzerias Order By chain.sales2008 Descending Let for7 = FormatCurrency(chain.sales2007 * 1000.0, 0) Let for8 = FormatCurrency(chain.sales2008 * 1000.0, 0) Let perChange = FormatPercent((chain.sales2008 chain.sales2007) / chain.sales2007) Select chain.name, for7, for8, perChange grvPizzaChains.DataSource = query grvPizzaChains.DataBind() grvPizzaChains.HeaderRow.Cells(0).Text = "Pizzeria" grvPizzaChains.HeaderRow.Cells(1).Text = "2007 Sales" grvPizzaChains.HeaderRow.Cells(2).Text = "2008 Sales" grvPizzaChains.HeaderRow.Cells(3).Text = "Change" End Sub

25. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim pizzaDC As New PizzaDataContext Dim query = From chain In pizzaDC.Pizzerias Select chain.numStores2008 txtOutput.Text = FormatNumber(query.Sum, 0) End Sub

Student Solutions Manual (Page 211 of 211)

27. Protected Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim pizzaDC As New PizzaDataContext Dim query = From chain In pizzaDC.Pizzerias Order By chain.numStores2008 Ascending Select chain.name txtOutput.Text = query.First End Sub