Передача массива в другую процедуру

@Ромка666 · Регистрация: 02.10.2010

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

Как передать массив в другую процедуру вот мой код выбивает ошибку Type mistmach

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub vvod()
Dim i As Integer
Dim p As Integer
Dim n As Integer
p = 2
Dim b() As Integer
ReDim b(1 To 10)
For i = 1 To 10
b(i) = Worksheets("Лист1").Cells(i, 1)
Next i
lili (b())
End Sub
 
Public Sub lili(b1() As Integer)
Dim b1() As Double
ReDim b1(1 To 10)
For i = 1 To 10
Worksheets("Лист1").Range("B" & i) = b1(i)
Next i
End Sub

@Busine2009 · 10.06.2011, 07:46

Код 1. Подпроцедура изменяет массив:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub vvod()
Dim i As Integer
Dim p As Integer
Dim n As Integer
p = 2
Dim b() As Integer
ReDim b(1 To 10)
For i = 1 To 10
b(i) = Worksheets("Лист1").Cells(i, 1)
Next i
Call lili(b)
End Sub
Public Sub lili(ByRef b1() As Integer)
For i = 1 To 10
Worksheets("Лист1").Range("B" & i) = b1(i)
Next i
End Sub

Код 2. Подпроцедура не изменяет массив:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub vvod()
Dim i As Integer
Dim p As Integer
Dim n As Integer
p = 2
Dim b() As Integer
ReDim b(1 To 10)
For i = 1 To 10
b(i) = Worksheets("Лист1").Cells(i, 1)
Next i
lili (b)
End Sub
Public Sub lili(b1)
For i = 1 To 10
Worksheets("Лист1").Range("B" & i) = b1(i)
Next i
End Sub

@Ципихович Эндрю · 10.06.2011, 17:03

по чему это
Подпроцедура изменяет массив
можно понять??

@Busine2009 · 10.06.2011, 17:14

Ципихович Эндрю,
Просто просмотрите результаты выполнения двух кодов.

Код 1:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Main()
Dim Массив(1 To 10) As Double
Массив(1) = 1
Call P1(Массив)
Debug.Print Массив(1)
End Sub
Sub P1(Массив)
Массив(1) = 2
End Sub

Код 2:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Main()
Dim Массив(1 To 10) As Double
Массив(1) = 1
P1 (Массив)
Debug.Print Массив(1)
End Sub
Sub P1(Массив)
Массив(1) = 2
End Sub

Чтобы увидеть результаты работы кодов: View - Immediate Window.

@Ципихович Эндрю · 10.06.2011, 17:20

Понял
Подпроцедура, которая не изменяет массив кому может понадобится?

@Busine2009 · 10.06.2011, 17:25

Чтобы не заморачиваться какими-то там особенностями вызова подпроцедур и функций, можно вот такие коды использовать для передачи массивов в подпроцедуры и функции:

Передача массива с его изменением:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Main()
Dim Массив(1 To 10) As Double
Массив(1) = 1
Call P1(Массив)
Debug.Print Массив(1)
End Sub
Sub P1(ByRef Массив)
Массив(1) = 2
End Sub

Передача массива без его изменения:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Main()
Dim Массив(1 To 10) As Double
Массив(1) = 1
Call P1(Массив)
Debug.Print Массив(1)
End Sub
Sub P1(ByVal Массив)
Массив(1) = 2
End Sub

Чтобы увидеть результаты работы кодов: View - Immediate Window.

Сообщение от Ципихович Эндрю

Подпроцедура, которая не изменяет массив кому может понадобится?

Не знаю, с ходу не могу сказать (сам только на днях столкнулся с этим). Но такая передача предупреждает какие-то изменения массива.

@Ромка666 · 10.06.2011, 21:10 **[ТС]**

спасибо всем !!

@Vegas_Real · 09.06.2016, 12:05

Хочу дополнить.

Для того чтобы передать массив переданный в подпрограмму массив в другую подпрограмму необходимо создать его копию и передать дальше уже её, а по возвращении произвести обратное копирование

Добавлено через 31 минуту
Приведу пример:

Sub CreateArray()

Dim MyArray(4) as Double

MyArray(1)=1.5: MyArray(2)=3.5 и т.д.

Call

End Sub

CustomArray - это просто имя MyArray в подпрограмме Process, действия происходят фактически напрямую

Sub Process(CustomArray)

CustomArray(1)=CustomArray(1)*2
CustomArray(2)=CustomArray(2)*3 и т.д.

Dim MyArray1() as Double

MyArray1=CustomArray 'копируем MyArray в MyArray1

Call AnotherProcess(MyArray1)

CustomArray=MyArray1 'копируем MyArray1 в MyArray

End Sub

CustomArray1 - это просто имя MyArray1 в подпрограмме AnotherProces. Для того чтобы передать изменения в из MyArray1 в MyArray над произвести процедуру обратного копирования

Sub AnotherProcess(CustomArray1)

CustomArray1(1)=Sqr(CustomArray1(1)) и т.д.

end sub

Если попытаться передать в AnotherProcess не копию массива созданную в Process, а сам массив-аргумент CustomArray - это приведет к ошибке.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	10.06.2011, 17:03
	по чему это Подпроцедура изменяет массив можно понять?? 1

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	10.06.2011, 17:20
	Понял Подпроцедура, которая не изменяет массив кому может понадобится? 1

@Ромка666 6 / 6 / 2 Регистрация: 02.10.2010 Сообщений: 100
	10.06.2011, 21:10 [ТС]
	спасибо всем !! 0

@Vegas_Real 0 / 0 / 0 Регистрация: 09.06.2016 Сообщений: 2
	09.06.2016, 12:05
	Хочу дополнить. Для того чтобы передать массив переданный в подпрограмму массив в другую подпрограмму необходимо создать его копию и передать дальше уже её, а по возвращении произвести обратное копирование Добавлено через 31 минуту Приведу пример: Sub CreateArray() Dim MyArray(4) as Double MyArray(1)=1.5: MyArray(2)=3.5 и т.д. Call End Sub CustomArray - это просто имя MyArray в подпрограмме Process, действия происходят фактически напрямую Sub Process(CustomArray) CustomArray(1)=CustomArray(1)2 CustomArray(2)=CustomArray(2)3 и т.д. Dim MyArray1() as Double MyArray1=CustomArray 'копируем MyArray в MyArray1 Call AnotherProcess(MyArray1) CustomArray=MyArray1 'копируем MyArray1 в MyArray End Sub CustomArray1 - это просто имя MyArray1 в подпрограмме AnotherProces. Для того чтобы передать изменения в из MyArray1 в MyArray над произвести процедуру обратного копирования Sub AnotherProcess(CustomArray1) CustomArray1(1)=Sqr(CustomArray1(1)) и т.д. end sub Если попытаться передать в AnotherProcess не копию массива созданную в Process, а сам массив-аргумент CustomArray - это приведет к ошибке. 0