Accueil > > > LES TABLES ADDITION,SOUSTRACTION,MULTIPLICATION ET DIVISION
LES TABLES ADDITION,SOUSTRACTION,MULTIPLICATION ET DIVISION
Information sur la source
Description
permet aux enfants d'apprendre ou reviser leur tables
Source
- 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
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Comportement bizzard : Les nouveaux enregistrements de la table Enfants sont ignorés [ par BasicZx81 ]
Bonsoir, j'espère ne pas abuser en demandant une fois de plus de l'aide. J'ai un Dataset comprenant 2 tables Parents, Enfants. Si j'ajoute simultaném
Access97: pb d'accés au tables par VBA lorsque la base est sécurisée. [ par Rajah ]
Bonjour J'ai developpé une application sur Access qui est installée sur réseau. La base de donnée a des droits d'accés différent suivant qu'on se logu
qui peut m apprendre le VB svp [ par rakim ]
je cherche des gens sur versailles ou assez pres pour m apprendre le vb. j ai 16 ans .je veux bien payer 10 frf de l heure!!
Urg: Comment attacher des tables sql dans une base access via VB [ par Webmineur ]
Urg: Comment attacher des tables sql server dans une base access via VB ?si quelqu'un a une idée, je suis preneur !merciA+Vincent
Mise a jour d'une Vue [ par jc ]
lorsque je met à jour depuis une page ASP ,une vue composée de deux tables X et Y par requete sql du typeUPDATE [Liste] SET Champs1=v1,Champs2=v2WHERE
tables liees sur plusieurs categories? [ par GAL ]
bonjour, aucun probleme pour lier deux tables (access): tbClient etant liee à tbCategories, afin de selectionner LA categorie à laquelle appartient le
Liaison de tables dans un BD [ par Batin ]
Bonjour,j'aurai aimé savoir comment lier plusieurs tables d'une base de donnée (type access) et la requete SQL correspondante . (requête qui utilise l
pb de bd [ par laure ]
Bonjour,jai deux questions :1/ dans ma base de données ACCESS, j'ai des tables qui me sont apparues :MSysAccessObjectsMSysACEsMSysObjectsMSysQUeriesMS
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|