Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МИНИСТЕРСТВО АГРАРНОЙ ПОЛИТИКИ И ПРОДОВОЛЬСТВИЯ УКРАИНЫ
ЛУГАНСКИЙ НАЦИОНАЛЬНЫЙ АГРАРНЫЙ УНИВЕРСИТЕТ
Лабораторные работы
по предмету: Информационные системы
и технологии в экономике
Выполнил: студент ІІІ курса ЦЗДО
Экономическая кибернетика
Иванов Д.В.
Проверил: Лахно В.А.
Лабораторная работа №1
Тема: Расчет амортизации.
Цель: Выполнения расчета амортизации в MS Excel.
Ход работы:
Рисунок 1.1. – Кнопка вызова формы.
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Рисунок 1.2. – Вид формы
Private Sub CommandButton3_Click()
Dim x, y, e, s As Double
Dim z As String
'
If IsNumeric(TextBox1.Text) = False Then
MsgBox "Не задана начальная стоимость оборудования", vdInformation, "Расчет амартизации"
TextBox1.SetFocus
Exit Sub
End If
'
If IsNumeric(TextBox2.Text) = False Then
MsgBox "Не задана начальная стоимость оборудования", vdInformation, "Расчет амартизации"
TextBox2.SetFocus
Exit Sub
End If
'
If IsNumeric(TextBox3.Text) = False Then
MsgBox "Не задана начальная стоимость оборудования", vdInformation, "Расчет амартизации"
TextBox2.SetFocus
Exit Sub
End If
'
If IsNumeric(TextBox4.Text) = False Then
MsgBox "Не задана начальная стоимость оборудования", vdInformation, "Расчет амартизации"
TextBox2.SetFocus
Exit Sub
End If
'
x = TextBox1.Text
y = TextBox2.Text
e = TextBox3.Text
s = TextBox4.Text
'
z = Application.SYD(x, y, e, s)
TextBox5.Text = CStr(z)
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Рисунок 1.3. – Интерфейс «Расчет амортизации»