You set FileOpenStatusTS to true, but then never set it to false again, so the 'if' statement can only evaluates to true once
How to add up total score on quiz questions in VB? current not working
-
19-10-2022 - |
質問
This is how I have set a procedure to mark the quiz questions, but I can only ever get a total score of 1 ( if the first answer is correct ) and the other questions are not marked. Any help would be appreciated.
Private Sub GetQuestions()
questions = {{"General statements of what a business intends to achieve. Precise details of those intentions are set out in objectives", "Corporate strategies", "Corporate objectives", "Aims / goals", "Aims / goals"}, _
{"A statement of the overall purpose of the business", "Mission statement", "Social responsibility", "Functional objectives", "Mission statement"},
{"Objectives that relate to the business as a whole.Usually set by top management", "Business unit strategy", "Functional objectives", "Corporate objectives", "Corporate objectives"},
{"The way in which a business meets its responsibilities to society as a key external stakeholder", "SWOT analysis", "Social responsibility", "SMART objectives", "Social responsibility"},
{"How a business attempts to compete successfully in a particular market", "Business Objectives", "Business unit strategy", "SWOT analysis", "Business unit strategy"}}
End Sub
Private Sub MarkTest()
FileClose(1)
FileOpenStatusTS = False
Dim Topic1Score As Integer = 0
For i = 0 To 2
If answers(i) = questions(i, 4) And FileOpenStatusTS = False Then
Topic1Score += 1
TotalScore += 1
FileOpen(1, FilenameTS, OpenMode.Append)
FileOpenStatusTS = True
WriteLine(1, Username, Topic1Score)
FileClose(1)
End If
Next
LblQuestion.Text = "Well done the test has finished!"
LblDefinition.Text = "You scored " & Topic1Score & " out of " & answers.Length & "!"
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
btnPrev.Enabled = False
btnNext.Enabled = False
End Sub
正しい解決策はありません
他のヒント
所属していません StackOverflow