|
|||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
Задание 1. Создать проект, который позволит производить преобразование строк с использованием строковых функций
Создать проект, который позволит производить преобразование строк с использованием строковых функций. Запустите в операционной системе Windows систему объектно-ориентированного программирования Visual Basic и создайте новый проект Приложение Windows Forms. Разместите на форме (рис.8.1.) Рис.8.1. Строковый калькулятор 1. текстовое поле TextBox1 для вывода строкового аргумента Строка; 2. текстовое поле TextBox2 для вывода числового аргумента Позиция; 3. текстовое поле TextBox3 для вывода числового аргумента Длина; 4. текстовое поле TextBox4 для ввода числового аргумента Код символа; 5. надпись Label1 для вывода результата; 6. шесть кнопок для запуска обработчика событий. Создадим для каждой кнопки обработчик события, реализующий одну из строковых функций. Событийная процедура реализующая функцию Left() Private Sub Button1_Click() Handles Button1.Click Label1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Val(TextBox2.Text)) End Sub Событийная процедура реализующая функцию Right() Private Sub Button2_Click() Handles Button1.Click Label1.Text = Microsoft.VisualBasic.Right(TextBox1.Text, Val(TextBox2.Text)) End Sub Событийная процедура реализующая функцию Mid() Private Sub Button3_Click() Handles Button3.Click Label1.Text = Mid(TextBox1.Text, Val(TextBox2.Text), Val(TextBox3.Text)) End Sub Событийная процедура реализующая функцию Len() Private Sub Button4_Click() Handles Button4.Click Label1.Text = Len(TextBox1.Text) End Sub Событийная процедура реализующая функцию Asc() Private Sub Button5_Click() Handles Button5.Click Label1.Text = Asc(TextBox1.Text) End Sub Событийная процедура реализующая функцию Chr() Private Sub Button6_Click() Handles Button6.Click Label1.Text = Chr(Val(TextBox4.Text)) End Sub Запустите проект, в первое поле введите слово, (например, «студентка»), во второе поле – порядковый номер символа, (например, 1), в третьем поле – количество вырезаемых символов, (например, 7). Кликните по кнопке Mid(). На метке появится слово «студент». Введите в текстовое поле возле кнопки Chr() любой символ от 0 до 255, (например, 200) и кликните по кнопке Chr(). На метке появится символ И. Поиск по сайту: |
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.) |