Как описать многомерный массив в VBA

[me-lo]

Пожалуйста, кто знает, помогите наладить программу для VBA. Сам просто в этом деле новичок
Вот сама задача:Определить сумму элементов К-го столбца матрицы S размерности
M*N. Для отладки программы значения K, M, N и матрицы S выбрать самостоятельно.
Чтобы не подумали , что ищу халяву, вот , пытался написать текст программы, но увы вместо многомерного массива получаю одномерный , да и с суммой проблемы.....
Вот:
Option Base 1
Private Sub CommandButton1_Click()
Dim S() As Single
Dim m As Byte
Dim n As Byte
Dim k As Byte
Dim i As Byte
Dim j As Byte
Dim E As Single
'ввод размера массива
m = InputBox("Сколько строк в массиве?")
n = InputBox("Сколько столбцов в массиве?")
ReDim S(m, n)
'ввод массива
LabelE.Caption = "Исходный массив S" & vbNewLine & vbNewLine
For i = 1 To m
For j = 1 To n
S(i, j) = InputBox(" Введите значение " & i & " строки " & j & " столбца ")
LabelE.Caption = LabelE.Caption & S(i, j) & vbTab
Next j
Next i

'обработка
For i = 1 To m
For j = 1 To n
E = 0
If j = k Then E = E + S(i, j)
Next j
Next i

'Вывод
LabelE.Caption = LabelE.Caption & vbNewLine & vbNewLine & " Сумма элемнтов данного столбца =" & E


End Sub

[doober]

Option Base 1
Private Sub CommandButton1_Click()
Dim S() As Single
Dim m As Byte
Dim n As Byte
Dim k As Byte
Dim i As Byte
Dim j As Byte
Dim E As Single
'ввод размера массива
m = InputBox("Сколько строк в массиве?")
n = InputBox("Сколько столбцов в массиве?")
k= InputBox("Определить сумму элементов столбца №")
ReDim S(m, n)
'ввод массива
LabelE.Caption = "Исходный массив S" & vbNewLine & vbNewLine
For i = 1 To m
For j = 1 To n
S(i, j) = InputBox(" Введите значение " & i & " строки " & j & " столбца ")
LabelE.Caption = LabelE.Caption & S(i, j) & vbTab
Next j
LabelE.Caption = LabelE.Caption & vbNewLine
Next i
'обработка
E = 0
For i = 1 To m
For j = 1 To n
If j = k Then E = E + S(i, j)
Next j
Next i
'Вывод
LabelE.Caption = LabelE.Caption & vbNewLine & vbNewLine & " Сумма элемнтов данного столбца =" & E
End Sub

[shanemac51]

заменила inputbox на присвоение(лень вводить 10 раз)

Option Explicit

''Option Base 1
Private Sub CommandButton1_Click()
Dim S() As Single
Dim m As Byte
Dim n As Byte
Dim k As Byte
Dim i As Byte
Dim j As Byte
Dim E As Single
'ввод размера массива
m = 4  'InputBox("Сколько строк в массиве?")
n = 4  'InputBox("Сколько столбцов в массиве?")
k = 1  'InputBox("Сколько столбцов в массиве?")

ReDim S(m, n)
'ввод массива
''LabelE.Caption = "Исходный массив S" & vbNewLine & vbNewLine
Debug.Print "Исходный массив S"
For i = 1 To m
For j = 1 To n
S(i, j) = i * 10 + j ''InputBox(" Введите значение " & i & " строки " & j & " столбца ")
''LabelE.Caption = LabelE.Caption & S(i, j) & vbTab
Debug.Print S(i, j);
Next j
Debug.Print
Next i

'обработка
E = 0

For i = 1 To m
For j = 1 To n
If j = k Then
E = E + S(i, j)
End If
Next j
Next i

'Вывод
''LabelE.Caption = LabelE.Caption & vbNewLine & vbNewLine & " Сумма элемнтов данного столбца =" & E
Debug.Print " e="; E

End Sub
Исходный массив S
 11  12  13  14 
 21  22  23  24 
 31  32  33  34 
 41  42  43  44 
 e= 104

[me-lo]

Огромное спасибо всем Всё получилось, а главное понял!