>Ciao, ho provato il tuo codice e funziona il parte :
>esegue la somma ma non non mi calcola gli ultimi
>2 numeri decimali esempio
>
>dovrei visualizzare tot 23,12
>
>e invece
>
>visualizzo tot 23,00
>
>ho provato a smanettare con qualche modifica al codice
>ma niente da fare.
>In tanto provo ancora.
>grazie
Il codice che ho scritto riporta la somma corretta...ricontrolla...questo è in una form con due textbox, textbox1 è multiline, e due button per eseguire il codice versione "tua" e versione "mia":
Public Class Form1
Private Sub Form1_Load() Handles MyBase.Load
TextBox1.Text = "12,23" & vbCrLf & _
"11,22" & vbCrLf & "20,34"
End Sub
Private Sub Button1_Click() Handles Button1.Click
Dim somma As Decimal = 0
For a = 0 To TextBox1.Lines.Count - 1
somma = somma + CDec(TextBox1.Lines(a))
Next
Console.WriteLine("totale = " & somma)
TextBox2.Text = somma
End Sub
Private Sub Button2_Click() Handles Button2.Click
Dim z As Double
Dim x As Integer
Dim y() As String
y = Split(TextBox1.Text, vbCrLf)
x = UBound(y)
For r = 0 To x
Decimal.TryParse(y(r), x)
z = z + CDec(y(r))
z = Format(z, ("00.00"))
Next
Console.WriteLine("totale = " & z.ToString("N2"))
TextBox2.Text = z.ToString("N2")
End Sub
End Class
Ovviamente ho presupposto che le "cifre" inserite nella textbox siano nel formato indicato e verificate a monte...