Текстовый калькулятор
Программа показывающая работу с текстовыми строками.
Фрагмент программы:
Private Sub cmd1_Click()
txt1.Text = Len(txtSlovo.Text) 'Количество символов в строке
txt2.Text = Left(txtSlovo.Text, 1) 'Символы стоящие слева строки
txt3.Text = Right(txtSlovo.Text, 1) 'Символы стоящие справа строки
txt4.Text = Mid(txtSlovo.Text, 3, 1) 'Символы (от/до) определенного значения
txt5.Text = Mid(txtSlovo.Text, Len(txtSlovo.Text) - 2, 1)
txt6.Text = "" 'цикл подсчета номеров букв в алфавите
For i = 1 To Len(txtSlovo.Text)
txt6.Text = txt6.Text & NBVA(Mid(txtSlovo.Text, i, 1)) & "; "
Next i
txt7.Text = "" 'цикл подсчета номеров букв в алфавите
For i = 1 To Len(txtSlovo.Text)
txt7.Text = txt7.Text & Asc(Mid(txtSlovo.Text, i, 1)) & "; "
Next i
End Sub
Скачать программу: http://kosmonavtom.rusedu.net/gallery/143/2010-05-04_Tekstovyi_kalkulyator_3.zip