Option Explicit
                  Private Sub Command1_Click()
                           Dim I As Long, N As Long
                           For I = 11 To 300
                                （1） 
                              If Verify(N) Then
                                     （2） 
                              End If
                           Next I
                  End Sub
         Private Function Verify(  （3）  ) As Boolean
                           Dim A(0 To 9) As Integer, I As Integer, Js As Integer
                           Do While N <> 0
                                （4） 
                              N = N \ 10
                           Loop
                           For I = 0 To 9
                              Js = Js + A(I)
                           Next I
                             （5） 
                  End Function
1)        編程題（2004秋上機試卷08）
         一個正整數被稱為奇妙平方數，如果此數的平方與它的逆序數的平方互為逆序數。例如，
         12^2=144, 21^2=441,12 與 21 互逆 ,144 與 441 互逆 ,12 就是奇妙平方數。找出 1-300 以內所有的奇妙平方數。

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目