vb.net 数组传值问题

[SineMetu1]

Sub main()
Dim array() As Double = {"0.1", "0.1", "0.3"}
Dim brray() As Double = a(array(3))
End Sub
Function a(ByVal array() As Double) As Double
Dim b() As Double
Dim l As Integer = array.Length
ReDim b(l - 1)
System.Array.Copy(array, b, l)
Dim i As Integer
For i = 0 To l
System.Console.Write(b(i) + " ")
Next
Return b(l)

End Function



大家帮我看看这句话，第三行调用a()方法出错，array(2)的类型“double”的值无法转化为"double的一维数组" 哪位大哥给个解决方案，3Q！

[遥望那些年]

你的代码错误百出啊

Sub Main()
Dim array As Double() = {"0.1", "0.1", "0.3"}
Dim brray As Double() = a(array)
End Sub
Function a(ByVal array() As Double) As Double()
Dim b() As Double
Dim l As Integer = array.Length
ReDim b(l - 1)
System.Array.Copy(array, b, l)
Dim i As Integer
For i = 0 To l - 1
System.Console.Write(b(i) & " ")
Next
Return b
End Function

[遥望那些年]

方法a也没必要这么复杂
Sub Main()
Dim array() As Double = {"0.1", "0.1", "0.3"}
Dim brray() As Double = a(array)
End Sub
Function a(ByVal array() As Double) As Double()
Dim b(array.Length - 1) As Double
For i = 0 To b.Length - 1
b(i) = array(i)
System.Console.Write(b(i) & " ")
Next
Return b
End Function