ubound в vba

Ответ от Bono[гуру]
Этот код полностью не рабочий. Даже можно сказать, что это нечто похожее на VBA.
Ввод делается оператором присваивания для каждого элемента массива, например arr(i)=rnd, но можно и как в 3-й строке, а вывод зависит от того куда выводить, например в окно непосредственных вычислений Debug.Print arr(i). И ввод и вывод организуется в цикле.
После исправления многочисленных ошибок вот что получилось, но не факт, что это то что надо:
Sub tt()
Dim arr1(), arr2()
arr1() = Array(1, 2, -1, -2)
For i = LBound(arr1) To UBound(arr1)
If arr1(i) < 0 Then
sumneg = sumneg + arr1(i)
countneg = countneg + i
End If
Next
ReDim Preserve arr2(UBound(arr1))
For i = LBound(arr1) To UBound(arr1)
If arr1(i) > 0 Then
arr2(i) = sumneg / countneg
Else
arr2(i) = arr1(i)
Debug.Print arr2(i)
End If
Next
End Sub