Главная Учебники - Разные Лекции (разные) - часть 34
Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
«Вятский Государственный Университет» социально-экономический факультет
Лабораторная работа №1
Курс информатика
Тема: работа в среде
Visual
Basic
Киров 2009
Задание 1
Цель работы: создать приложение для вычисления значений функций. Эскиз формы
Таблица свойств объекта
Список идентификаторов
Непосредственные коды процедур
Private Sub Form_Click() Rem Вычисление функции для заданного значения x Print Print " y=x+sin(x+4*atn(1)/3)-log(abs(x)" x = Val(Textx.Text) y = x + Sin(x + 4 * Atn(1) / 3) - Log(Abs(x)) Print "для x= "; x Print "полученозначениефункции y= "; y End Sub Результаты вычислений и выводы
Задание 2
Цель работы: создать приложение, в котором можно вычислить значение суммы функций. Эскиз формы
Таблица свойств объекта
Список идентификаторов
Непосредственные коды процедур
PrivateSubCommand1_Click() Sum = 0 'начальное значение суммы sump = 0 'начальная сумма положительных значений функции sumo = 0 'начальная сумма отрицательных значений функции X = Val(Textx.Text) 'преобразование функцией Val свойства Текст в числовое значение For k = 1 To 10 y = Sin(X * k) + Cos(k / X) If y > 0 Then sump = sump + y Else sumo = sumo + y End If Next k Sum = sump + sumo Picture1.Print "сумма положительных значений функции"; sump Picture1.Print "сумма отрицательных значений функции"; sumo Picture1.Print "сумма значений функции"; Sum Private Sub Command2_Click() End End Sub Результаты вычислений и выводы
S= Сумма положительных значений функции 2,87637274384731
Сумма отрицательных значений функции -5,74964601205689
Сумма отрицательных значений функции -2,87327326820958
|