ayuda con esta matriz urgente

[PowerOfCild]

estoy haciendo un proyecto para mañana y me e quedado atorado

el planteamiento es así

CALCULA LA SUMA DE UN VECTOR CON "N" ELEMENTOS, Y DETERMINA SU MEDIA ARITMETICA.

solucion que e encontrado:

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)

Código HTML:

---------- AKA ES DONDE ME E ATORADO ME SALE SUBRAYADO EN ASUL

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

en el programa la secuancia donde dice vector = (suma) + vector(1) me sale subrayado y me dice un valor de tipo double no se puede convertir en 1-matriz dimencional de double y ya probé de todo y no me sale nada puedes ayudarme

[erbuson]

Hola, antes de nada, no inicies por favor una nueva pregunta si tienes un post abierto para este tema ya que la gente no sabrá donde contestarte y el foro estará hecho un desastre.

Ahora, independientemente del error, ¿ Estas seguro que solicitas ayuda para Visual Basic 6.0 ?

Veo algunas similitudes, pero también veo diferencias sustanciales y por lo que veo la duda no la tienes en como calcular la media sino en como hacer el programa.

Por ejemplo esta linea en VB 6 no tiene ningun sentido ya que vector es una matriz por lo tanto no puede udilizarse así y (suma) no se porqué esta entre paréntesis.

vector = (suma) + vector(1)

Saludos

[pkj]

Ese lenguaje no es vb clásico, más bien parece vb 2005 o algo así.
Tambien parece ser que lo estás haciendo para mostrar en consola, no en forms.
De todas formas te paso tu código modificado y que debería funcionar si lo pones en un botón de un formulario. Haz los cambios que necesites.

Código vb:

Dim n, i As Integer
    Dim suma, media As Double
    n = InputBox("Digite el numero de elementos a introducir")
    Dim vector(n) As Double
    For i = 1 To n
      vector(i) = InputBox(" Digita el valor del elemento " & i)
 
      suma = suma + vector(i)
 
    Next
    media = suma / n
    MsgBox(" la suma de los elementos es:" & CDec(suma) & vbCrLf & _
    " La media de los elementos es: " & CDec(media))
 

Saludos