计算机等级考试二级VB常用算法(9)：排序

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 以内所有的奇妙平方数。

希望与更多计算机等级考试的网友交流，请进入计算机等级考试论坛

更多信息请访问：考试吧计算机等级考试栏目