ayuda con vectores

[PowerOfCild]

disculpa tengo este problema segui tu consejo pero me atore aka

Module Module1

Sub Main()
Dim n, i As Integer
Dim suma, media As Double
WriteLine("Digite el numero de elementos a introducir")
n = ReadLine()
WriteLine()
WriteLine("NOTA: SI VAS A DIGITAR VALORES CON DECIMALES, ATENCION PON COMA Y NO PUNTO")
WriteLine("----------------------------_____________________--------------------------")
Dim vector(n) As Double
For i = 1 To n
WriteLine()
WriteLine(" Digita el valor del elemento " & i)

vector = (suma) + vector(1)

Next
media = (suma) / (n)
WriteLine(" la suma de los elementos es:" & CDec(suma))
WriteLine(" La media de los elementos es: " & CDec(media))
WriteLine()
WriteLine("Preciona enter para salir")
WriteLine("___________________________")
End Sub

End Module