計(jì)算機(jī)等級(jí)考試二級(jí)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秋上機(jī)試卷08）
         一個(gè)正整數(shù)被稱為奇妙平方數(shù)，如果此數(shù)的平方與它的逆序數(shù)的平方互為逆序數(shù)。例如，
         12^2=144, 21^2=441,12 與 21 互逆 ,144 與 441 互逆 ,12 就是奇妙平方數(shù)。找出 1-300 以內(nèi)所有的奇妙平方數(shù)。

希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流，請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇

更多信息請(qǐng)?jiān)L問：考試吧計(jì)算機(jī)等級(jí)考試欄目