Public Class Form29

​

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Form25.Show()
        Me.Hide()

    End Sub

​

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim a, b, c, d, m, n As Integer
        Dim x, y As Double
        Dim p As String = "n2"

​

        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        m = Val(TextBox3.Text)
        c = Val(TextBox4.Text)
        d = Val(TextBox5.Text)
        n = Val(TextBox6.Text)

​

        x = (b * n - d * m) / (b * c - a * d)
        y = (a * n - c * m) / (a * d - b * c)

​

        Label1.Text = x.ToString(p)
        Label2.Text = y.ToString(p)

    End Sub

​

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

​

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""

        Label1.Text = ""
        Label2.Text = ""

​

    End Sub

​

    Private Sub Form29_Load(sender As Object, e As EventArgs) Handles MyBase.Load

​

        Label3.Text = Format(Now, "Short Date")

​

    End Sub

End Class