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

LabelWinLoose.Caption = "Поздравляю, " & TextNameInput.Text & ", вывыигралимиллионденег !"

Score = 1000000

LabelScoreTitle.Caption = Score

LabelScore.Caption = Score

EndGame 0

Else

J = Rnd * 3 + 1

Open "C:\VB\KursKY\quemon.txt" For Input As #1

For Imass = 1 To 15

Line Input #1, BuferSTR

QuestionsMoney(Imass) = BuferSTR

Next Imass

Close #1

Open "C:\VB\KursKY\que.txt" For Input As #1

For Imass = 1 To 15

For Jmass = 1 To 4

Line Input #1, BuferSTR

Questions(Imass, Jmass) = BuferSTR

Next Jmass

Next Imass

Close #1

Open "C:\VB\KursKY\answ.txt" For Input As #1

For Imass = 1 To 15

For Jmass = 1 To 4

Line Input #1, BuferSTR

Answers(Imass, Jmass) = BuferSTR

Next Jmass

Next Imass

Close #1