2015-05-14
310
Результат: Visual Basic 6.0
Операция сравнения. При сравнении строк сравниваются их АSСII-коды. Сравнение символьных величин производится посимвольно слева направо. Это можно использовать при упорядочивании символьных данных по алфавиту.
Например 3:
"1977" > "1975"
"Петров" > "Перов"
В словах две первые буквы одинаковые, а третья буква отличается:
АSСII-код т — 242 АSСII-код р - 240
Встроенные функции обработки строк. В форматах функций обработки строк (табл. 15.1) умышленно добавлен суффикс $, чтобы показать, какие аргументы функции обязательно должны иметь тип String (строка) и какие функции возвращают значение типа String. В примерах суффикc отсутствует, так как в них используется явное определение переменных, как мы делаем всегда. В столбце "Результат" представлено то, что будет напечатано на форме в результате выполнения фрагмента программы, приведенной в столбце "Примеры ".
Табл.15.1
| Формат функции и ее назначение | Примеры | Результат |
| Len(x$) Определение длины строки х$ | Пример 4 Dim х As String х = "замечательный день" Print Len(x) | |
| Мid$(x$,i[j]) Выделение строки длиной jсимволов, начиная с i-го символа в строке х$ | Пример 5 Dim а As String, b As String с As String, а = "одна простая функция" b= "один" с =b + Mid(a, 5, 6) & "ой пример" Print c | один простой пример |
| Left$(x$,i) Выделение первых iсимволов в строке х$ (слева) | Пример 6 Dim р As String р = "Пример" Print Left(p, 1); " - "; Left(p, 10) | П - Пример |
| Right$(X$,i) Выделение последних iсимволов в строке х$ (справа) | Пример 7 Dim р As String, q As String Dlm L As Integer, i As Integer р = "Пример" L = Len(р) р=q Fоr i = 1 to L Print Left(q,1);""; q = Right (q, L-l) Next i | П р р р р р |
| InStr([i,]x$,y$) Отыскание места первого появления строки у$ в x$,начиная с позиции i | Пример 8 Dim а As String, b As String а = "VISUAL BASIC" b= "A " Print Instr(a, b); Instr(7, а, b) | 5 9 |
| Asс(х$) Выдача цифрового значения, которое соответствует коду АSСII первого символа строки х$ | Пример 9 Dim а As String a="VISUAL BASIC" Print Asс (а) | |
| Chr$(i) Выдача символа, код ASCII которого определяется аргументом функции | Пример 10 Print Chr (86) Print Chr (Аsс("э")+ 1) | V ю |
| Space$(i) Выдача строки, содержащей i пробелов | Пример 11 Print "Пример"; Space(5); 5 | Пример 5 |
| LCase$(x$) Перевод всех прописных букв строки х$ в строчные | Пример 12 Print LСаsе("СТроКА") | строка |
| UCase$(x$) Перевод всех строчных букв строки х$ в прописные | Пример 13 Print UСаsе("СТроКА") | СТРОКА |
| StrConv$(x$, VbStrConv. vbProperCase) Перевод первых букв всех слов строки х$ в прописные | Пример 14 Print StrConv("visual basic" VbStrConv. vbProperCase) | Visual Basic |
| LТrim$(x$) Удаление пробелов в начале строки | Пример 15 Dim а As String а = " Иванов Петр" Print LТrim (а) | Иванов Петр |
| RTrim$(x$) Удаление пробелов в конце строки | Пример 16 Dim а As String а = " Иванов " Print RTrim (а); " Петр" | Иванов Петр |
| Trim$(x$) Удаление пробелов в начале и в конце строки | Пример 17 Dim а As String а = " Иванов " Print Trim (а); " Петр" | Иванов Петр |
| Vаl(х$) Преобразует строку в число | Пример 18 Print Vа1 ("20 км. и 800 м.") Print Vа1(" - 21 800 м.") Print 3 * Vа1 ("2" & "0") Print Vа1("В строке нет цифр") | -21800 |
| Str$(i) Преобразует число в строку | Пример 19 Print Str (5 * 5) |
ЗАВДАННЯ 15.1. Постановка задачи: ВЫПОЛНИТЬ ПРОЕКТ — СТРОКОВЫЙ КАЛЬКУЛЯТОР. На рис. 15.1 представлен возможный вид приложения после его запуска и щелчка по кнопке < UCase >. На рис. 15.2 - 15.3 показана работа приложения после щелчка по кнопке < Mid >.
|
|
|
|
|
|
