Разработать приложение для автоматизации составления тестов - VB

Формулировка задачи:

Разработать приложение для автоматизации составления тестов: Пароль: 123 Помогите пожалуйста сделать 1) сложение строк с вопросами(если вопрос занимает более 1 строки). 2) реализацию Кнопки «Сумма баллов» выдаёт соответствующую информацию и оценку «зачтено»(«не зачтено»), а кнопка «Статистика» - информацию о количестве верных и неверных ответов с указанием номеров вопросов. 3) Для подтверждения выбранного варианта ответа необходимо нажать кнопку «Подтвердить», для отмены – «Отменить» (через массив) 4) Каждый верный ответ даёт тестируемому 10 баллов; если тестируемый набирает 70 баллов, он получит зачёт, о чём выдаётся соответствующее сообщение 5) В случае, когда тестируемый уложился в отведённое для решения теста время, так и в противном случае, все элементы управления интерфейса и ответам становятся неактивными, а доступными должны стать элементы управления, заключенные в рамку «Результат»приложение для составления тестов.zip

Решение задачи: «Разработать приложение для автоматизации составления тестов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub GetDataFromFile()
    Dim s, ss, ff As Integer, i As Integer, j As Integer
    ff = FreeFile
    Open App.Path & "\1.txt" For Input As #ff 'открыть файл 1 только для чтения
        s = Input(LOF(ff), ff)
    Close #ff
    s = Split(s, "+++++")
    CountQuest = UBound(s)
    ReDim DataAQ(1 To CountQuest, 1 To CountAns + 2)
    ReDim Verno(1 To CountQuest): ReDim Ans(1 To CountQuest)
    For i = 1 To CountQuest
        ss = Split(s(i), vbCrLf)
        For j = 1 To CountAns + 2
            DataAQ(i, j) = ss(j)
            'MsgBox DataAQ(i, j)
        Next j
    Next i
    Label1.Caption = Split(DataAQ(w, 1), ")")(1)
    Label3.Caption = " Вопрос № " & Split(DataAQ(w, 1), ")")(0) & " (" & CountQuest & ")"
    Me.Caption = "Тестирование. " & Label3.Caption
    For i = 1 To CountAns
       Option1(i).Value = False
       Option1(i).Caption = DataAQ(w, i + 1)
    Next i
    Command1.Enabled = False
End Sub