Initialize a list called questions, like this:

questions := []

On each question, set the question number. If each question is in its own framework page, you can set a user variable (maybe call it qnum) to the framework page number, like so:

qnum := CurrentPageNum

If your questions are set up differently, you may need to set up the qnum variable literally:

qnum := 1

(for question 1, qnum := 2 for question 2, etc.)

It's best not to use the literal value because you may take out or insert a question later. Anyway, the important thing is that qnum is set to a unique number on each question. Then, in each question you can set up each location in the list called questions as a property list:

questions[qnum] := [:]
questions[qnum][#question] := "This is the text for question 1"
questions[qnum][#correct] := "This is the correct answer for question 1"

In fact, you can set up all your questions the same way as above in one Calc at the beginning of your file, making it easier to update.

When the student answer the question, set the answer given the same way in each response:

question[qnum][#answergiven] := "The student answer"

Using this approach means that in the end you can move through the list quickly and save the results to a text file:

results := ""
repeat with i := 1 to ListCount(questions)
results := results ^ "Question " ^ qnum ^ ": " ^ questions[i][#question] ^ return
results := results ^ "Correct answer: " ^ questions[i][#correct] ^ return
results := results ^ "Answer given: " ^ questions[i][#answergiven] ^ return ^ return
end repeat
WriteExtFile("a:\\results.txt", results)

Hope this helps. A lot more can be said about this, such as this makes it easy to have all your questions work with one or two interaction models so that you don't need separate code for each question.