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