Составить матрицу 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы