已知数组arr进行以下定义: Dim arr() as Integer = {1,1,1,1,1} 过程MySub定义如下: Sub MySub(ByVal ar() As Integer, ByRef x As Integer) Dim i As Integer For i = 0 To UBound(ar) " 注:UBound(ar)求数组ar的下标上限 ar(i) = x Next x = 0 End Sub 则执行下列语句后,数组arr和变量data中的内容是什么? Dim data As Integer = 2 MySub(arr, data)