Работа в среде 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 Цель работы: создать приложение, в котором можно вычислить значение суммы функций. Эскиз формы Таблица свойств объекта |
№ | Объект | 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
| | | Завершение | | | | | | | | | | | |
| 
