Федеральное агентство по образованию
Государственное образовательноеучреждение высшего профессионального образования
«Вятский Государственный Университет»социально-экономический факультет
Лабораторная работа №1
Курс информатика
Тема: работа в среде VisualBasic
Киров 2009
Задание 1
Цель работы: создатьприложение для вычисления значений функций.
Эскиз формы
Вычисление функции
Введите х и нажмите Enter
Вычисление
Результат
Таблица свойствобъекта
№ Объект Name Caption 1 Form Form 1 Вычисление функции 2 Lable 1 Lable 1 Введите х и нажмите Enter 3 Text 1 txtx 4 Command 1 btn Вычисление Вычисление 5 Command 2 btn Результат Результат 6 Picture 1 Pic 1
Список идентификаторов
Переменная Тип Идентификатор х Single х y Single y
Непосредственные кодыпроцедур
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=/>
/> /> /> />
Завершение
Таблица свойствобъекта
№ Объект Name Caption 1 Form Form 1 Form 1 2 Text 1 txtx 3 Command 1 Command 1 Пуск 4 Command 2 Command 2 Завершение 5 OLE 1 OLE 2 6 Picturebox Picture 1
Список идентификаторов
Переменная Тип Идентификатор х Single х
Непосредственные кодыпроцедур
Private Sub Command1_Click()
Sum = 0 'начальное значение суммы
sump = 0 'начальная сумма положительныхзначений функции
sumo = 0 'начальная сумма отрицательныхзначений функции
X = Val(Textx.Text) 'преобразование функцией Val свойства Текст в числовое значение
For k = 1 To10
y = Sin(X * k)+ Cos(k / X)
If y > 0Then
sump = sump +y
Else
sumo = sumo +y
End If
Next k
Sum = sump +sumo
Picture1.Print«сумма положительных значений функции»; sump
Picture1.Print «сумма отрицательных значений функции»; sumo
Picture1.Print «сумма значений функции»; Sum
Private SubCommand2_Click()
End
End Sub
Результаты вычисленийи выводы
Form 1
Пуск
2,3
S=/>
/> /> /> />
Сумма положительных значений функции 2,87637274384731
Сумма отрицательных значений функции -5,74964601205689
Сумма отрицательных значений функции -2,87327326820958
Завершение