问一道数学题~用语言来解~怎么解

Question

长方形的长-6，宽-3变为正方形，之后面积比正方形少54，求长方形面积

Answer 1

少于的话:
'因为(x-6)=(y-3)
 Dim x As Integer = 1
        While True
            If x * (x - 3) - (x - 6) * ((x - 3) - 3) = 54 Then
                MessageBox.Show("长:" & x.ToString & vbCrLf & "宽: " & (x - 3).ToString)
                Exit While
            End If
            x += 1
        End While