Составить матрицу 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
