comment ajouter des éléments individuels de plusieurs tableaux (entier) en vb

Question

Fondamentalement, j'ai fait un programme afin qu'il puisse lire les numéros d'un fichier, les trois tableaux stockent chacun les mêmes valeurs, sauf que pour chaque tableau, les chiffres iront up de 1. Donc si le tableau 1 a la valeur 1, le tableau 2 aura la valeur 2 et le tableau 3 aura la valeur 3. Ce que je veux savoir est comment puis-je ajouter ces valeurs ensemble par leur position dans le tableau (en l'exemple précédent 1,2 et 3 étaient tous les premiers éléments de leurs tableaux), diviser par trois et les stocker dans un nouveau tableau en Visual basic?

exemple plus clair:

programme lit les numéros 1,2,3 (numéros d'exemple) à partir d'un fichier
les stocke dans un tableau
crée deux tableaux avec les mêmes valeurs dans les mêmes dimensions sauf qu'ils ont tous été augmenté de 1
Ajouter chaque valeur de chaque tableau à la même position et diviser par trois
valeurs de magasin dans un tableau différent

1st array: 
1 
2 
3 
2nd array: (add 1) 
2 
3 
4 
3rd array (add 2) 
3 
4 
5 
final array (add them via their position in the array and divide by 3) 
1 + 2 + 3 = 6/3 = 2 (1st value) 
2 + 3 + 4 = 9/3 = 3 (2nd value) 
3 + 4 + 5 = 12/3 = 4 (3rd value) 

Je suis en mesure d'obtenir les chiffres dans les tableaux avec le code suivant:

array1 = numbers.ToArray 
For Each element As Integer In array1 
    Console.WriteLine(element) 
Next 
Console.ReadLine() 
array2 = numbers.ToArray 
For Each element As Integer In array2 
    element += 1 
    Console.WriteLine(element) 
Next 
array3 = numbers.ToArray 
For Each element As Integer In array3 
    element += 2 
    Console.WriteLine(element) 
Next 

Le code est en mesure de prendre les numéros d'une liste d'entiers (numéros) et le stocker en conséquence mais qu'est-ce que des problèmes avec est ajouter chaque numéro en fonction de sa position dans le tableau:/

Toute aide serait les gars :) beaucoup apprécié

Answer 1

Dim array1 As Integer() = {1, 2, 3} 
Dim array2 As Integer() = {2, 3, 4} 
Dim array3 As Integer() = {3, 4, 5} 


Dim elementAvgs(array1.Length - 1) As Double 
For n As Int32 = 0 To array1.Length - 1 
    elementAvgs(n) = (array1(n) + array2(n) + array3(n))/3 
Next