Методика и порядок выполнения работы

1. Изучите теоретическое обоснование.

2. Выполните пример 1: Для любых значений х и у, введенных с клавиатуры в текстовые поля, вычислить значения функций .

Алгоритм решения задачи представлен на рисунке 2.

Д ля создания приложения:

• Загрузите интегрированную среду Visual Basic.

• Разместите на форме кнопку Сmd1_Click() с надписью «Пуск».

• В соответствии с рисунком 3 разместите на форме три элемента TextBox и задайте им имя x, y, z.

Для этого: на Панели инструментов щелкните и растяните на форме окошко с меткой произвольной формы. В окне Свойства объекта установите значения свойств: BackColor (цвет фона) – серый, ForeColor (цвет надписи) – черный, Font – размер шрифта 18, Alignment (выравнивание) – Сenter.

В свойстве Caption напишите «х=». Для фиксирования выбранных значений щелкните на свободном месте формы. Справа от созданной метки растяните на форме текстовое поле txtl, используя кнопку на Панели инструментов.

В окне Свойств объекта напишите х в свойстве Name и удалите Text1 из свойства Text. Можно также произвольно изменить значения свойств: ForeColor, Font, Alignment.

Аналогично разместите на форме еще два элемента TextBox и задайте им имена y, z. В результате форма примет вид, представленный на рисунке 3.

• Дважды щелкните по командной кнопке с надписью Пуск для ввода программного кода:

Private Sub Cmd1_Click()

Dim x1, y1, z1, f As Single

x1 = Val (x.Text) ‘в поле х вводится строка цифр и преобразовывается в число х1

y1 = Val (y.Text)

z1 = 0.5 * Sin(x1 ^ 3) + 2.5 * Exp(2 * y1)

f = (4*x1 - z1^(1/3)) / sqr (y1)

z = Str(z1) ‘преобразование числа z1 в строку для вывода в текстовое поле z

print “f=”; f

End Sub

Пояснение: в роли перемененных могут выступать свойства различных объектов VB, например, свойство Text объекта Текстовое поле. Такие переменные записываются с применением точки, например: х.Text, у.Text. Тип любого свойства изменять нельзя, – он жестко закреплен за данным свойством, например, свойство Caption (надпись на объекте) имеет тип String. Тип String имеет и свойство Text объекта Текстовое поле. Поэтому «числа», которые вводятся в текстовые поля, – это не числа, а всего лишь строки цифр. Для того чтобы использовать эти «числа» в арифметических действиях, их нужно преобразовать в «настоящие» числа. Делается с помощью функции Val. Обратное преобразование (числа в строку) производится с помощью функции Str: если z1 – это число, то Str(z1) – это строка символов. При преобразовании строки в число производится ее просмотр слева направо до первого неправильного символа.

• З апустите приложение на выполнение, щелкнув по кнопке (Start) в командной строке. Исправьте ошибки. Если ошибок нет, на экране появится разработанная форма. В текстовое поле х и поле у введите любые числовые значения для вычисления по указанным формулам. Щелкните по командной кнопке Пуск, выполнится процедура Cmd1_Click и в поле z появится результат. Значение f будет выведено на форму, а не в окна. Завершите работу программы с помощью кнопки (End).

3. Выполните пример 2.

Разработать проект для вычисления значения функций , для любых значений х и у, введенных с использованием Окна ввода (InputBox) . Вывести значения с использованием Окна сообщения (MsgBox).

Для создания приложения:

• Разместите на форме кнопку Сmd2_Click().

• Создайте для командной кнопки Сmd2 программный код:

Private Sub Cmd2_Click()

Dim x, y, z, f As Single

x = Val (InputBox("Введите х"))

y = Val (InputBox("Введите y"))

z = 0.5 * Sin(x ^ 3) + 2.5 * Exp(2 * y)

f = (4*x - z^(1/3)) / sqr (y)

MsgBox z , , "Вывод значения функции z "

MsgBox f , , "Вывод значения функции f "

End Sub

• Запустите приложение. Сравните результаты с примером 1.

• Измените вывод значения z на следующий:

MsgBox z ,1 , "Вывод значения функции"

• Запустите приложение и сравните результаты. Измените в MsgBox цифру 1 на 2, 3, 4, 5 , каждый раз запуская приложение, сделайте вывод, используя таблицу 3.