Ecco due esempi trovati sul forum di masterdrive sulla somma di vettori in visual basic:


Codice:
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As Integer = 123456
        Dim Totale As Integer
        Dim s1 As String = s.ToString
        Try
            For x As Integer = 1 To s1.Length - 1 Step 2
                Dim Valore As Integer = CType(s1.Substring(x, 1), Int32) ' Converte il carattere in integer
                Totale = Totale + (Valore * 2)
            Next
            MessageBox.Show(Totale.ToString)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try


    End Sub

Codice:
Dim Somma as integer
dim estratto(5), valori as integer 
valori=val(valori.text)
estratto(1)=mid(valori,2,1)
Somma = estratto(1)
estratto(2)=mid(valori,4,1)
Somma += estratto(2)
estratto(3)=mid(valori,6,1)
Somma += estratto(3)
estratto(4)=mid(valori,8,1)
Somma += estratto(4)
estratto(5)=mid(valori,10,1)
Somma += estratto(5)

Mirraccomando, nel secondo esercizio: += equivale a: Somma = Somma + estratto(X)
Per la somma: Somma = Somma * estratto(X)