Будь умным!


У вас вопросы?
У нас ответы:) 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. Буржуазная национальная революция в Турции.html
4. Радиотехника Утверждено на заседании кафедры радиотехнических систем Протокол от
5. .П. и З. к. Роль в соврем.
6. Коломна ул. Набережная реки Коломенки дом 7 УЧАСТНИКИ КУБКА 1
7. Доклад- Эрих Хонеккер
8. акционеров- от их способности находить общий язык и идти на компромиссы от их умения вместе решать проблемы
9. Короткая повесть серия Отдых выпуск I- ЭКОСИНТЕЗ
10. Структура курса уголовнопроцессуального права Под структурой принято понимать взаиморасположение и свя.html
11. Одна тайна всегда останется для человека только одна- зачем я живу Ответ разумный один- затем что этого хоч.html
12. СПАРТАНЦІВ ПОТРАПИЛИ У ФІНАЛ ЧЕМПІОНАТУ УКРАЇНИ З КАРАТЕ КІОКУШИНКАЙ
13. і Паставілі Паставілі дзве свечкі зеркала стакан з вадой і кальцо абручальнае
14. КЛЮКВА ИП Катаранчук Станислав Александрович
15. Реферат- Растительный и животный мир Липецкой области
16. Петербург Выборгский район улица Сикейроса6 корпус 1 квартира 73
17. Менеджер- личность и профессионал
18. Идея социализма и марксизм
19. Ценовая политика в маркетинге
20. статьям вплоть до кислородного голодания