Курсовая работа: Игра Кто хочет стать миллионером

For Imass = 1 To 15

Line Input #1, BuferSTR

AnswersRight(Imass) = BuferSTR

Next Imass

Close #1

BuferSTR = AnswersRight(I)

np = 1

fp = 1

ChooseAnswer(1) = SplitAnswers(np, BuferSTR, 0)

np = np + Len(ChooseAnswer(1)) + 1

ChooseAnswer(2) = SplitAnswers(np, BuferSTR, 0)

np = np + Len(ChooseAnswer(2)) + 1

ChooseAnswer(3) = SplitAnswers(np, BuferSTR, 0)

np = np + Len(ChooseAnswer(3)) + 1

ChooseAnswer(4) = SplitAnswers(np, BuferSTR, 1)

If AnswerIsCorrect = 1 Then

Score = QuestionsMoney(I - 1)

LabelScore.Caption = Score

If Score = 1000 Or Score = 32000 Then

Unburned = Score

LabelUnburned.Caption = Unburned

End If

End If

LabelQuestionI.Caption = I

LabelQuestionJ.Caption = J

QuestionNumber.Caption = "Вопрос " & I & " | " & QuestionsMoney(I) & " денег"

LabelScoreTitle.Caption = "Счёт: " & Score

LabelQuestion.Caption = Questions(I, J)

BuferSTR = Answers(I, J)