趣味互动001：猜下这个变量j的值是多少？

截止昨天VBA代码大全系列发了10篇，今天我们换个主题

下面是一段求数值数组中最大值的一段代码：

Sub 求数组的最大值()
    Dim arr()
    For i = 0 To 100000
        ReDim Preserve arr(i)
        arr(i) = i
    Next i
    '求数组arr中的最大值
    j = Application.WorksheetFunction.Max(arr)
    '输出变量j的值
    Debug.Print j
End Sub

大家目测下最后的变量j的值是多少？