Текстовый калькулятор

05 Май, 2010 01:25 Добавить комментарий   

Программа показывающая работу с текстовыми строками.

Фрагмент программы:

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

Support RusEdu

Администрация сайта не несёт ответственности за размещаемый пользователями контент.