Федеральне агентство з освіти Державна освітня установа вищої професійної освіти «Вятський Державний Університет» соціально-економічний факультет Лабораторна робота № 1 Курс інформатика Тема: робота в середовищі Visual Basic Кіров 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 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
|
|
| Завершення
| |
| | |
|