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

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

Рекомендуемые публикации

Комментарии

Внимание! Все комментарии сначала проходят проверку администратором.

Добавить комментарий
Заголовок
Текст (Обязательное поле)
Ваше имя (Обязательное поле)
Адрес электронной почты (если имеется)
Ваша персональная страничка (если имеется)
Введите код, который указан на картинке:
 authimage

Support RusEdu

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