Самостоятельные и контрольные работы по информатике
1 1 1 1 1 1 1 1 1 1 Рейтинг 0.00 (0 Голоса)

Отчет по самостоятельной работе по дисциплине «Инструментальные программы» на тему: «Диагностика степени неплатежеспособности предприятия с помощью реактора VBA»

Выполнила: Демьяненко Ольга

1. Текст программы.

Private Sub CommandButton1_Click()

Cells(1, 1) = "Показатель"

Cells(1, 2) = "Значение"

Cells(2, 1) = Label2

Cells(3, 1) = Label3

Cells(4, 1) = Label4

Cells(5, 1) = Label5

Cells(6, 1) = Label6

Cells(7, 1) = Label7

Cells(8, 1) = "Баланс"

Cells(2, 2) = TextBox1

Cells(3, 2) = TextBox2

Cells(4, 2) = TextBox3

Cells(5, 2) = TextBox4

Cells(6, 2) = TextBox5

Cells(7, 2) = TextBox6

End Sub

Private Sub CommandButton2_Click()

Cells(9, 1) = Label9

Cells(10, 1) = Label10

Cells(11, 1) = Label11

Cells(12, 1) = Label12

p1 = CSng(TextBox1)

p2 = CSng(TextBox2)

p3 = CSng(TextBox3)

p4 = CSng(TextBox4)

p5 = CSng(TextBox5)

p6 = CSng(TextBox6)

p = p2 + p3 + p4 + p5

Cells(8, 2) = p

k1 = p2 / p

k2 = (p3 + p4 + p5 + p6) / p2

k3 = (p1 - p5) / p5

k4 = (p1 - p5) / p2

Cells(9, 2) = k1

Cells(10, 2) = k2

Cells(11, 2) = k3

Cells(12, 2) = k4

TextBox8 = k1

TextBox9 = k2

TextBox10 = k3

TextBox11 = k4

Range("A1:B1").Select

With Selection. Font

.Name = "Times New Roman"

.Size = 20

.ColorIndex = 11

End With

Selection. WrapText = True

Selection. Interior. ColorIndex = 23

Selection. ColumnWidth = 30

Selection. HorizontalAlignment = xlCenter

Range("A2:A12").Select

With Selection. Font

.Name = "Times New Roman"

.Size = 12

.ColorIndex = 11

End With

Selection. WrapText = True

Selection. Interior. ColorIndex = 45

Selection. ColumnWidth = 70

Selection. RowHeight = 25

Selection. HorizontalAlignment = xlLeft

Range("B2:B12").Select

Selection. HorizontalAlignment = xlCenter

Selection. RowHeight = 20

Range("B2:B12").Select

With Selection. Font

.Name = "Times New Roman"

.Size = 12

.Bold = True

End With

Selection. Interior. ColorIndex = 35

End Sub

2. Результаты выполнения задания.

1 Диагностика степени неплатежеспособности предприятия с помощью реактора VBA

2 Диагностика степени неплатежеспособности предприятия с помощью реактора VBA

Добавить комментарий


Защитный код
Обновить

По темам:

История Украины

Культурология

Высшая математика

Информатика

Охотоведение

Статистика

География

Военная наука

Английский язык

Генетика

Разное

Технологиеские темы

Украинский язык

Филология

Философия

Химия

Экология

Социология

Физическое воспитание

Растениевосдство

Педагогика

История

Психология

Религиоведение

Плодоводство

Экономические темы

Бухгалтерские темы

Маркетинг

Иностранные языки

Ветеринарная медицина

Технические темы

Землеустройство

Медицинские темы

Творчество

Лесное и парковое хозяйство

Агрономия

Преподавателям

Юридические темы

Google