Работа в среде Visual Basic
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
Вятский Государственный Университет социально-экономический факультет
Лабораторная работа №1
Курс информатика
Тема: работа в среде Visual Basic
Киров 2009
Задание 1
Цель работы: создать приложение для вычисления значений функций.
Эскиз формы
Вычисление функции
Введите х и нажмите Enter
Вычисление
Результат
Таблица свойств объекта
№ОбъектName Caption1Form Form 1Вычисление функции2Lable 1Lable 1Введите х и нажмите Enter3Text 1txtx4Command 1btn Вычисление Вычисление 5Command 2btn РезультатРезультат 6Picture 1Pic 1
Список идентификаторов
Переменная Тип Идентификатор хSingle хySingle 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
Результаты вычислений и выводы
Вычисление функции Введите х и нажмите Enter
2
Задание 2
Цель работы: создать приложение, в котором можно вычислить значение суммы функций.
Эскиз формы
Form 1Пуск
S=
Завершение
Таблица свойств объекта
№ОбъектName Caption1Form Form 1Form 12Text 1txtx3Command 1Command 1Пуск 4Command 2Command 2Завершение 5OLE 1OLE 26PictureboxPicture 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
Завершение