•Structure
College
• Dim name As
String
• Dim state As
String
• Dim yearFounded As
Integer
•End
Structure
•Dim
college1,
college2, collegeOlder As College
•Private
Sub btnFirst_Click(...) Handles btnFirst.Click
• Dim prompt As
String
• college1.name =
InputBox("Enter name of college.", "Name")
• college1.state =
InputBox("Enter state.", "State")
• prompt = "Enter the year the first
college was founded."
• college1.yearFounded = CInt(InputBox(prompt,
"Year"))
•End
Sub