Program ten jak sama nazwa wskazuje zajmuje się analizą wpisanego przez nas tekstu.
Wypisuje nam, który wyraz wpisaliśmy jako pierwszy, ile ona ma liter, ile liter ma cały tekst i przykładowo wskazuje pierwszą pozycję litery e :)
Private t As String
procedura obsłudująca kliknięcie przycisku btnKoniec'
Private Sub btnKoniec_Click()
Unload Me
End Sub
'procedura obsługująca kliknęie przycisku btnSprawdz'
Private Sub btnSprawdz_Click()
Dim dlug, dlug1, ie, k As Integer
Dim Pierwszy As String
'sprawdza gdzie jest pierwsza spacja'
k = InStr(t, " ")
''wycina pierwszy wyraz'
Pierwszy = Left(t, k - 1)
'oblicza długość całego tekstu i pierwszego wyrazu'
dlug = Len(t)
dlug1 = Len(Pierwszy)
'wyznacza pozycję litery e'
ie = InStr(t, "e")
'wypisuje komunikat'
MsgBox "Tekst zaczyna się od wyrazu:" & Pierwszy & Chr(10) & _
"który ma" & Str(dlug1) & "liter." & Chr(10) & _
"Cały tekst ma długość" & Str(dlug) & "znaków." & Chr(10) & _
"Litera e po raz pierwszy występuje na pozycji" & Str(ie)
End Sub
'Procedura obsługująca zmianę pola tekstowego txtPole'
Private Sub txtPole_Change()
t = txtPole.Text
End Sub
