Элементарная задача VBA

@EkaterinaTsi · Регистрация: 10.01.2016

Author24 — интернет-сервис помощи студентам

Создать массив nxm, и заполнить данными.(все данные m,n и эллементы вводятся через input)
И главный вопрос: Почему не работает (проблема в 14 строчке)?

Visual Basic

Sub CreateTable()
    Dim A() As Long
    Dim n, m As Integer
    Dim i, j As Integer
    
    ReDim A(n, m)
    
    n = InputBox("Input row")
    m = InputBox("Input column")
        If n = m Then
            For j = 1 To m
                For i = 1 To n
                    A(i, j) = InputBox("Please, input an element " & i, j)
                    Next
                    n = n - 1
                    Next
        End If
  
     
    End Sub

@Alex77755 · 11.01.2016, 18:14

Не работает по тому, что массив переопределён при пустых n, m!
До их назначения

Добавлено через 1 минуту
А это оказалась дублем темы!
Начинаю просматривать с тем без ответов

@EkaterinaTsi · 11.01.2016, 18:17 **[ТС]**

Alex77755, С этим я уже разобралась, спасибо!

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	11.01.2016, 18:14	2
	Не работает по тому, что массив переопределён при пустых n, m! До их назначения Добавлено через 1 минуту А это оказалась дублем темы! Начинаю просматривать с тем без ответов 1

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31
	11.01.2016, 18:17 [ТС]	3
	Alex77755, С этим я уже разобралась, спасибо! 0