Робота в середовищі Visual Basic

[ виправити ] текст може містити помилки, будь ласка перевіряйте перш ніж використовувати.

скачати

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

Цей текст може містити помилки.

Програмування, комп'ютери, інформатика і кібернетика | Лабораторна робота
43.1кб. | скачати


Схожі роботи:
Робота з графічним пакетом Corel Draw і створення тестової програми в середовищі Visual Basic
Потоки в Visual Basic
Програмування на Visual Basic
Основи Visual Basic 50
Завдання з програмування на Visual Basic
Створення тесту на Visual Basic
Квитки з інформатики 10 клас Visual Basic
Мова програмування Visual Basic for Applications
Електронний довідник з вивчення Visual Basic
© Усі права захищені
написати до нас