Федеральне агентство з освіти
Державна освітня установа вищої професійної освіти
«Вятський Державний Університет» соціально-економічний факультет
Лабораторна робота № 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
Мета роботи: створити програму, де можна обчислити значення суми функцій.
Ескіз форми
Таблиця властивостей об'єкта
Список ідентифікаторів
Безпосередні коди процедур
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
Результати обчислень і висновки
Державна освітня установа вищої професійної освіти
«Вятський Державний Університет» соціально-економічний факультет
Лабораторна робота № 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 | ||||||||||||||||
| ||||||||||||||||
Завершення | ||||||||||||||||