有没有帅哥美女，帮帮孩子吧

不会

因为我既不是帅哥也不是美女，所以这道题我帮不了你

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
For a = 1 To 8
For b = a + 1 To 9
If AreNi((a * 10 + b) ^ 2, (b * 10 + a) ^ 2) Then
Print a * 10 + b & "^2 =" & (a * 10 + b) ^ 2, b * 10 + a & "^2 = " & (b * 10 + a) ^ 2
End If
Next b
Next a
End Sub
Function AreNi(AreNiX As Integer, AreNiY As Integer) As Boolean
Dim AreNiA(1 To 4) As Integer
Dim AreNiB(1 To 4) As Integer
AreNi = False
If AreNiX >= 100 And AreNiX <= 999 And AreNiY >= 100 And AreNiY <= 999 Then
AreNiA(3) = AreNiX Mod 10
AreNiA(2) = AreNiX \ 10 Mod 10
AreNiA(1) = AreNiX \ 100
AreNiB(3) = AreNiY Mod 10
AreNiB(2) = AreNiY \ 10 Mod 10
AreNiB(1) = AreNiY \ 100
If AreNiA(1) = AreNiB(3) And AreNiA(2) = AreNiB(2) And AreNiA(3) = AreNiB(1) Then
AreNi = True
Exit Function
End If
ElseIf AreNiX >= 1000 And AreNiX <= 9999 And AreNiY >= 1000 And AreNiY <= 9999 Then
AreNiA(4) = AreNiX Mod 10
AreNiA(3) = AreNiX \ 10 Mod 10
AreNiA(2) = AreNiX \ 100 Mod 10
AreNiA(1) = AreNiX \ 1000
AreNiB(4) = AreNiY Mod 10
AreNiB(3) = AreNiY \ 10 Mod 10
AreNiB(2) = AreNiY \ 100 Mod 10
AreNiB(1) = AreNiY \ 1000
If AreNiA(1) = AreNiB(4) And AreNiA(2) = AreNiB(3) And AreNiA(3) = AreNiB(2) And AreNiA(4) = AreNiB(1) Then
AreNi = True
Exit Function
End If
End If
End Function