[الكاتب]

كود :

If t.Text.Trim = "" Then
            GoTo M ' يخرج إذا لم يكن المجموع ذا قيمة
        End If
        Dim SOMING As Integer = t.Text ' متغير لتخزين القيمة السابقة وجمعها مع القيمة الجديدة
        t.Text = ""
M:      ' بعد الخروج يصل هنا
        Dim a As Integer = Convert.ToInt32(t1.Text)
        Dim b As Decimal = Convert.ToDecimal(t2.Text)
        Dim result As Decimal = a * b
        Dim t3 As Integer = (result) ' نالتج العملية


        t.Text = result.ToString + SOMING ' جمع القيمة السابقة مع الناتج الحالي


        ' SOMING تمثل القيمة السابقة