seconda coniugazione

per vedere secondalatino.ppt
oggetti come in prima coniugazione (cambiano diciture i 1,2,3 label e due pulsanti)

uso di Len, Left$ per determinazione radici da infinito e perfetto (restante codice simile a prima coniugazione,eccetto desinenze)

Public Sub commandbutton1_Click()
Rem indicativo e congiuntivo seconda coniugazione regolare latina
Rem inserire radice di infinito e radice di perfetto
Dim radice, raperfetto As String
infinito = forma 'infinito
perfetto = perfetto 'perfetto
Dim lungoi 'lunghezza infinito
Dim lungop 'lunghezza perfetto
lungoi = Len(infinito)
lungop = Len(perfetto)
radice = Left$(infinito, lungoi - 3) 'radice infinito
raperfetto = Left$(perfetto, lungop - 1) 'radice perfetto

terza e quarta coniugazione simili a seconda (eccetto per le desinenze) (formato diverso nella quarta coniugazione)