|
Как передать в качестве параметра в функцию - массив
|
|||
---|---|---|---|
#18+
Как передать в качестве параметра в функцию - массив ? Public Function mas_nodel(kol As Integer, ish (1 to 10) As Integer) ??? Public Function mas_nodel(kol As Integer, ish (1 to KOL) As Integer) ??? Так не проходит ! Не используя PUBLIC ish (1 to 10) - можно сделать ? ... |
|||
:
Нравится:
Не нравится:
|
|||
31.07.2003, 10:51 |
|
Как передать в качестве параметра в функцию - массив
|
|||
---|---|---|---|
#18+
Вот два примера '----------------------------------------------- Dim AR(5) As Long Call TestArray(1, AR()) Public Function TestArray(ByVal P As Long, byref AR() As Long) MsgBox UBound(AR) End Function '----------------------------------------------- '----------------------------------------------- Dim AR() As Long Call TestArray(1, AR()) Public Function TestArray(ByVal P As Long, ByRef AR() As Long) ReDim AR(P) MsgBox UBound(AR) End Function '----------------------------------------------- ... |
|||
:
Нравится:
Не нравится:
|
|||
31.07.2003, 13:07 |
|
|
start [/forum/topic.php?fid=60&msg=32223655&tid=2170972]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
41ms |
get topic data: |
9ms |
get forum data: |
3ms |
get page messages: |
47ms |
get tp. blocked users: |
2ms |
others: | 263ms |
total: | 397ms |
0 / 0 |