LES TABLES ADDITION,SOUSTRACTION,MULTIPLICATION ET DIVISION

Public Class Form1
    Dim i, a, r, rd As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Clear()
        For i = 1 To 9 Step 1
            a = Val(TextBox2.Text)
            r = a + i
            Label2.Text = "VOICI LA TABLE D'ADDITION DE " & a
            TextBox1.Text = TextBox1.Text & vbNewLine & a & " + " & i & " = " & CStr(r)
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        For i = 1 To 9 Step 1
            a = Val(TextBox2.Text)
            r = a - i
            If r < 0 Then r = i - a : TextBox1.Text = TextBox1.Text & vbNewLine & i & " - " & a & " = " & CStr(r) Else TextBox1.Text = TextBox1.Text & vbNewLine & a & " - " & i & " = " & CStr(r)
            Label2.Text = "VOICI LA TABLE DE SOUSTRACTION DE " & a

        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Clear()
        For i = 1 To 9 Step 1
            a = Val(TextBox2.Text)
            r = a * i
            Label2.Text = "VOICI LA TABLE DE MULTIPLICATION DE " & a
            TextBox1.Text = TextBox1.Text & vbNewLine & a & " * " & i & " = " & CStr(r)
        Next
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Clear()
        For i = 1 To 9 Step 1
            a = Val(TextBox2.Text)
            r = a * i
            rd = r / i
            Label2.Text = "VOICI LA TABLE DE DIVISION DE " & a
            TextBox1.Text = TextBox1.Text & vbNewLine & r & " / " & i & " = " & CStr(rd)
        Next
    End Sub

    Private Sub QUITTERToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QUITTERToolStripMenuItem.Click
        End
    End Sub
End Class