Как описать одномерный массив в процедуре и функции?

@VIG · Регистрация: 05.10.2010

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

@~~Busine2009~~ · 07.10.2011, 18:17

Visual Basic

Sub Процедура1()
Dim Массив(1 To 5) As Long
Массив(1) = 1
Массив(2) = 2
Массив(3) = 3
Массив(4) = 4
Массив(5) = 5
End Sub

Visual Basic

Function Функция1()
Dim Массив(1 To 5) As Long
Массив(1) = 1
Массив(2) = 2
Массив(3) = 3
Массив(4) = 4
Массив(5) = 5
End Function

Памирыч · 07.10.2011, 19:06

Busine2009, твоя функция ничего не возвращает, так и должно быть? Она не должна возвращать массив?

@~~Busine2009~~ · 07.10.2011, 19:11

Сообщение от Памирыч

Busine2009, твоя функция ничего не возвращает, так и должно быть? Она не должна возвращать массив?

не знаю, должно ли так быть.
А что ещё можно сделать с массивом? Объявить его и заполнить данными.

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

Функции можно ничего не передавать: она всё-равно будет функционировать или как процедура или можно значение ей присвоить.

Памирыч · 07.10.2011, 19:22

Busine2009, в задании не просто так сказано о функции. Полагаю, она должна что-то возвращать. твой пример дополнится еще одной строкой:

Visual Basic

Function Функция1()
Dim Массив(1 To 5) As Long
Массив(1) = 1
Массив(2) = 2
Массив(3) = 3
Массив(4) = 4
Массив(5) = 5
Функция1 = Массив
End Function

Теперь эту функцию можно вызвать как функцию:

Visual Basic

1
2
3

Private Sub CommandButton1_Click()
MsgBox Функция1(2)
End Sub

@Ципихович Эндрю · 08.10.2011, 15:46

подскажите, здесь
MsgBox Функция1(2)
Что означает цифра 2?? что означает в сообщении цифра 2??
Ответ напрашивается сам собой, тогда зачем нужен гемор?

Памирыч · 08.10.2011, 15:51

Ципихович Эндрю, если функция возвращает массив, то что может означать цифра 2?

@Ципихович Эндрю · 08.10.2011, 15:57

знал бы не спрашивал

Памирыч · 08.10.2011, 16:08

Ципихович Эндрю, 2 - индекс возвращаемого массива.
Можно было писать любую, удовлетворяющую размерности массива

@Казанский · 08.10.2011, 20:34

Кстати, интересный пример. ЗдОрово, что компилятор понимает, что у функции нет аргументов, и использует выражение в скобках не как аргумент функции, а как индекс предполагаемого массива (на этапе компиляции неизвестно, что Функция1 вернет массив, ее тип - Variant).
Если у функции есть аргумент, пусть необязательный, необходимо использовать вторые скобки:

Visual Basic

Function Функция1(Optional x)
Dim Массив(1 To 5) As Long
Массив(1) = 10
Массив(2) = 20
Массив(3) = 30
Массив(4) = 40
Массив(5) = 50
Функция1 = Массив
End Function
 
Private Sub CommandButton1_Click()
MsgBox Функция1()(2)
End Sub

Дальше - больше

Пусть массив является элементом коллекции, функция возвращает коллекцию. Теперь, чтобы добраться до значения, нужны 3 пары скобок:

Visual Basic

Function Функция1(Optional x)
Dim Массив(1 To 5) As Long
Массив(1) = 10
Массив(2) = 20
Массив(3) = 30
Массив(4) = 40
Массив(5) = 50
Set Функция1 = New Collection
Функция1.Add Массив
End Function
 
Private Sub CommandButton1_Click()
MsgBox Функция1()(1)(2)
End Sub

И т.д.

@pincet · 08.10.2011, 21:51

Сообщение от Памирыч

Ципихович Эндрю, если функция возвращает массив, то что может означать цифра 2?

Не по теме:

Очень не очевидно. Для человека, измученного нарзаном - просто дико. :)

@VIG 193 / 9 / 1 Регистрация: 05.10.2010 Сообщений: 309
		1
	Как описать одномерный массив в процедуре и функции? 07.10.2011, 18:10. Показов 2785. Ответов 10 Метки нет (Все метки) Как описать одномерный массив в процедуре и функции? 0

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	07.10.2011, 19:06	3
	Busine2009, твоя функция ничего не возвращает, так и должно быть? Она не должна возвращать массив? 0

@~~Busine2009~~ Заблокирован
	07.10.2011, 19:11	4
	Сообщение от Памирыч Busine2009, твоя функция ничего не возвращает, так и должно быть? Она не должна возвращать массив? не знаю, должно ли так быть. А что ещё можно сделать с массивом? Объявить его и заполнить данными. Конкретной задачи не было поставлено: у меня просто образцы, как можно объявить массив и как заполнить данными. Функции можно ничего не передавать: она всё-равно будет функционировать или как процедура или можно значение ей присвоить. 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,723
	08.10.2011, 15:46	6
	подскажите, здесь MsgBox Функция1(2) Что означает цифра 2?? что означает в сообщении цифра 2?? Ответ напрашивается сам собой, тогда зачем нужен гемор? 0

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	08.10.2011, 15:51	7
	Ципихович Эндрю, если функция возвращает массив, то что может означать цифра 2? 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,723
	08.10.2011, 15:57	8
	знал бы не спрашивал 0

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	08.10.2011, 16:08	9
	Ципихович Эндрю, 2 - индекс возвращаемого массива. Можно было писать любую, удовлетворяющую размерности массива 1

@pincet 1643 / 1144 / 171 Регистрация: 23.07.2010 Сообщений: 6,794
	08.10.2011, 21:51	11
	Сообщение от Памирыч Ципихович Эндрю, если функция возвращает массив, то что может означать цифра 2? Не по теме: Очень не очевидно. Для человека, измученного нарзаном - просто дико. :) 0