Реферат: Программирование логической игры на visual basic

Dim et 'В эту переменную будут записаны результаты пересчета значений массива field(i,j)

'в номинал ячеек

If n = 0 Then

‘В какую из ячеек поставлен маркер – какие ячейки field(i,j) ей соответствуют

If markersave = 0 Then et = field(0, 0)

If markersave = 1 Then et = field(1, 0)

If markersave = 2 Then et = field(2, 0)

If markersave = 3 Then et = field(3, 0)

If markersave = 4 Then et = field(4, 0)

If markersave = 5 Then et = field(5, 0)

If markersave = 6 Then et = field(6, 0)

If markersave = 7 Then et = field(7, 0)

‘Написать счет

If et = 0 Then Label48.Caption = Label48.Caption + 1

If et = 1 Then Label48.Caption = Label48.Caption - 1

If et = 2 Then Label48.Caption = Label48.Caption + 5

If et = 3 Then Label48.Caption = Label48.Caption - 5

If et = 4 Then Label48.Caption = Label48.Caption + 10

If et = 5 Then Label48.Caption = Label48.Caption - 10

If et = 6 Then Label48.Caption = Label48.Caption + 15

If et = 7 Then Label48.Caption = Label48.Caption - 15

If et = 8 Then Label56.Caption = Label48.Caption + 25

If et = 9 Then Label48.Caption = Label48.Caption + 500

If et = 10 Then Label48.Caption = Label48.Caption + 100

If et = 11 Then Label48.Caption = Label48.Caption - 200

If et = 12 Then Label48.Caption = 0

If et = 13 Then Label48.Caption = 0

If et = 14 Then End

If et = 15 Then Label48.Caption = Label48.Caption - 10