Проект № 7 «Строковый калькулятор».

Проект № 7 «Строковый калькулятор». 1. Разместить на форме три текстовых поля (txt1, txt2 – для ввода строк, txt3 – для  вывода результата) и       кнопку cmdCon. 2. Для кнопки ввести программный код событийной процедуры cmdCon_Click(),  реализующий операцию конкатенации: Sub cmdCon_Click() Txt3.Text = txt1.Text + txt2.Text End Sub 3. Запустить проект, в два первых поля ввести строки и щёлкнуть по кнопке  Конкатенация. В третьем поле появится результат сложения двух строк. Воспользуемся теперь для преобразования строк строковой функцией Mid$ (строка$,bytM,bytN). Функция вырезает из строки$ подстроку, начинающуюся с  символа, позиция которого в строке задаётся целочисленной переменной  bytM, и  имеющую длину, заданную целочисленной переменной bytN. 4. Разместить на форме два текстовых поля txt1Mid и  txt2Mid для ввода значений  переменных bytM и      bytN и кнопку cmdMid. 5. Для кнопки ввести программный код событийной процедуры cmdMid_Click(),  реализующий операцию вырезания подстроки. Для преобразования строковых  значений свойства Text текстовых полей в числа использовать функцию Val: Sub cmdMid_Click() Txt3.Text = Mid$(txt1.Text, Val(txt1Mid.Text),Val(txt2Mid.Text)) End Sub 6. Запустить проект, в первое поле ввести строку, в поля ввода аргументов функции  вырезанной подстроки  ввести числа и щёлкнуть по кнопке Mid$. В третьем поле  появится вырезанная подстрока. 7. Разместить на форме кнопку cmdLen и ввести программный код событийной  процедуры cmdLen_Click(), реализующий операцию определения количества  символов в строке: Sub  cmdLen_Click() Txt3.Text = Len (txt1.Text) End Sub 8. Запустить проект, в первое поле ввести строку и щёлкнуть по кнопке Len. В  третьем  поле появится число символов в строке. 9. Разместить на форме кнопку  cmdAsc и ввести программный код событийной  процедуры cmdAsc_Click(),  реализующий операцию определения числового кода  символа: Sub  cmdAsc_Click() Txt3.Text = Asc(txt1.Text) End Sub 10. Запустить проект, в первое поле ввести символ и щёлкнуть по кнопке  Asc.  В  третьем поле появится числовой код символа. Проект № 7 «Строковый калькулятор». 1. Разместить на форме три текстовых поля (txt1, txt2 – для ввода строк, txt3 – для  вывода результата) и       кнопку cmdCon. 2. Для кнопки ввести программный код событийной процедуры cmdCon_Click(),  реализующий операцию конкатенации: Sub cmdCon_Click() Txt3.Text = txt1.Text + txt2.Text End Sub 3. Запустить проект, в два первых поля ввести строки и щёлкнуть по кнопке  Конкатенация. В третьем поле появится результат сложения двух строк. Воспользуемся теперь для преобразования строк строковой функцией Mid$ (строка$,bytM,bytN). Функция вырезает из строки$ подстроку, начинающуюся с  символа, позиция которого в строке задаётся целочисленной переменной  bytM, и  имеющую длину, заданную целочисленной переменной bytN. 4. Разместить на форме два текстовых поля txt1Mid и  txt2Mid для ввода значений  переменных bytM и      bytN и кнопку cmdMid. 5. Для кнопки ввести программный код событийной процедуры cmdMid_Click(),  реализующий операцию вырезания подстроки. Для преобразования строковых  значений свойства Text текстовых полей в числа использовать функцию Val: Sub cmdMid_Click() Txt3.Text = Mid$(txt1.Text, Val(txt1Mid.Text),Val(txt2Mid.Text)) End Sub 6. Запустить проект, в первое поле ввести строку, в поля ввода аргументов функции  вырезанной подстроки  ввести числа и щёлкнуть по кнопке Mid$. В третьем поле  появится вырезанная подстрока. 7. Разместить на форме кнопку cmdLen и ввести программный код событийной  процедуры cmdLen_Click(), реализующий операцию определения количества  символов в строке: Sub  cmdLen_Click() Txt3.Text = Len (txt1.Text) End Sub 8. Запустить проект, в первое поле ввести строку и щёлкнуть по кнопке Len. В  третьем  поле появится число символов в строке. 9. Разместить на форме кнопку  cmdAsc и ввести программный код событийной  процедуры cmdAsc_Click(),  реализующий операцию определения числового кода  символа: Sub  cmdAsc_Click() Txt3.Text = Asc(txt1.Text) End Sub 10. Запустить проект, в первое поле ввести символ и щёлкнуть по кнопке   Asc В  третьем поле появится числовой код символа.