Создать тест на языке Visual Basic

[Ya-D]

Нужно создать тест с возможностью входа для преподавателя, где он создает вопросы. И вход для студента, где уже само тестирование. Я сделала но ограниченный массив, и запись каждого вопроса прописала через if. Нужно цикл сделать и массив чтобы неограниченный был. Может кто помочь?

[Ya-D]

Вот мой код в форме для преподавателя
Dim a, b, c, d, k, n As Integer
Public i As Integer
Dim mass(1 To 150) As String

Private Sub cmdDobavitVopros_Click()
i = Val(txtNomerVoprosa)
If 0 < i Then
If i < 13 Then
k = k + 1
txtKolVopr = k
If i = 1 Then
mass(1) = i
mass(2) = txtVopros.Text
mass(3) = txtVariant1.Text
mass(4) = txtvariant2.Text
mass(5) = txtVariant3.Text
mass(6) = txtVariant4.Text
mass(7) = txtVesVoprosa
mass(8) = a
mass(9) = b
mass(10) = c
mass(11) = d

End If
Else:
txtNomerVoprosa.SetFocus
Label10.Visible = True
Label10.Caption = "введите номер вопроса от1 до 12"
Label6.Visible = True

End If
End If

If i = 2 Then
mass(12) = i
mass(13) = txtVopros.Text
mass(14) = txtVariant1.Text
mass(15) = txtvariant2.Text
mass(16) = txtVariant3.Text
mass(17) = txtVariant4.Text
mass(18) = txtVesVoprosa
mass(19) = a
mass(20) = b
mass(21) = c
mass(22) = d

End If

Тут еще несколько IF

Private Sub Combo1_Change()
Open "вопрос 1.txt" For Output As #1
txtimyafaila.Text = "Вопрос 1"
Close #1
End Sub

Private Sub cmdNoviiVopros_Click()
Label7.Visible = True
txtVopros = "введите вопрос"
txtVariant1 = "вариант1"
txtvariant2 = "вариант2"
txtVariant3 = "вариант3"
txtVariant4 = "вариант4"
End Sub

Private Sub cmdSohranitFail_Click()
i = i + 1
mass(150) = i
Open File1 For Output As #1

Print #1, mass(1)
Print #1, mass(2)
Print #1, mass(3)
Print #1, mass(4)
Print #1, mass(5)
Print #1, mass(6)
Print #1, mass(7)
Print #1, mass(8)
Print #1, mass(9)
Print #1, mass(10)
Print #1, mass(11)
Print #1, mass(12)
Print #1, mass(13)
Print #1, mass(14)
Print #1, mass(15)
...........

Print #1, mass(132)
Print #1, mass(150)




Close #1

End Sub

Private Sub cmdSozdatiPredmet_Click()
Open txtimyafaila For Output As #1
Close #1
End Sub

Private Sub File1_Click()
k = 0
n = 0
txtKolVopr = k
End Sub
Private Sub Form_Load()
ChDir "C:\Documents and Settings\1\Рабочий стол\моя кур"

End Sub

Private Sub Option1_Click()
txtNomerVoprosa.SetFocus
Label15.Visible = True
Label9.Visible = True
Label10.Visible = True
If Option1.Value = True Then
a = 1
b = 0
c = 0
d = 0
End If
End Sub
Private Sub Option2_Click()
txtNomerVoprosa.SetFocus
Label15.Visible = True
Label9.Visible = True
Label10.Visible = True
If Option2.Value = True Then
a = 0
b = 1
c = 0
d = 0
End If
End Sub

Private Sub Option3_Click()

txtNomerVoprosa.SetFocus
Label15.Visible = True
Label9.Visible = True
Label10.Visible = True
If Option3.Value = True Then
a = 0
b = 0
c = 1
d = 0
End If
End Sub

Private Sub Option4_Click()
txtNomerVoprosa.SetFocus
Label15.Visible = True
Label9.Visible = True
Label10.Visible = True
If Option4.Value = True Then
a = 0
b = 0
c = 0
d = 1
End If
End Sub
Private Sub txtNomerVoprosa_Change()
Label13.Visible = True

End Sub

Private Sub txtVariant1_Change()
Label15.Visible = True
End Sub

Private Sub txtVariant2_Change()
Label15.Visible = True
End Sub

Private Sub txtVariant3_Change()
Label15.Visible = True
End Sub

Private Sub txtVariant4_Change()
Label15.Visible = True
End Sub

Private Sub txtVopros_Change()
Label15.Visible = True
End Sub