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

Dim Answers(1 To 15, 1 To 4) As String

Dim Answer(1 To 4) As String

Dim AnswersRight(1 To 15) As String

Dim ChooseAnswer(1 To 4) As String

Dim I As Integer, J As Integer, Imass As Integer, Jmass As Integer

Dim np As Integer, fp As Integer, Score As Long, Unburned As Long

Dim BuferSTR As String

Randomize

If AnswerIsCorrect = 2 Then

I = 1

End If

If AnswerIsCorrect = 1 Then

I = LabelQuestionI.Caption + 1

End If

If I = 0 Then

WinLooseLine1.Visible = 1

WinLooseLine2.Visible = 1

WinLooseLine3.Visible = 1

WinLooseLine4.Visible = 1

LabelWinLoose.Visible = 1

LabelWinLoose.Caption = "Выответилиневерно ! Вашвыигрыш: " & LabelUnburned.Caption & " денег !"

I = 1

EndGame 0

End If

If I = 16 Then

WinLooseLine1.Visible = 1

WinLooseLine2.Visible = 1

WinLooseLine3.Visible = 1

WinLooseLine4.Visible = 1