End Sub. 3. Запустить проект, в два первых поля ввести строки и щелкнуть по кнопке Кон­ катенация

3. Запустить проект, в два
первых поля ввести строки
и щелкнуть по кнопке Кон­
катенация. В третьем поле
появится результат сложе­
ния двух строк.

Воспользуемся теперь для преобразования строк строковой функцией Mid$ (CTpoKa$,bytM,bytN). Функция вырезает из строки? подстроку, начинающуюся с символа, позиция кото­рого в строке задается целочисленной переменной bytM, и имеющую длину, заданную целочисленной переменной bytN.

4. Разместить на форме два текстовых поля txtlMid и txt2Mid для ввода значений переменных bytM и bytN и кнопку cmdMid.

5. Для кнопки ввести программный код событийной проце­дуры cmdMid_Click (), реализующий операцию выреза­ния подстроки. Для преобразования строковых значений свойства Text текстовых полей в числа использовать функцию Val:

Sub cmdMid_Click()

txt3.Text = Mid$(txtl.Text, Val(txtlMid.Text),

Val(txt2Mid.Text))

End Sub

ites. Ш M

6. Запустить проект, в первое
поле ввести строку, в поля
ввода аргументов функции
вырезанной подстроки ввести
числа и щелкнуть по кнопке
Mid$. В третьем поле появится вырезанная подстрока.

Для определения количества символов в строке использу­ется функция определения длины строки Len (строка$), аргументом которой является строка, а возвращает функция число, равное количеству символов в строке.

7. Разместить на форме кнопку cmdLen и ввести програм­
мный код событийной процедуры cmdLenClick (), реа­
лизующий операцию определения количества символов в
строке:

Sub cmdLen_Click () txt3.Text = Len(txtl.Text) End Sub

7-2645

Глава 4

8. Запустить проект, в первое
поле ввести строку и щелк­
нуть по кнопке hen. В третьем
поле появится число символов
в строке.

Для преобразования символов в соответствующий им чис­ловой код используется функция Азс(строка$), при этом необходимо иметь в виду, что функция возвращает числовой код первого символа строки.

9. Разместить на форме кнопку cmdAsc и ввести програм­
мный код событийной процедуры cmdAscClick (), реа­
лизующий операцию определения числового кода симво­
ла:

Sub cmdAsc__Click () txt3.Text = Asc(txtl.Text) End Sub

10. Запустить проект, в первое поле ввести символ и щелк­нуть по кнопке Asc. В третьем поле появится числовой код символа.

Проект хранится в каталоге

\textbook\VB\prjVB7\ _________

CD-ROM D3T

«««и*.,/»

Практические задания

4.18. Модернизировать проект «Строковый калькулятор». Доба­вить возможности вырезания из строки левой и правой под­строк, определение позиции начала подстроки в строке и пре­образования числового кода символа в символ.

4.9.4. Функции ввода и вывода

Функция InputBox (Окно Ввода). Функция InputBox позволяет вводить данные с помощью диалоговой панели ввода. В качестве аргументов этой функции выступают три строки, значением функции является также строка. Синтак­сис функции следующий:

$_? InputBox (Приглашение$,

■£* [ПоУмолчанию$])

Заголовок^,