Все элементы главной диагонали заменить наибольшим элементом всего массива - VB

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


textual

Код к задаче: «Все элементы главной диагонали заменить наибольшим элементом всего массива - VB»

Sub dratyti()
Dim a(6, 6), b(6, 6)
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
For i = 1 To 6
  For j = 1 To 6
    a(i, j) = Int(Rnd * 100) - 50
    Cells(i, j) = a(i, j)
    b(i, j) = a(i, j)
  Next j
Next i
 
'манипулирую с массивом b(i, j) для наглядности изменений, как копией
Max = b(1, 1)
For j = 1 To 6
  For i = 1 To 6
    If b(i, j) >= Max Then
      Max = b(i, j)
      End If
   Next i
Next j
 
Cells(8, 1) = "Максимальный элемент массива Max = "
Cells(8, 5) = Max
 
For i = 1 To 6
   For j = 1 To 6
       Cells(i + 9, j) = b(i, j)
    Next j
Next i
 
For i = 1 To 6
    j = i
    Cells(i + 9, j).Interior.Color = vbGreen
    Cells(i + 9, j) = Max
Next i
 
End Sub

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.571 из 5



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

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