Шахматная доска цвета - VB

Узнай цену своей работы

Формулировка задачи:

ребят есть 64 пикчербокс они все в массиве ВИЗУАЛ БЕЙСИК 6.0 индекс начинается с 1 до 64 как реализоват код чтобы все клетки выли закрашены (черно-белый)

Решение задачи: «Шахматная доска цвета»

textual
Листинг программы
Option Base 1
Private Sub Form_Load()
    Dim i As Integer, j As Integer, k As Integer, col As Long
    For i = 1 To 8
       For j = 1 To 8
           If (i + j) Mod 2 = 0 Then col = vbBlack Else col = vbWhite
           k = k + 1
           Load Picture1(k)
           Picture1(k).Left = Picture1(0).Width * (j - 1) + Picture1(0).Left
           Picture1(k).Top = Picture1(0).Height * (i - 1) + Picture1(0).Top
           Picture1(k).BackColor = col
           Picture1(k).Visible = True
       Next j
    Next i
End Sub

Оцени полезность:

13   голосов , оценка 4.385 из 5
Похожие ответы