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