- 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
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