Soyez le premier à donner votre avis sur cette source.
Snippet vu 142 299 fois - Téléchargée 32 fois
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.