Сделать элементы главной диагонали матрицы одним цветом, выше — другим, ниже третьим. Public Sub glav_diag() Dim i As Integer Dim j As Integer n = InputBox(«n=») For i = 1 To n For j = 1 To n If i = j Then Cells(i, j).Interior.Color = vbGreen End If If i < j Then Cells(i,
Внезапно появились лабораторные :) Задачка такая: Создать матрицу размера n x n, заполнить случайными числами от (-20 до 30). Сформировать одномерный массив от 1 до n, каждый элемент которого равен произведению положительных четных элементов данного столбца. Решаем так (естественно все делаем в Excel): [code lang=»vb»] Public Sub glav_diag() Dim i As Integer ‘ Индекс строки
Привет! Сегодня компания РТКОММ совместно с Сибконгрес’ом провели форум, обозначенный в заголовке. Программу можно посмотреть тут Пробегусь по лекторам (даже мелким) и постараюсь рассказать о каждом докладе чуть-чуть + мнение. Да, и будет чуть-чуть фоток :)