Sub conjugueur()
Open “D:/licenceTAL/xxx/verbe.txt” For Output As 1
vb$ = InputBox$(”entrez un verbe du 1er groupe”, “Conjugueur”, “émerger”)
Dim pp$(6)
pp$(1) = “je”
pp$(2) = “tu”
pp$(3) = “il / elle”
pp$(4) = “nous”
pp$(5) = “vous”
pp$(6) = “ils / elles”
Dim flex$(6)
flex$(1) = “e”
flex$(2) = “es”
flex$(3) = “e”
flex$(4) = “ons”
flex$(5) = “ez”
flex$(6) = “ent”
rad$ = Left$(vb$, Len(vb$) - 2)
k = InStr(”aeiouyé”, Left$(rad$, 1))
If k > 0 Then
pp$(1) = “j’”
End If
k2 = InStr(”g”, Right$(rad$, 1))
If k2 > 0 Then
flex$(4) = “eons”
End If
For i = 1 To 6
conj$ = pp$(i) + ” ” + rad$ + flex$(i)
Print #1, conj$
Next i
Close (1)
End Sub