vb.net，创建一维double数组，并赋值13,4,6,7,9

可以使用以下代码创建一个长度为5的一维double数组，并将其赋值为13, 4, 6, 7, 9：

Dim myArray(4) As Double
myArray(0) = 13
myArray(1) = 4
myArray(2) = 6
myArray(3) = 7
myArray(4) = 9

或者，我们可以使用以下代码来简化这个过程：

Dim myArray() As Double = {13, 4, 6, 7, 9}

这将创建一个长度为5的一维double数组，并将其赋值为13, 4, 6, 7, 9。