Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
«Вятский Государственный Университет» социально-экономический факультет
Лабораторная работа № 1
Курс информатика
Тема: работа в среде Visual Basic
Киров 2009
Задание 1
Цель работы: создать приложение для вычисления значений функций.
Эскиз формы
|
Вычисление функции | |
Введите х и нажмите Enter Вычисление Результат | |
| | | |
| | | | |
| | |
|
Таблица свойств объекта
|
№ | Объект | Name | Caption | |
| Form | Form 1 | Вычисление функции | |
| Lable 1 | Lable 1 | Введите х и нажмите Enter | |
| Text 1 | txtx | | |
| Command 1 | btn Вычисление | Вычисление | |
| Command 2 | btn Результат | Результат | |
| 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
Цель работы: создать приложение, в котором можно вычислить значение суммы функций.
Эскиз формы
Таблица свойств объекта
|
№ | Объект | Name | Caption | |
| Form | Form 1 | Form 1 | |
| Text 1 | txtx | | |
| Command 1 | Command 1 | Пуск | |
| Command 2 | Command 2 | Завершение | |
| OLE 1 | OLE 2 | | |
| 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,87 637 274 384 731 Сумма отрицательных значений функции -5,74 964 601 205 689 Сумма отрицательных значений функции -2,87 327 326 820 958 | |
| Завершение | | |
| | | | |
| | |
|
