•Private
Sub btnWhoWon_Click(...) _
• Handles btnWhoWon.Click
• Dim teamName(4) As
String
• Dim n As
Integer
• 'Place Super Bowl Winners into the
array
• teamName(1) = "Packers"
• teamName(2) = "Packers"
• teamName(3) = "Jets"
• teamName(4) = "Chiefs"
• 'Access array
• n = CInt(txtNumber.Text)
• txtWinner.Text = teamName(n)
•End
Sub