6. Работа с текстовыми данными

Задание

Поместить на форму два текстовых поля и командную кнопку. Свойству Name первого поля задать значение Field1, второго — Field2. Свойству Text первого поля задать значение Иванов, другого — Петров.

В модуле кода формы написать следующее:

Option Explicit

Private Sub cmdGo_Click()

Field1.Text = Field2.Text

Field2.Text = Field1.Text

End Sub

Вопросы к заданию

1. Разработать интерфейс пользователя и привести в отчёте изображение формы с описанием всех объектов интерфейса и их назначения.

2. В отчёте объяснить результат работы программы.

3. Поменять местами строки с операторами присваивания. В отчёте объяснить результат.

4. Усовершенствовать программу, чтобы значения полей менялись местами. В отчёте привести соответствующий фрагмент кода и описать суть сделанных изменений.

7. Округление числовых данных

Задание

Создать программу, округляющую вводимое пользователем число до заданного разряда (например: число 1,23456 округлить до тысячных).

На форме поместить текстовое поле для ввода исходного числа, поле для ввода количества разрядов округления, метку для вывода результата и командную кнопку, при нажатии которой будет выполняться округление.

В модуле кода формы написать код нестандартной функции округления (см. прил. 1, функция dblRound).

Вопросы к заданию

1. Разработать интерфейс пользователя и привести в отчёте изображение формы с описанием всех объектов интерфейса и их назначения.

2. В модуле кода формы создать процедуру-событие на щелчок на кнопке. В этой процедуре прописать вызов функции округления с передачей ей для обработки двух чисел: округляемого и номера разряда, до которого производится округление. В отчёте привести строку с вызовом функции, описать все элементы выражения.

3. Добавить на форму поле метки. В код программы добавить округление числа с использованием функции Format() (см. прил. 1). Результат вывести в поле созданной метки. В отчёте привести соответствующий программный код и разъяснение выполняемых действий.

4. Добавить на форму ещё два поля меток. В одно из них вывести результат умножения числа на значение π, округленного до тысячных долей с помощью функций dblRound(), а в другое — округленного с помощью функций Format(). Объяснить различие результатов.

8. Область действия переменных

Задание

В правой части формы поместить командную кнопку. Свойству Name кнопки присвоить значение cmd1, свойству Caption — значение «1».

В модуле кода формы написать следующий текст.

Option Explicit

Dim x As Integer

Dim y As Integer

Sub cmd1_Click()

Dim k As Integer

Dim m As Integer

x = 1

y = 2

k = 3

m = 4

Print x, y, k, m

End Sub

Вопросы к заданию

1. Привести в отчёте изображение формы с описанием всех объектов интерфейса и их назначения.

2. Запустить программу. Объяснить результат.

3. Закомментировать в тексте программы объявление переменных k и m. Объяснить результат.

4. В меню Tools (Инструменты) открыть элемент Options (Настройки), на вкладке Editor (Редактор) убрать пометку с элемента Require Variable Declaration и выбрать кнопку OK. Затем в тексте программы удалить строку Option Explicit. Запустить программу и объяснить результат.

5. Создать на форме вторую кнопку. Раскомментировать объявления переменных k и m и поместить их рядом с объявлениями переменных x и y. В модуле кода формы написать следующее.

Sub cmd2_Click()

x = 5

y = 6

k = 7

m = 8

Print x, y, k, m

End Sub

Объяснить результат.

6. Объявления переменных k и m перенести внутрь обеих процедур. Объяснить результат.

7. Написать в операторах объявления переменных корректные указатели области действия. Обосновать выбор указателей.

8. Внутри процедуры объявить статическую переменную z. При каждом нажатии командной кнопки значение переменной должно увеличиваться на единицу и печататься на форме. В отчёте привести иллюстрацию формы и соответствующий фрагмент кода.