Question

用vb编程 一个正整数被称为奇妙平方数，如果此数的平方与它的逆序数的平方互为逆序数。例如，

例如，

12^2=144, 21^2=441,12 与 21 互逆 ,144 与 441 互逆 ,12 就是奇妙平方数。找出 1-300 以内所有的奇妙平方数。

Answer 1

Private Sub Command1_Click()
For i = 10 To 300
If i Mod 10 <> 0 Then
If Trim(Str(i ^ 2)) = StrReverse(Val(StrReverse(i)) ^ 2) Then
Print i & "^2=" & i ^ 2, StrReverse(i) & "^2=" & Val(StrReverse(i)) ^ 2
Print
End If
End If
Next
End Sub

StrReverse()函数作用为:字符串倒置,StrReverse("abcde")="edcba"

Answer 2

Private Sub Command1_Click()
Dim i As Long
Print Tab(3); "第1个数"; Tab(13); "第1个数的平方"; Tab(27); "|"; Tab(30); "第2个数"; Tab(40); "第二个数的平方"
For i = 10 To 300
j = CLng(StrReverse(i))
If i < j Then
If i ^ 2 = StrReverse(j ^ 2) Then
Print Tab(3); i; Tab(13); i ^ 2; Tab(27); "|"; Tab(30); j; Tab(40); j ^ 2
End If
End If
Next
End Sub

结果:
12 144 | 21 441
13 169 | 31 961
102 10404 | 201 40401
103 10609 | 301 90601
112 12544 | 211 44521
113 12769 | 311 96721
122 14884 | 221 48841