coniugazione verbi latini
Rem coniugazione verbo latino regolare Private Sub CommandButton1_Click() Dim infinito As String Dim perfetto As String Dim forma(6) As String Dim lungo As Integer Dim x As Integer Dim codice As Integer Dim coniuga(6) As String Dim radice As String Dim radicep As String infinito = verbo.Text perfetto = perfettox.Text codice = indice.Text lungo = Len(verbo.Text) lungop = Len(perfettox.Text) radice = Left$(infinito, lungo - 3) radicep = Left$(perfetto, lungop - 1) Select Case codice Case 1 forma(1) = "o" forma(2) = "as" forma(3) = "at" forma(4) = "amus" forma(5) = "atis" forma(6) = "ant" For x = 1 To 6 coniuga(x) = radice & forma(x) Next x prima.Caption = coniuga(1) seconda.Caption = coniuga(2) terza.Caption = coniuga(3) quarta.Caption = coniuga(4) quinta.Caption = coniuga(5) sesta.Caption = coniuga(6) Case 2 forma(1) = "abam" forma(2) = "abas" forma(3) = "abat" forma(4) = "abamus" forma(5) = "abatis" forma(6) = "abant" For x = 1 To 6 coniuga(x) = radice & forma(x) Next x prima.Caption = coniuga(1) seconda.Caption = coniuga(2) terza.Caption = coniuga(3) quarta.Caption = coniuga(4) quinta.Caption = coniuga(5) sesta.Caption = coniuga(6) Case 3 forma(1) = "abo" forma(2) = "abis" forma(3) = "abit" forma(4) = "abimus" forma(5) = "abitis" forma(6) = "abunt" For x = 1 To 6 coniuga(x) = radice & forma(x) Next x prima.Caption = coniuga(1) seconda.Caption = coniuga(2) terza.Caption = coniuga(3) quarta.Caption = coniuga(4) quinta.Caption = coniuga(5) sesta.Caption = coniuga(6) Case 4 forma(1) = "i" forma(2) = "isti" forma(3) = "it" forma(4) = "imus" forma(5) = "istis" forma(6) = "erunt" For x = 1 To 6 coniuga(x) = radicep & forma(x) Next x prima.Caption = coniuga(1) seconda.Caption = coniuga(2) terza.Caption = coniuga(3) quarta.Caption = coniuga(4) quinta.Caption = coniuga(5) sesta.Caption = coniuga(6) Case 5 forma(1) = "eram" forma(2) = "eras" forma(3) = "erat" forma(4) = "eramus" forma(5) = "eratis" forma(6) = "erant" For x = 1 To 6 coniuga(x) = radicep & forma(x) Next x prima.Caption = coniuga(1) seconda.Caption = coniuga(2) terza.Caption = coniuga(3) quarta.Caption = coniuga(4) quinta.Caption = coniuga(5) sesta.Caption = coniuga(6) Case 6 forma(1) = "ero" forma(2) = "eris" forma(3) = "erit" forma(4) = "erimus" forma(5) = "eritis" forma(6) = "erint" For x = 1 To 6 coniuga(x) = radicep & forma(x) Next x prima.Caption = coniuga(1) seconda.Caption = coniuga(2) terza.Caption = coniuga(3) quarta.Caption = coniuga(4) quinta.Caption = coniuga(5) sesta.Caption = coniuga(6) End Select End Sub Private Sub UserForm_Click() End Sub