Работа в среде Visual Basic
СОДЕРЖАНИЕ: Создание приложения для вычисления значений функций и определение суммы этих функций: эскиз формы, таблица свойств объекта, список идентификаторов и непосредственные коды процедур. Результаты вычислений и выводы, проверка работы данной программы.Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
«Вятский Государственный Университет» социально-экономический факультет
Лабораторная работа №1
Курс информатика
Тема: работа в среде Visual Basic
Киров 2009
Задание 1
Цель работы: создать приложение для вычисления значений функций.
Эскиз формы
Вычисление функции |
||||||
|
Таблица свойств объекта
№ |
Объект |
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 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
Цель работы: создать приложение, в котором можно вычислить значение суммы функций.
Эскиз формы
Form 1 |
||||||
|
||||||
Завершение |
Таблица свойств объекта
№ |
Объект |
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 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 |
||||||||
|
||||||||
Завершение |