Будь умным!


У вас вопросы?
У нас ответы:) SamZan.ru

Лабораторная работа ’9 Задание- Разработать приложение для решения системы линейных уравнений методом Гау.html

Работа добавлена на сайт samzan.ru: 2016-01-17


Лабораторная работа №9

Задание: Разработать приложение для решения системы линейных уравнений методом Гаусса.

Private Sub CommandButton1_Click()

Dim A() As Double

Dim B() As Double

Dim x() As Double

ReDim A(n, n)

ReDim B(n - 1, n - 1)

For i = 1 To n

For j = 1 To n

Next

Next

s = 1

For i = 1 To n - 1

For j = i + 1 To n

h = -A(j, i) / A(i, i)

For k = 1 To n

A(j, k) = A(j, k) + h * A(i, k)

Next

Next

s = s * A(i, i)

Next

s = s * A(i, i)

For i = n - 1 To n

For j = n + 1 To n

h = B(i)

h = h - x(j) * A(i, j)

Next

Next

x(i) = h / A(i, i)

End Sub

Private Sub CommandButton2_Click()

Range("A1:E10").Clear

TextBox1.Value = ""

TextBox2.Value = ""

TextBox3.Value = ""

TextBox4.Value = ""

TextBox5.Value = ""

TextBox6.Value = ""

TextBox7.Value = ""

TextBox8.Value = ""

TextBox9.Value = ""

TextBox10.Value = ""

TextBox11.Value = ""

TextBox12.Value = ""

TextBox13.Value = ""

TextBox14.Value = ""

TextBox15.Value = ""

End Sub

Private Sub CommandButton3_Click()

Unload UserForm1

End Sub

Private Sub CommandButton4_Click()

A11 = Val(TextBox1.Value)

A12 = Val(TextBox2.Value)

A13 = Val(TextBox3.Value)

A14 = Val(TextBox4.Value)

A21 = Val(TextBox5.Value)

A22 = Val(TextBox6.Value)

A23 = Val(TextBox7.Value)

A24 = Val(TextBox8.Value)

A31 = Val(TextBox9.Value)

A32 = Val(TextBox10.Value)

A33 = Val(TextBox11.Value)

A34 = Val(TextBox12.Value)

x1 = Val(TextBox13.Value)

x2 = Val(TextBox14.Value)

x3 = Val(TextBox15.Value)

Range("A1") = A11

Range("B1") = A12

Range("C1") = A13

Range("D1") = A14

Range("A2") = A21

Range("B2") = A22

Range("C2") = A23

Range("D2") = A24

Range("A3") = A31

Range("B3") = A32

Range("C3") = A33

Range("D3") = A34

Range("A6") = x1

Range("A7") = x2

Range("A8") = x3

End Sub

Private Sub OptionButton1_Click()

TextBox1.Visible = True

TextBox5.Visible = True

TextBox9.Visible = True

TextBox10.Visible = True

TextBox11.Visible = True

TextBox12.Visible = True

TextBox13.Visible = True

Label1.Visible = True

Label4.Visible = True

Label7.Visible = True

Label8.Visible = True

Label9.Visible = True

Label10.Visible = True

End Sub

Private Sub OptionButton2_Click()

TextBox1.Visible = False

TextBox5.Visible = False

TextBox9.Visible = False

TextBox10.Visible = False

TextBox11.Visible = False

TextBox12.Visible = False

TextBox13.Visible = False

Label10.Visible = False

Label1.Visible = False

Label4.Visible = False

Label7.Visible = False

Label8.Visible = False

Label9.Visible = False

End Sub


Диплом на заказ


1. Нижегородский государственный университет им
2. Леса города Томска
3. Тема 5 ФОРМУВАННЯ І РОЗПОДІЛ ПРИБУТКУ 5
4. Конструирование многомерных регуляторов смесительного бака
5. Тема реферата согласуется с преподавателем
6. Методические рекомендации
7. Тема- Графические редакторы
8. Организация учета товарных операций в розничной торговле»
9.  Электронная Библиотека Название книги- Карьера менеджера Авторы- Якокка Ли Жанр- Маркетинг PR рекл
10. а Какой полезный эффект можно получить от вашего товара услуги Чем отличается ваш продукт услуга о.html
11. Права подозреваемых и заключенны
12. Лекция 1 Поровое пространство часть 1 - Пористость водонасыщенность категории воды в горных породах
13. В настоящей работе рассмотрены проблемы классификации стандартов аудиторской деятельности и единства их с
14. Вторичные леса
15. практикум Практика и подходы к реализации новых образовательных стандартов в урочной и внеурочной деятель
16. либо хозяйственные операции принимает те или иные решения
17. Ретушь с помощью фильтров в программе Illustrtor
18.  емпіричні дослідження
19. Инфляция и безработица
20. Второй пол французской писательницы Симоны де Бовуар 1908 1986 прирожденного философа по словам ее мужа