Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
«Вятский Государственный Университет» социально-экономический факультет
Лабораторная работа №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 | ||||||||||||||||
| ||||||||||||||||
| Завершение | ||||||||||||||||
|
|
|
| ||||||||||||||
|
| ||||||||||||||||
Таблица свойств объекта
| № | Объект | 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 | ||||||||||||||||
| ||||||||||||||||
| Завершение | ||||||||||||||||
|
|
|
| ||||||||||||||
|
| ||||||||||||||||
Похожие работы
... Show UserForm14. Hide Следовательно, при ответе «Да» на данный вопрос балл засчитывается в нейротизм. Таким образом, я научилась работать в среде Visual Basic и создавать тестовую программу. Corel DRAW. Введение Corel DRAW является единственным графическим пакетом, позволяющим делать буквально все, начиная от рисования и заканчивая версткой и обработкой растровых изображений[4]. Отличие ...
... и просматриваются записи баз данных. Язык Visual Basic. Язык программирования Visual Basic содержит несколько сотен инструкций, функций и специальных символов. Он предназначен не только для использования в программном продукте Visual Basic, Microsoft Visual Basic for Application включен в состав Microsoft Excel, Microsoft Word, Microsoft Access, Microsoft PowerPoint, Microsoft Project и ...
... плана и состав слушателей, происходит определение стратегии курса, разрабатывается сценарий и интерактивное взаимодействие программы с пользователями. Разрабатываемый электронный справочник предназначен для самостоятельной работы студентов младших курсов по изучению Visual Basic в рамках университетского курса. Его создание имеет своей целью предоставить студентам, изучающим Visual Basic весь ...
... ? Ответ на оба вопроса: Нет Проблема не в Microsoft или Visual Basic. Проблема состоит в том, что вышеупомянутый код является мусором. Проблема проста - Visual Basic поддерживает объекты и в модели одиночного потока и в apartment model. Позвольте мне перефразировать это: объекты Visual Basic являются COM объектами и они,согласно COM соглашению, будут правильно работать как в модели одиночного ...
0 комментариев