Синтаксис

Mid(string, start[, length])

Синтаксис функции Mid содержит следующие именованные аргументы:

Элемент Описание

string Обязательный. Строковое выражение, из которого извлекаются символы. Если string имеет значение Null, возвращается значение Null.

start Обязательный. Значение типа Long. Позиция символа в строке string, с которого начинается нужная подстрока. Если start больше числа символов в строке string, функция Mid возвращает пустую строку ("").

length Необязательный. Значение типа Variant (Long). Число возвращаемых символов. Если этот аргумент опущен или превышает число символов, расположенных справа от позиции start, то возвращаются все символы от позиции start до конца строки.

Дополнительные сведения

Для определения числа символов в string следует использовать функцию Len.

Примечание. Эквивалентной функцией обработки строк по байтам является функция MidB. В этом случае аргументы указывают число байт (а не символов).

В данном примере функция Mid используется для извлечения указанного числа символов из строки.

Dim MyString, FirstWord, LastWord, MidWords

MyString = "Пример функции Mid" ' Инициализирует строку.

FirstWord = Mid(MyString, 1, 6) ' Возвращает "Пример".

LastWord = Mid(MyString, 16, 3) ' Возвращает "Mid".

MidWords = Mid(MyString, 8) ' Возвращает "функции Mid".

16) TYPENAME

Возвращает значение типа String, представляющее тип переменная.

Синтаксис

TypeName(имяПеременной)

Обязательный аргумент имяПеременной представляет выражение типа Variant, определяющее любую переменную, за исключением переменной с определяемым пользователем типом.

Дополнительные сведения

Строка, возвращаемая функцией TypeName, может быть любой из следующих:

Строка	Значение переменной
ТипОбъекта	Объект указанного типа.
Byte	Байтовое .
Integer	Целое.
Long	Длинное целое.
Single	С плавающей точкой обычной точности.
Double	С плавающей точкой двойной точности.
Currency	Денежное.
Decimal	Типа Decimal
Date	Дата.
String	Строковое.
Boolean	Логическое.
Error	Значение ошибки.
Empty	Не инициализированное.
Null	Пустое.
Object	Объект.
Unknown	Объект неизвестного типа.
Nothing	Объектная переменная, не содержащая ссылки на объект.

Если имяПеременной представляет массив, то возвращается одна из перечисленных выше строк (или Variant) с добавлением пустых скобок. Например, если имяПеременной представляет массив целых значений, то TypeName возвращает строку "Integer()".

Варианты заданий

В ранее разработанный проект со строковыми переменными (см. задание 4) добавить новую рамку с необходимыми текстовыми окнами.

1. Представить слово «информатика» («программирование»), написанное строчными буквами, в виде заглавных букв.

2. Слово «УНИВЕРСИТЕТ» («КАФЕДРА»), написанное заглавными буквами, представить строчными буквами.

3. В строке «российская федерация» («день рождения») 1-ую букву каждого слова сделать заглавной.

4. В 1-ое текстовое поле (ТП) ввести слово «хорошая», во 2-ое ТП ввести слово «оценка». В 3-ем ТП получить словосочетание из этих двух слов с 5 пробелами между ними.

5. Имеется строка «компьютерный класс». Вывести количество символов в строке.

6. Имя строковой переменной Mark. Если Mark=«отлично» (вводится в 1-ое текстовое поле), то во 2-ое ТП вывести число байт, необходимое для размещения переменной.

7. Из строки « программа» удалить лишние пробелы.

8. Имеется слово «аудитория» («информатика»). Вывести первые 4 символа.

9. Имеется слово «аудитория» («информатика»). Вывести последние 3 символа.

10. Имеется слово «аудитория» («информатика»). Вывести из него только срединные 3 символа: «тор» (4 символа: «форм»).

11. С помощью соответствующей операции со строками вывести 10 раз знак $.

12. С помощью соответствующей операции со строками вывести из слова «Сад» 20 раз повторяющуюся букву С.