invalid qualifier при попытке определить длину массива внутри функции

@EMKorD · Регистрация: 30.10.2011

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

Задача не суть важна. При попытке нажать кнопку, программа исправно работает до вызова функции, после чего выдаёт ошибку "invalid qualifier", и выделяет переменную m в 5 строке кода. Пробовал исправлять разными способами, в том числе статическими массивами вместо динамических, и параметром length вместо getlength(0) - результат одинаковый.

Пожалуйста, помогите понять суть проблемы. Не уверен, что проблема в функции - попытка определить длину массива заканчивается крахом и в основной процедуре.

Да, код сделан не в чистом VB, а в макросах MS Excel 2003/2007, надеюсь, я не ошибся с разделом.
+ проверялось на двух разных компах в разных версиях excel - сомневаюсь, что ошибка в ПО или железе.

Заранее спасибо.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Public Function f(ByRef m() As Double) As Integer
Dim n As Integer
Dim i As Integer
Dim s As Integer
n = m.getlength(0)
s = 0
For i = 1 To n
 If m(i) < 0 Then
  s = s + 1
 End If
Next i
f = s
End Function
 
Sub Command1_Click()
Randomize
Dim n As Integer
Dim m1() As Double
Dim m2() As Double
Dim i As Integer
 
n = InputBox("n1")
ReDim m1(n)
 
For i = 1 To n
 m1(i) = Rnd() - 0.5
 Cells(i, 1) = m1(i)
Next i
 
n = InputBox("n2")
ReDim m2(n)
For i = 1 To n
 m2(i) = Rnd() - 0.5
 Cells(i, 2) = m2(i)
Next i
 
If f(m1) < f(m2) Then
 MsgBox ("m2")
Else
 MsgBox ("m1")
End If
End Sub

@Апострофф · 22.12.2011, 22:41

lbound(m) - нижняя граница массива
ubound(m) - верхняя граница массива
Соответственно

Сообщение от EMKorD

n = m.getlength(0)
s = 0
For i = 1 To n
If m(i) < 0 Then
s = s + 1
End If
Next i
f = s

следует писать так

Visual Basic
1
2
3
4
5
6
7
8
'n = m.getlength(0)
s = 0
For i = lbound(m) To ubound(m)
 If m(i) < 0 Then
  s = s + 1
 End If
Next i
f = s

@EMKorD · 22.12.2011, 22:46 **[ТС]**

Огромное спасибо, так заработало. И всё же, почему не срабатывает m.length? В литературе я нашёл указание на этот параметр и несколько удивлён, что оно не работает.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@EMKorD 26 / 26 / 10 Регистрация: 30.10.2011 Сообщений: 68
	22.12.2011, 22:46 [ТС]
	Огромное спасибо, так заработало. И всё же, почему не срабатывает m.length? В литературе я нашёл указание на этот параметр и несколько удивлён, что оно не работает. 0