Ошибка в функции. basic

[MarihuanaP]

Здравствуйте, прошу помочь, писала лабораторную, но на этапе когда должно было вычислиться абсолютное значение элементов массива D и если оно (значение) не превышает 40 то должно записаться в массив Z, однако он выдает ошибку типа "функция не определена" и указывает на abs(D(i)), подскажите что не так, очень прошу =)

Private Sub Command1_Click()
Dim D(1 To 40) As Integer
Dim Z(1 To 40) As Integer
Dim k As Single
a = ""
For i = 1 To 40
D(i) = Int(Rnd() * 100) - 30
a = a & D(i) & " "
Next i
MsgBox a
End Sub

Private Sub Command2_Click()
For i = 1 To 40
k = Abs(D(i))
If k < 40 Then
Z(i) = k
End If
b = b & Z(i) & " "
Next i
MsgBox b
End Sub

[Utkin]

Замени

If D(i)<0 then k=D(i)*(-1) Else k=D(i)

[MarihuanaP]

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

Замени

If D(i)<0 then k=D(i)*(-1) Else k=D(i)

Большое спасибо, мой собственный код заработал, я жутко ступила (как обычно в общем) просто у мну переменные же были объявлены в другой процедуре... Можно тогда другой вопрос, те переменные чье значение превышают 40 в массиве z отображаются как нули, как сделать так чтобы так не было, подскажите пожалуйста =)

[Sasha_Smirnov]

Dim Z(1 To 40) As Integer

Присвойте им не нули. А чем нули-то не устраивают?

Ведь это нормально, что массив целых чисел изначально (при объявлении) — заполнен нулями.

[Utkin]

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

Большое спасибо, мой собственный код заработал, я жутко ступила (как обычно в общем)

Тс.. Ваш ник выдает Вас с головой . Все равно сообщение странное - что функция не определена.