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

Label20.Caption = field(5, 1)

Label21.Caption = field(6, 1)

Label22.Caption = field(7, 1)

Label23.Caption = field(0, 2)

Label24.Caption = field(1, 2)

Label25.Caption = field(2, 2)

Label26.Caption = field(3, 2)

Label27.Caption = field(4, 2)

Label28.Caption = field(5, 2)

Label29.Caption = field(6, 2)

Label30.Caption = field(7, 2)

Label31.Caption = field(0, 3)

Label32.Caption = field(1, 3)

Label33.Caption = field(2, 3)

Label34.Caption = field(3, 3)

Label35.Caption = field(4, 3)

Label36.Caption = field(5, 3)

Label37.Caption = field(6, 3)

Label38.Caption = field(7, 3)

Label39.Caption = field(0, 4)

Label40.Caption = field(1, 4)

Label41.Caption = field(2, 4)

Label42.Caption = field(3, 4)

Label43.Caption = field(4, 4)

Label44.Caption = field(5, 4)

Label45.Caption = field(6, 4)

Label46.Caption = field(7, 4)

End Sub

Т.е. здесь просто каждая ячейка записывается в Caption каждой ячейки. Такой метод не стоит считать оптимальным и в последующем можно использовать другие приемы программирования. Чтобы посмотреть резльтаты, нужно вставить вызов двух процедур Private Sub Set_Nominal() и Private Sub Fdraw() в автозапуск при старте программы (на время):