Msgbox «проверьте правильность введенного данного»

TextBox1.SetFocus

Exit Sub

End If

Обратите внимание, что условный оператор используется в блочной форме.

Аналогичные блоки нужно использовать и для проверки правильности других введенных данных.

Далее считываем исходные данные и преобразуем их в нужный тип:

ИсходнаяСумма = CDbl(TextBox1.Text)

ВыплаченнаяСумма = CDbl(TextBox2.Text)

Срок = CInt (TextBox3.Text)

Затем находим по формуле нужную величину и выводим результат в текстовое поле TextBox4.

ГодоваяСтавка = (ВыплаченнаяСумма – ИсходнаяСумма) / (ИсходнаяСумма * Срок / 12)*100

TextBox4.Text = ГодоваяСтавка

Если результат нужно вывести на элементе надпись, то строка имела бы вид:

Label4.Caption = ГодоваяСтавка

Для форматированного вывода можно воспользоваться также функцией Format:

TextBox4.Text = Format (ГодоваяСтавка, "####.##")

В итоге программа для кнопки Вычислить будет иметь вид:

Dim ИсходнаяСумма, ВыплаченнаяСумма As Double, Срок As Integer

If IsNumeric(TextBox1.Text) = False Then

MsgBox "Проверьте правильность введенного данного"

TextBox1.SetFocus

Exit Sub

End If

If IsNumeric(TextBox2.Text) = False Then

MsgBox "Проверьте правильность введенного данного"

TextBox2.SetFocus

Exit Sub

End If

If IsNumeric(TextBox3.Text) = False Then

MsgBox "Проверьте правильность введенного данного"

TextBox3.SetFocus

Exit Sub

End If

ИсходнаяСумма = CDbl(TextBox1.Text)

ВыплаченнаяСумма = CDbl(TextBox2.Text)

Срок = CInt(TextBox3.Text)

ГодоваяСтавка=(ВыплаченнаяСумма–ИсходнаяСумма)/(ИсходнаяСумма*Срок/12)*100

TextBox4.Text = Format (ГодоваяСтавка, "####.##")

Наберите этот программный код.

Выполним проверку. Для этого запустим форму командой Run →Run Sub / UserForm, нажав F5 или кнопку на панели инструментов. Введите исходные данные: сумма кредита – 1000; сумма, подлежащая возврату – 1100; срок кредита – 12. Должен появиться результат 10.

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

UserForm1.Show

Задача 4.2. Разработать форму пользователя, имитирующую работу калькулятора.

Решение. Вставьте форму поль-зователя в проект и разместите на ней элементы управления (текстовое поле и семь кнопок) как показано на рис. 19.

При нажатии на кнопки «+»,«-», «*», «/» должны быть выполнены следующие действия: считано число из текстового поля, сохранено, запомнена нажатая кнопка и очищено текстовое поле.

Программные коды соответственно имеют вид:

кнопка «+»

a = CDbl(TextBox1.Text)

n = 1

TextBox1.Text = “”

TextBox1.SetFocus

кнопка «-»

a = CDbl(TextBox1.Text)

n = 2

TextBox1.Text = “”

TextBox1.SetFocus

кнопка «*»

a = CDbl(TextBox1.Text)

n = 3

TextBox1.Text = “”

TextBox1.SetFocus

кнопка «/»

a = CDbl(TextBox1.Text)

n = 4

TextBox1.Text = “”

TextBox1.SetFocus

При нажатии на кнопку «=» должен быть считан второй операнд, выполнено действие и выведен результат в текстовое поле. При этом для выбора действия будет использован оператор выбора Select Case.

b = CDbl(TextBox1.Text)

Select Case n

Case 1

c = a + b

Case 2

c = a - b

Case 3

c = a * b

Case 4

If b = o Then c = "ERROR" Else c = a / b

End Select

TextBox1.Text = c

При делении двух чисел следует обратить внимание на делитель (он должне быть отличен от нуля, в противном случае выводится сообщение об ошибке).

Чтобы данная форма работала корректно, необходимо глобально описать переменные (они будут принимать одинаковые значения для всех подпрограмм, а значит для всех кнопок). Делается это строками:

Dim a, b As Double

Dim c As Variant

Dim n As Integer,

которые следует разместить в области описания глобальных переменных (над самой первой строкой заголовка процедуры). (Рис. 20)

 

 

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

 

 

Задание 5. Файлы последовательного доступа

Теоретический материал к занятию:

1) файлы последовательного и прямого доступа;

2) три режима работы с файлом последовательного доступа (создание, добавление, чтение).

 

Задача 5.1. Создать файл последовательного доступа, содержащий поля наименование, цена, количество, стоимость. Предусмотреть возможность добавления записей в файл и вывод данных из файла на лист рабочей книги в виде таблицы:

Наименование	Цена	Количество	Стоимость
			?

Решение.

Создаем форму пользователя (Рис. 21).

При этом обращаем внимание, что Наименование, Цена и Количество – это исходные данные, а Стоимость – это вычисляемое данное.

Стоимость = Цена * Количество

Наша задача сводится к тому, что нужно

1) создать файл последовательного доступа «Ведомость.txt»;

2) считать введенные в поля формы данные, просчитать стоимость и все эти данные занести в файл последовательного доступа;

3) вывести информацию из файла на лист электронной таблицы;

4) назначить макросы для вспомогательных кнопок Очистить и Выход.

Программный код для кнопки «Создать файл»: