Module Module1

 Sub Main()

 REM 程式由此開始執行

 Dim data() As Integer = {1, 3, 5, 7, 9}

 Dim num1, num2 As Integer

 num1 = data.Length

 num2 = data(4)

 num2 = Processing(data, num1)

 End Sub

 Function Processing(ByRef data() As Integer, ByVal num1 As Integer)

 data(1) = data(1) ^ 2

 num1 = data(3)

 Processing = (num1 + data(1))

 End Function

End Module
(A) 1 , 5 , 6
(B) 9 , 7 , 9
(C) 9 , 5, 16
(D) 3 , 7 , 16