Составить матрицу n x m - VBA
Формулировка задачи:
Здравствуйте. Очень нужна помощь уже долго мучаюсь:
1)При запуске матрица должна запрашивать размерность матрицы n и левый верхний угол начиная с которого она будет отображена
2)При запуске лист должен очищаться
3) Сформировать матрицу по образцу
Решение задачи: «Составить матрицу n x m»
textual
Листинг программы
Sub test() Dim A() As Integer, s As String Dim N As Integer, i As Integer, j As Integer Do N = Val(InputBox("Размер матрицы N= ", , 13)) Loop Until N > 0 s = InputBox("Левая верхняя ячейка", , "B2") ThisWorkbook.Worksheets("Лист1").Cells.Clear ReDim A(1 To N, 1 To N) As Integer For i = 1 To N For j = 1 To N If i = j Then A(i, j) = i * (i + 1) Else A(i, j) = 0 Next Next Worksheets("Лист1").Range(s).Resize(N, N).Value = A() End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д