Главная Учебники - Разные Лекции (разные) - часть 33
Федеральное агентство по образованию Государственное образовательное
учреждение высшего профессионального образования «Вятский Государственный Университет»
социально-экономический факультет Лабораторная работа №1 Курс информатика Тема: работа в среде Visual Basic Киров 2009 Задание 1 Цель работы: создать
приложение для вычисления значений функций. Эскиз формы Вычисление функции Введите х и
нажмите Enter Вычисление Результат Таблица свойств
объекта Список идентификаторов
Непосредственные коды
процедур 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 Результаты вычислений и
выводы Вычисление функции Введите х и нажмите Enter 2 Задание 2 Цель работы: создать
приложение, в котором можно вычислить значение суммы функций. Эскиз формы Form 1 Пуск S= Завершение Таблица свойств
объекта Список идентификаторов
Непосредственные коды
процедур Private Sub Command1_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 Результаты вычислений
и выводы Form 1 Пуск 2,3 S= Сумма положительных значений функции 2,87637274384731 Сумма отрицательных значений функции -5,74964601205689 Сумма отрицательных значений функции -2,87327326820958 Завершение
|