Exercice VB: Programme Conjugaison des verbes
Ecrire le programme qui permet de réaliser l'interface suivante:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Public Class Form1 Dim i, position, er As Int16 Private Sub conjuger_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim pers() As String = {"je", "tu", "il/elle", "nous", "vous", "ils/elles"} Dim term() As String = {"e", "es", "e", "ons", "ez", "ent"} Dim terminison() As String = {"is", "is", "it", "ssons", "ssez", "ssent"} Dim w(6), v, x, verbe As String verbe = TextBox1.Text v = verbe.Substring(verbe.Length - 2, 2) If String.Equals(v, "er") Then x = verbe.Replace("er", "") MsgBox("ce verbe est du 1er groupe") For i = 0 To 5 w(i) = (pers(i) + " " + x + term(i)) ListBox1.Items.Add(w(i)) Next Else MsgBox(" ce verbe n'est pas du 1èr groupe") End If If String.Equals(v, "ir") Then x = verbe.Replace("ir", "") MsgBox("ce verbe est du 2eme groupe") For i = 0 To 5 w(i) = (pers(i) + " " + x + terminison(i)) ListBox1.Items.Add(w(i)) Next Else MsgBox(" ce verbe n'est pas du 2eme groupe") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ListBox1.Items.Clear() End SubEnd Class |