Раскрасить элементы матрицы в шахматном порядке - VB
Формулировка задачи:
Здравствуйте
Помогите пожалуйста)
Дан двумерный массив, размерностью 3х3, состоящий из случайных чисел промежутка (-102; 294)
Раскрасить элементы матрицы в шахматном порядке. Определить, сумма каких элементов (черных или белых) больше.
Решение задачи: «Раскрасить элементы матрицы в шахматном порядке»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д