... Manager("Chucky", 50, 92, 100 000 , "333 -23 -23 22& quot;, 900 0)chucky.GiveBonus( 300 )chucky.DisplayStats()Dim fran As New SalesPerson("Fran", 43, 93, 300 0, "9 32- 32- 323 2", 31)fran.GiveBonus ( 20 0) fran.DisplayStats()Console.ReadLine()End ... Integer = 0 If numberOfSales >= 0 AndAlso numberOfSales <= 100 ThensalesBonus = 10 5785ch06.qxd 3/31 /06 10 :26 AM Page 181CHAPTER 6 ■ UNDERSTANDING INHERITANCE AND POLYMORPHISM1 92 The following ... now have the following constructor.' (name, age, ID, pay, SSN, number of stock options).Dim chucky As New Manager("Chucky", 45, 101 , 300 00, " ;22 2 -22 -22 22& quot;, 90) End SubIf...