Передача массива

Private Sub Command1_Click()
 Dim n As Integer
 Dim m As Integer
 Dim a() As Integer
 Dim x() As Integer
 Dim c() As Integer
 Dim i, j As Integer
 Dim s1 As String
 Dim s As Integer
 Print
 Print
 Print
 Print
 n = InputBox("число столбцов = ?")
 Print "n="; n
 m = InputBox("Число строк = ?")
 Print "m="; m
 ReDim a(1 To m, 1 To n)
 vvodmatrix (a)
 ReDim x(m)
 vvodvector (x)
ReDim c(m)
s1 = ""
For i = 1 To m
 s = 0
 For j = 1 To n
  s = s + a(i, j)
 Next
   If x(i) < s Then
     c(i) = s
   Else
     c(i) = x(i)
   End If
 s1 = s1 & "c(" & i & ")=" & c(i) & ";  "
Next
Print s1
End Sub
 
Private Sub vvodmatrix(x1() As Integer)
Dim i As Integer, j As Integer
For i = LBound(x1) To UBound(x)
For j = LBound(x1, 2) To UBound(x1, 2)
x1(i, j) = InputBox("Элемент матрицы (" _
& i & ", " & j & ") = ?", _
   "Ввод матрицы", , 0, 0)
Print x1(i, j),
   Next
Print
End Sub
 
Private Sub vvodvector(x1() As Integer)
Dim i As Integer
For i = LBound(x1) To UBound(x1)
x1(i) = InputBox("Элемент вектора (" _
& i & ")= ?", "Ввод вектора", , 0, 0)
Print x1(i),
Next
Print
End Sub

Private Sub Command1_Click()
 Dim n As Integer
 Dim m As Integer
 Dim a() As Integer
 Dim x() As Integer
 Dim c() As Integer
 Dim i, j As Integer
 Dim s1 As String
 Dim s As Integer
 Print
 Print
 Print
 Print
 n = InputBox("число столбцов = ?")
 Print "n="; n
 m = InputBox("Число строк = ?")
 Print "m="; m
 ReDim a(1 To m, 1 To n)
Call vvodmatrix(a) '==========
 ReDim x(m)
Call vvodvector(x) '==========
ReDim c(m)
s1 = ""
For i = 1 To m
 s = 0
 For j = 1 To n
  s = s + a(i, j)
 Next
   If x(i) < s Then
     c(i) = s
   Else
     c(i) = x(i)
   End If
 s1 = s1 & "c(" & i & ")=" & c(i) & ";  "
Next
Print s1
End Sub
 
Private Sub vvodmatrix(x1() As Integer)
Dim i As Integer, j As Integer
For i = LBound(x1) To UBound(x1) '===========
For j = LBound(x1, 2) To UBound(x1, 2)
x1(i, j) = InputBox("Элемент матрицы (" _
& i & ", " & j & ") = ?", _
   "Ввод матрицы", , 0, 0)
Print x1(i, j),
   Next
Print
 Next '=================
End Sub
 
Private Sub vvodvector(x1() As Integer)
Dim i As Integer
For i = LBound(x1) To UBound(x1)
x1(i) = InputBox("Элемент вектора (" _
& i & ")= ?", "Ввод вектора", , 0, 0)
Print x1(i),
Next
Print
 
End Sub

Private Sub vvodmatrix(x1)
...
Private Sub vvodvector(x1)
...
vvodmatrix a
...
vvodvector x