Федеральное агентство по образованию
Государственное образовательное
учреждение высшего профессионального образования
«Вятский Государственный Университет»
социально-экономический факультет
Лабораторная работа №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 |
||||||||||||||
> <
td width=128 colspan=2 valign=top >
>
|
||||||||||||||
|
Завершение |
|
||||||||||||
|
|
|
||||||||||||
|
Таблица свойств
объекта
>
№ | Объект | 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 |
||||||||||||||||
>
>
|
||||||||||||||||
|
Завершение |
|
||||||||||||||
|
|
|
||||||||||||||
|