Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/06/2007, 05:20
Jarkaos
 
Fecha de Ingreso: noviembre-2002
Ubicación: Suecia
Mensajes: 253
Antigüedad: 22 años, 7 meses
Puntos: 2
Duda con 2 arrays

Hola
Tengo 2 arrays con un largo de 10 campos que contienen numeros. Los llamaremos array1 y array2. Tengo que crear un tercer array (array3) que me de el promedio de los array1 y 2. Me explico con un grafico:

array1 array2 array3
10 40 25
20 30 25
30 20 25
40 10 25

Pero no se como hacerlo. Tengo los 2 primeros arrays pero no se como hacer el tercero.
Les coloco el codigo por si me pueden ayudar:

Código:
Public Class Form1
    Dim array1(9), array2(9), array3(9) As Integer
    Function IniArray(ByVal arr() As Integer, ByVal filName As String) As Integer()
        Dim sr As IO.StreamReader
        Dim i As Integer

        sr = IO.File.OpenText(filName)

        For i = 0 To arr.GetUpperBound(0)
            arr(i) = sr.ReadLine
        Next

        sr.Close()
        Return arr
    End Function

    Function ReadArray(ByVal arr() As Integer) As String
        Dim i As Integer, s As String
        For i = 0 To arr.GetUpperBound(0)
            s &= arr(i) & Chr(13) & Chr(10)
        Next
        Return s
    End Function
    Function ReadArray2(ByVal arr() As Integer) As String
        Dim i As Integer, s As String
        For i = arr.GetUpperBound(0) To 0 Step -1
            s &= arr(i) & Chr(13) & Chr(10)
        Next
        Return s
    End Function


    Private Sub btnExecute_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExecute.Click
        txtList.Text = ReadArray(IniArray(array1, "array1.txt"))
        txtList2.Text = ReadArray2(IniArray(array2, "array1.txt"))

    End Sub
End Class