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

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


textual

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

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



Похожие ответы
  1. Дана матрица размером MxN . Найти количество его столбцов, элементы которых упорядочены по убыванию.

  1. Все элементы главной диагонали заменить наибольшим элементом всего массива! не пойму как делать

  1. Здравствуйте! Не понимаю как прописать выделение четных чисел и обведение рамкой. Буду благодарна за помощь. Заполнить 3-й столбец 10 целыми числами. Выделить все четные положительные красным цветом и обвести рамкой, максимальный элемент увеличить в 10 раз и обвести рамкой.

  1. Текст задачи Дан массив А размера N. Вывести его элементы в следующем порядке: A1, AN, A2, AN-1, A3, AN-2 …

  1. В заданном одномерном массиве целого типа найти и напечатать те элементы, у которых последовательность цифр от младшего к старшему разряду является возрастающей, или сообщить, что таких нет. Использовать процедуру определения, является ли последовательность цифр от младшего к старшему разряду является возрастающей. Пожалуйста,помогите сделать.

  1. В заданном векторе (одномерном массиве) найти: наибольший отрицательный и наименьший положительные элементы.Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 const   nmax=50; var   a: array[1..nmax] of integer;   n,i,min,max: integer; begin   randomize;   repeat     write('Введите размер массива (n<50):');     readln(n);   until n in[1..50];   min:=-1;   max:=1;   writeln('Исходный массив:');   for i:=1 to n do   begin     a[i]:=-99+random(199);     write(a[i]:4);     if a[i]<0 then  max:=a[i]     else if a[i]>0 then min:=a[i];   end;   writeln;   if min=-1 then writeln('Положительных элементов нет')   else    begin     for i:=1 to n do     if (a[i]>0)and(a[i]max) then max:=a[i];     writeln('Максимальный отрицательный=',max);    end; end.

  1. простите но мне нужна помащ можете помоч решить задачу на visual basic 6.0 ? удалить из файла простые элементы

  1. Есть идеи насчет третьего задания?

  1. Добрый вечер! Скажите, пожалуйста, как исправить код, чтобы элементы, при нажатии на флажок появлялись? И ещё почему-то не исчезает изображение.

  1. Здравствуйте, помогите решить задачу: Разработка программы вывода элементов одномерного массива. Массив состоит из 60 случайных двухзначных целых чисел. Выведите их на экран в обратном порядке по 6 чисел в строке.