Textboxlara girilen 3 basamaklı sayılar arasındaki farkı bulan programı yazacağız.

Gerekli Araçlar: 2 Textbox, 1 button ve 1 Label




Button1_click olayına

a = TextBox1.Text \ 100
        b = TextBox1.Text Mod 10
        c = TextBox1.Text Mod 100
        d = c \ 10
        f = a + b + d
        g = TextBox2.Text \ 100
        h = TextBox2.Text Mod 10
        ı = TextBox2.Text Mod 100
        j = ı \ 10
        k = g + h + j


        If k > f Then
            Label1.Text = k - f
        Else
            Label1.Text = f - k
        End If

Değişkenlerimizi tanımlayalım:

Dim a, b, c, d, f, g, h, ı, j, k As Integer