The menu strip must be created programmatically (ie NOT dragged and dropped onto the form). The exit option added to the menu strip must exit the application (This works)
A structure must be created to encapsulate all the questions and suggested answers. The structure must contain:
3.Correct Answer String
When the form loads, 5 questions must be created in code using these structures. These 5 structures will then serve as the quiz. The user must be shown the first question, and have the option of browsing forwards and backwards through the quiz. The program should store saved answers to select the radio button when users cycle through. This can be done by any means possible, for example an ArrayList or SortedList.
The suggested answers must be randomized the first time the form loads only.
Once the user has selected an answer for every question, the Submit button should be enabled. When the user clicks this button, the program must then evaluate the quiz and compare the users selected answers against the correct answer. A valid message must then be displayed via a MessageBox indicating the users score.
Here is what I have done so far:
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mnuMain As MainMenu = New MainMenu() Dim exitApp As MenuItem = mnuMain.MenuItems.Add("Exit") Me.Menu = mnuMain For Each m As MenuItem In mnuMain.MenuItems AddHandler m.Click, AddressOf HandleMenuItemClick Next End Sub Private Sub HandleMenuItemClick(ByVal sender As System.Object, _ ByVal e As System.EventArgs) If (Not (TypeOf (sender) Is MenuItem)) Then Throw New Exception("HandleMenuItemClick called incorrectly!") End If Dim s As MenuItem = CType(sender, MenuItem) Application.Exit() End Sub End Class Module Module1 Sub Main() Dim question1 As Quiz = New Quiz("What is the fastest animal on the planet?", "Cheetah") Dim question2 As Quiz = New Quiz("What is the largest animal on the planet?", "Elephant") Dim question3 As Quiz = New Quiz("Which of these animals can survive in water and land?", "Crocodile") Dim question4 As Quiz = New Quiz("Which one of these animals is considered to be the King of the wild?", "Lion") Dim question5 As Quiz = New Quiz("Which one of these animals carry venom in their fangs?", "Snake") End Sub Public Structure Quiz Dim question As String Dim correctAnswer As String Public Sub New(ByVal newQuestion As String, _ ByVal newCorrectAnswer As String) question = newQuestion correctAnswer = newCorrectAnswer End Sub End Structure End Module
**Am I on the right track? Where should I create the 5 arrays that hold the possible answers? What should I use to make it possible for the user to cycle through the questions? Any help will be very much appreciated. **