You Could make a list of an object: The object can be called question , which consists of two strings a question and its answer. These object can be placed into a list of the questions and answers, in using a button you can create a counter that will be used to call a an item in the list. This item in the list and be made back into the object see code below
Public Class Form1
Dim coutner As Integer = 0
Dim qs As List(Of Questions)
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
qs = makeQuestion()
End Sub
Private Function makeQuestion()
Dim q1 As New Questions
q1.qestion = "What Continent is Senegal on? "
q1.answer = "Africa"
Dim q2 As New Questions
q2.qestion = "What Continent is Azerbaijan on? "
q2.answer = "Europe"
Dim qs As New List(Of Questions)
qs.Add(q1)
qs.Add(q2)
Return qs
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim qst As Questions = qs(coutner)
Dim qwest As String = qst.qestion
Dim ans As String = qst.answer
TextBox1.Text = qwest
coutner += 1
End Sub
End Class
Question Object
Public Class Questions
Public Property qestion As String = String.Empty
Public Property answer As String = String.Empty
Public Sub New()
End Sub
End Class
Submit an article or tip