Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Лабораторная работа №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