Раскрасить элементы матрицы в шахматном порядке - VB

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

Здравствуйте Помогите пожалуйста) Дан двумерный массив, размерностью 3х3, состоящий из случайных чисел промежутка (-102; 294) Раскрасить элементы матрицы в шахматном порядке. Определить, сумма каких элементов (черных или белых) больше.

Код к задаче: «Раскрасить элементы матрицы в шахматном порядке - VB»

textual
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim A(1 To 3, 1 To 3) As Integer, sW As Integer, sB As Integer
Cls
Randomize
sB = 0: sW = 0
  For i = 1 To 3
     For j = 1 To 3
        A(i, j) = Int(396 * Rnd - 102)
        If (i + j) Mod 2 = 0 Then
               ForeColor = vbWhite: sW = sW + A(i, j)
        Else
               ForeColor = vbBlack: sB = sB + A(i, j)
        End If
        Print A(i, j); vbTab;
     Next j
     Print
  Next i
  If sW > sB Then MsgBox "Сумма белых больше" Else MsgBox "Сумма чёрных больше"
End Sub

12   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ