How should I write the "Declare Function two(... )" line?

Code: Select all

`Declare Function one(As Double) As Double`

Function one (x As Double) As Double

one = x

End Function

Print one(1)

' Declare Function two(As Integer, As Double) As Double

Function two ( n As Integer, x() As Double) As Double

two = x(n)

End Function

Dim As Double x2(3)

Dim As Integer nn = 2

x2(nn) = 2

Print two( nn, x2(nn) )

Sleep