Module Module1
Sub Main()
Dim txt As String = ""
Dim arr() As Double = {20, 11, 34, 25, 55, 89}
Dim tot As Double = 0
For i As Integer = 0 To 5
If i < 5 Then
txt &= arr(i).ToString("0")
txt &= "+"
tot += arr(i)
Else
txt &= arr(i)
txt &= "="
tot += arr(i)
txt &= tot.ToString("0")
End If
Next
Console.WriteLine("Output: {0}", txt)
Console.Read()
End Sub
End Module
I don't speak Idiot - please talk slowly and clearly 'This space for rent' Driven to the arms of Heineken by the wife
