Разработать приложение для автоматизации составления тестов - 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