 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Функции для работы со строковыми переменными
| Функция | Назначение |
| Len (строка) | Возвращает длину строки, включая пробелы |
| Trim (строка) | Удаляет начальные и конечные пробелы |
| Ltrim (строка) | Удаляет начальные пробелы |
| Rtim(строка) | Удаляет конечные пробелы |
| Mid(строка,начальнаяпозиция[, числосимволов]) | Выделяет из строки, начиная с указанной позиции заданное число символов |
| Mid(строка, начальнаяпозиция) | Выделяет из строки, начиная с указанной позиции оставшуюся часть |
| Instr (нач_ позиция,строка_исходная,подстрока) | Ищет позицию первого включения внутри заданной строки подстроки |
| Right(строка, число_символов) | Из заданной строки выделяет справа заданное число символов |
| Left(строка,число_символов) | Из заданной строки выделяет слева заданное число символов |
| Space(число_пробелов) | Строка пробелов заданной длины |
| Time() | Строка, содержащая текущее время |
| Date() | Строка, содержащая текущую дату |
| Str(число) | Преобразует число в строку |
| Val(строка) | Преобразует строку в число |
| Lcase(строка) | Строка, алфавитные символы которой преобразованы в нижний регистр |
| Ucase(строка) | Строка, алфавитные символы которой преобразованы в верхний регистр |
| Chr(код_символа) | Возвращает символ |
| String(Число_символов,символ) | Задаёт строку заданной длины указанных символов |
| StrComp (строка1,строка2[,0 или 1 ]) | Сравнивает строку1 со строкой2, если 1- не различать верхний регистр, 0-различать |
Пример
Выбрать слова из предложения, начинающиеся на заданную букву.
Dim s As String, n, k As Integer, i As Integer, b, c As String
s = InputBox("Ввести строку") 'Вводим строку
c = InputBox("Ввести символ") 'Вводим заданную букву
s = Trim(s) & " " 'Удаляем пробелы в начале
' и конце и добавляем в конце
n = Len(s) 'Вычисляем длину строки
i = 1 'Задаём начальное_значение пар-ра цикла
Do While i <= n - 1 'Пока не достигнут конец строки
k = InStr(i, s, " ") 'Ищем позицию пробела,начиная с i
b = Mid(s, i, k - i) 'Выделяем слово
If Left(b, 1) = c Then 'Если 1-я буква слова совпадает
MsgBox b 'с заданным символом,то вывод
End If 'слова
i = k + 1
Loop
Пример
Одномерный массив задан строкой текстового поля.
Написать функцию, которая ищет максимальный элемент в массиве.
Так как размер строки не задан, то удобно использовать понятие дина- мического массива.
Алгоритм выполнения задачи:
1.В конструкторе форм создать форму вида:
 |
В форме размещены два текстовых поля с именами Поле0 и Поле3 и кнопка, по нажатию которой пишем программный код:
Поиск по сайту: