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

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

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

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

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

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

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

Visual Basic

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

'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? В литературе я нашёл указание на этот параметр и несколько удивлён, что оно не работает.

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