Разработать приложение для автоматизации составления тестов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д