Давай напишу тебе одну алгоритм для вовода сообщения об ошибке, правда как воплотить его в Basic не знаю.
Данные по правильным ответам храняться в массиве (таблице) где число столбцов равно количеству вариантов ответа в нашем случае два
Например в первой строке будет
t1s1 либо t1s2
Во второй
t2s1 либо t2s2
Число строк в массиве будет равняться количеству вопросов.
Всё это будет обрабатываться в цикле.
n - количество вопросов (верхняя граница массива)
u - ответ пользователя
array1 (2,n) - массив в котором храняться данные о правильных ответах
array2 (n) - текст сообщения, в строки массива мы последовательно будем записывать есть или нет ошибки
For i=1 to n
If u = array1 (1,i) or (или) array1 (2,i) then
array2 (n) = "действие "+ n + " правильное"
else
array2 (n) = действие "+ n + " неправильное"
EndIf
Конец цикла.
В результате у тебя получиться в массиве:
действие 1 правильное
действие 2 неправильное
действие 3 правильное
действие 3 правильное...........
А если хочешь сделать привязку к двум цветам можно сделать третьий массив array3 в котором будут храниться данные о цвете. И програмный код примет вид:
For i=1 to n
If u = array1 (1,i) or (или) array1 (2,i)
then
array2 (n) = "действие "+ n + " правильное"
array3 (n) = 0 (белый цвет)
else
array2 (n) = действие "+ n + " неправильное"
array3 (n) = 1 (красный цвет)
EndIf
Конец цикла.
p.s. По моему это должно нормально перейти в програмный код.
p.p.s. Как правильно пишутся операторовы VB я не знаю, я рассматривала VBA последнее время (а до этого, когда-то QBasic
)