Algoritmo VB para superponer dos rectángulos
Si X2 > X1 Y X2 < X1 + w1 E Y2 > Y1 Y2 < Y1 + h1 Entonces
MsgBox "Dos rectángulos se superponen, área superpuesta: x=" & w=" & X1 & Y2 & " w=" & Y1 + h1 Luego
MsgBox "Dos rectángulos se superponen, área superpuesta: x=" & " & X1 + w1 - X2 & " h=" & Y1 + h1 - Y2
ElseIf X1 > X2 And X1 < X2 + w2 And Y2 > Y1 And Y2 < Y1 + h1 Then
MsgBox "Dos rectángulos se superponen, el área de superposición es: x=" & X1 & " y=" & Y2 & " w=" & X2 + w2 - X1 & " h=" & Y1 + h1 - Y2
ElseIf X2 > X1 Y X2 < " & X2 & " y=" & Y1 & " w=" & X1 + w1 - X2 & " h=" & Y2 + h2 - Y1
ElseIf X1 > X2 Y X1 < w2 Y Y1 > Y2 e Y1 < Y2 + h2 Entonces
MsgBox "Hay una superposición entre los dos rectángulos, el área superpuesta: x=" & X1 & " y=" & Y1 & " w=" & X2 + w2 - X1 & " h=" & Y2 + h2 - Y1
Else
MsgBox "Los dos rectángulos no se superponen"
If
Fin