1. <small id="kntrr"><delect id="kntrr"></delect></small>
    2. <sub id="kntrr"></sub>
        1. <form id="kntrr"><listing id="kntrr"></listing></form>
            江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
            2005年春江蘇省等級二級Visual Basic 答案

            2005年春
            江蘇省高等學校非計算機專業學生
            計算機基礎知識和應用能力等級考試
            二級 Visual Basic
            (紅色部分為答案)
            第一部分 計算機基礎知識

            基礎知識分為 I 和 II 兩類,考生選做其中的一類,且不需要在答題卡上標注類別

            I .計算機基礎知識

            1.十進制數 100 對應的二進制數、八進制數和十六進制數分別 _____________ 。

               A. 1100100 、 144Q 和 64H      。拢 1100110B 、 142Q 和 62H
             。茫 1011100B 、 144Q 和 66H     。模 1100100B 、 142Q 和 60H

            2.在各種數字系統中,漢字的顯示與打印均需要有相應的字形庫支持。目前漢字的字形主要有兩種描述方法,即點陣字形和 ___________ 字形。

             。粒抡  。拢喞  。茫匦   。模M

            3.在下列有關PC機及CPU芯片的敘述中,正確的是 _____________ 。

               A.目前 PC 機所用 CPU 芯片均為 Intel 公司生產
             。拢校脵C只能安裝 MS-DOS 或 Windows 操作系統
             。茫校脵C主板型號與CPU型號是一一對應的,不同的主板對應不同的 CPU
               D. Pentium MMX中的“MMX”是“多媒體擴展指令集”的英文縮寫 

            4.總線在計算機的組成與發展過程中起著重要作用。在下列PC機的總線標準中,因價格和兼容性等原因,未被廣泛推廣使用的是 _____________ 。

              。粒 ISA    B. AT   C. MCA   。模 PCI

            5.根據前國際電報電話咨詢委員會( CCITT )的定義,與計算機信息處理有關的媒體分為五種。據此定義和媒體的分類, I/O 設備屬于 _____________ 。

             。粒硎久襟w  。拢鎯γ襟w   C.表現媒體  。模畟鬏斆襟w

            6.數字圖像未經壓縮時,其數據量很大,既浪費存儲空間,也不適于往上傳輸。例如,一幅分辨率為 102 4 × 768 的 256 色的未經壓縮的數字圖像,其數據量大約為 _____________ KB 。

             。粒 96    B. 768   。茫 2304   。模 24576

            7.在下列有關 Internet 的敘述中,錯誤的是 _____________ 。

              A.隨著 Modem 性能的提高,電話撥號上網的速度越來越快,目前可達1 Mbps 以上
              B.用戶從不同的網站下載信息,其速度通常有所不同
              C.從 Internet 上搜索到的信息,有時不能下載到本地計算機
              D.網頁上的圖片大多為 GIF 和 JPEG 格式

            8.在 Internet 中,域名服務器的主要功能是實現 _____________ 的轉換。

             。粒桑械刂返接蛎ㄖ鳈C名字)      。拢蛎剑桑械刂
             。茫鳈CIP地址和路由器IP地址之間   。模酚善鳎桑械刂分g

            9. http://exam.nju.edu.cn 是“江蘇省高等學校計算機等級考試中心”的網址。其中,“ http ”是指 _____________ 。

              A.超文本傳輸協議   。拢募䝼鬏攨f議  。茫嬎銠C主機域名    。模 TCP/IP 協議

            10.在下列有關電子郵件( Email )的敘述中,錯誤的是 _____________ 。

              。粒 E-mail 地址具有特定的格式,即“<郵箱名>”@<郵件服務器域名>”
             。拢粋用戶可以向一個或多個郵件服務器提供商申請多個 E-mail 地址
              C.目前郵件發送時一般采用 POP3 協議,接收時采用 SMTP 協議 
             。模环怆娮余]件通常由三部分組成,即郵件的頭部、正文和附件

            11.在下列有關操作系統的敘述中,錯誤的是 _____________ 。

               A.操作系統是最基本的軟件, Windows 是 PC 機上最早使用的操作系統
             。拢僮飨到y是隨著計算機軟件的發展而發展的,最早的計算機并無操作系統
             。茫壳埃校脵C除了可以使用 Windows 系列操作系統,也可以使用其他操作系統
             。模嬎銠C系統軟件中軟件安全的核心是操作系統的安全性

            12.軟件的可移植性是衡量軟件質量的重要標準之一,它是指 _____________ 。

              。粒浖姹旧壍碾y易程度
             。拢 軟件與其它軟件交換信息的難易程度
               C. 軟件對軟硬件環境要求得到滿足的難易程度
             。模浖䦶囊粋計算機系統或環境轉移到另一個計算機系統或環境的難易程度

            13.計算機病毒是影響計算機安全的主要因素之一,目前已有數千種病毒,且新病毒層出不窮。在下列有關計算機病毒的敘述中,正確的是 _____________ 。

             。粒恳环N計算機病毒總是一個獨立的軟件(程序),對應著一個或多個文件
              B.計算機病毒不僅能感染一個獨立的軟件,而且能感染數據文件(如 Word 文檔等)
             。茫 加密或壓縮的文件一般不會感染計算機病毒
             。模惭b了病毒防火墻的計算機系統不會感染計算機病毒

            14.在下列有關 Windows 98/2000/XP 中快捷方式的敘述中,錯誤的是 _____________ 。

              。粒旖莘绞教峁┝藢ΤS贸绦蚝臀臋n等資源的捷徑訪問
              。拢鎯υ谕淮疟P上的不同快捷方式,其對應文件的文件類型總是相同的,但文件大小可能有所不同
                C.快捷方式顯示的圖標總是由對應的程序或文檔等資源決定的,用戶不可以更改
              。模 Windows 桌面上可以無任何快捷方式

            15.在外存儲器中,信息一般以文件為單位進行組織與存儲。在 Windows 98/2000/XP 環境下,下列有關文件和文件名的敘述中錯誤的是 _____________ 。

             A.文件擴展名總是由保存文件時所選文件類型決定的,用戶不可以更改
            。拢 Windows 98/2000/XP 中,文件名的長度可達 200 多個字符
            。茫 Windows 98/2000/XP 中允許文件名中含有空格,但不允許文件名僅由空格組成
            。模诓捎酶呒壵Z言編寫程序時,若文件名中含有空格,則程序中引用文件時必須加引號

            16.在 Windows 98/2000/XP 環境下,許多操作可以通過菜單或工具欄完成,但掌握一些常用的快捷鍵有助于提高工作效率。在 Windows 及其應用程序中,“撤消”操作所對應的快捷鍵一般為 _____________ 。

             。粒 Ctrl+A   。拢 Ctrl+S  。茫 Ctrl+N    。模 Ctrl+Z

            17.在下列有關 Microsoft Word 97/2000 功能的敘述中,錯誤的是 _____________ 。

             。粒 Word 軟件可以制作網頁
              B.在編制 Word 文檔時,可以對表格中的數據進行排序操作,但不可進行數據的計算
            。茫 Word 文檔中可以插入聲音、動畫和視頻
            。模闷洹白詣痈惫δ芸梢蕴岣呶谋据斎胨俣群途庉嬓

            18.在 Microsoft Word 97/2000  環境下編輯文檔時,可以建立多級“編號”或“項目符號”。編號或項目符號升級是可按功能鍵 _____________ 。

             。粒 Tab    B. Ctrl+Tab  。茫 Alt+Tab    D. Shift+Tab

            19.下列有關 Microsoft Word 97/2000 功能的敘述中,錯誤的是 _____________ 。

             。粒谛陆 Execel 工作簿后 ,系統默認其包含3張工作表,但這種默認可在“選項”對話框中更改
            。拢梢詫⑽谋疚募驍祿䦷欤ū恚┪募䦟氲 Execel 中
              C. 工作表中的數據既可以以行方式排序,也可以以列方式排序
            。模梢岳谩熬庉嫛辈藛未蜷_“頁眉/頁腳”對話框,以完成頁眉和頁腳的編輯

            20.若利用 Micorsoft Execel 97/2000 創建新工作簿后未進行過任何設置,則在某單元格中輸入數據時,下列敘述中正確的是 _____________ 。

              A.輸入 7/2 ,系統認為輸入的是日期型數據 
             。拢斎 3+5 ,則系統對其進行計算并顯示為 8
             。茫 輸入“ OK ”(含英文雙引號,即輸入 4 個字符),系統認為輸入的是字符型數據 OK ( 2 個字符)
             。模斎肟崭窈筝斎 OK ,系統自動的將前面空格刪除

             

            II 信息技術基礎知識

             

            1.十進制數 100 對應的二進制數、八進制數和十六進制數分別是 _____________ 。

              A. 1100100B 、 144Q 和 64H
             。拢 1100110B 、 142Q 和 62H
             。茫 1011100B 、 144Q 和 66H
             。模 1100100B 、 142Q 和 60H

            2.在各種數字系統中,漢字的顯示與打印均需要有相應的字形庫支持。目前漢字的字形主要有兩種描述方法,即點陣字形和 ___________ 字形。

             。粒抡   B.輪廓  。茫匦   。模M

            3.在下列有關PC機及CPU芯片的敘述中,正確的是 _____________ 。

             。粒壳 PC 機所用 CPU 芯片均為 Intel 公司生產
             。拢校脵C只能安裝 MS-DOS 或 Windows 操作系統
             。茫校脵C主板型號與CPU型號是一一對應的,不同的主板對應不同的 CPU
               D. Pentium MMX中的“MMX”是“多媒體擴展指令集”的英文縮寫 

            4. USB 接口是由 Compag 、 IBM 、 Intel 、 Microsoft 和 NEC 等公司共同開發的一種 I/O 接口。在下列有關 USB 接口的敘述中,錯誤的是 _____________ 。

              。粒 USB 接口是一種串行接口, USB 對應的中文為“通用串行總線”
              。拢 USB2.0 的數據傳輸速度比 USB1.1 快得多
                C.利用“ USB 集線器”,一個 USB 接口最多只能連接 63 個設備
              。模 USB 既可以連接硬盤、閃存等快速設備,也可以連接鼠標、打印機等慢速設備

            5.目前 PC 機的外存儲器(簡稱“外存”)主要有軟盤、硬盤、光盤和各種移動存儲器。在下列有關 PC 機外存的敘述中,錯誤的是 _____________ 。

             。粒洷P因其容量小、存取速度慢、易損壞等原因,目前使用率越來越低
            。拢壳 CD 光盤的容量一般為數百兆字節,而 DVD 光盤的容量為數千兆字節
              C. 硬盤是一種容量大、 存取速度快的外存,目前主流硬盤的轉速均為每分鐘幾百轉
            。模W存盤也稱為“優盤”,目前其容量從幾十兆字節到幾千兆字節不等

            6.數字圖像未經壓縮時,其數據量很大,既浪費存儲空間,也不適于網上傳輸。例如,一幅分辨率為 102 4 × 768 的 256 色的未經壓縮的數字圖像,其數據量大約為 _____________ KB 。

             。粒 96  。拢 768  。茫 2304   。模 24576

            7.在下列有關 Internet 的敘述中,錯誤的是 _____________ 。

             。粒 隨著 Modem 性能的提高,電話撥號上網的速度越來越快,目前可達 1Mbps 以上
            。拢脩魪牟煌木W站下載信息,其速度通常有所不同
            。茫 從 Internet 上搜索到的信息,有時不能下載到本地計算機
              D.網頁上的圖片大多為 GIF 和 JPEG 文件

            8.在 Internet 中,域名服務器的主要功能是實現 _____________ 的轉換。

              。粒 IP 地址到域名(主機名字)      。拢蛎 IP 地址
             。茫鳈C IP 地址和路由器 IP 地址之間   。模酚善 IP 地址之間

            9. http://exam.nju.edu.cn 是“江蘇省高等學校計算機等級考試中心”的網址。其中,“ http ”是指 _____________ 。

               A.超文本傳輸協議  。拢募䝼鬏攨f議   。茫嬎銠C主機域名   。模 TCP/IP 協議

            10.在下列有關電子郵件( Email )的敘述中,錯誤的是 _____________ 。

              。粒 E-mail 地址具有特定的格式,即“<郵箱名>”@<郵件服務器域名>”
             。拢粋用戶可以向一個或多個郵件服務器提供商申請多個 E-mail 地址
              C.目前郵件發送時一般采用 POP3 協議,接收時采用 SMTP 協議 
             。模环怆娮余]件通常由三部分組成,即郵件的頭部、正文和附件

            11.無線電波按頻率(或波長)可分為中波、短波、超短波和微波。在下列關于微波的說法中,錯誤的是 _____________ 。

               A.微波沿地球表面傳播,易穿過建筑物
              。拢⒉ㄊ且环N具有極高頻率的電磁波,其波長很短
              。茫 微波通信的建設費用低(與電纜通信相比)、抗災能力強
              。模⒉▊鬏敿夹g廣泛用于移動通信和高清晰度電視的信號傳輸等

            12.在下列有關 PC 機組成的敘述中,錯誤的是 _____________ 。

              。粒 目前 PC 機主板上的芯片一般由多塊 VLSI 組成,不同類型的 CPU 通常要不同的芯片組
              。拢 CMOS 由電池供電,當電池無電時 CMOS 中設置的信息丟失
                C. Cache 是由 SRAM 組成的高速緩沖
              。模 BIOS 的中文名稱是基本輸入 / 輸出系統,它僅包含基本外圍設備的驅動程序,存放在 ROM 中

            13. MP3 是一種廣泛使用的數字聲音格式。下列關于 MP3 地敘述中,正確的是 _____________ 。

              。粒磉_同一首樂曲時, MP3 的數據量比 MIDI 聲音要少得多
              B. MP3 聲音的質量與 CD 唱片聲音的質量大致相當
             。茫 MP3 聲音適合在網上實時播放
             。模皇讟非涍^數字化后產生的 MP3 文件與 WAV 文件的大小基本相同

            14.數碼相機是掃描儀之外的另一種重要的圖像輸入設備,它能直接將圖像信息以數字形式輸入電腦進行處理。目前,數碼相機種將光信號轉換為電信號使用的器件主要是 _____________ 。

              。粒 Memory Stick 。拢 DSP   C. CCD    。模 D/A

            15.數據結構是研究程序設計中計算機操作對象以及它們之間關系和運算的一個專門學科。在下列數據結構的敘述中,錯誤的是 _____________ 。

               A. 數據結構僅研究數據的邏輯結構和存儲結構,不考慮在該結構上的數據運算
             。拢當祿拇鎯Y構是其邏輯結構在計算機存儲器上的實現
             。茫 數據的邏輯結構是數據間關系的描述,它只抽象的反映數據元數間的邏輯關系
             。模性表和樹是典型的數據邏輯結構,鏈接表是典型的數據存儲結構

            16.在 Windows 98/2000/XP 環境下,許多操作可以通過菜單或工具欄完成,但掌握一些常用的快捷鍵有助于提高工作效率。在 Windows 及其應用程序中,“撤消”操作所對應的快捷鍵一般為 _____________ 。

              。粒 Ctrl+A   。拢 Ctrl+S    。茫 Ctrl+N     。模 Ctrl+Z

            17.在下列有關 Microsoft Word 97/2000 功能的敘述中,錯誤的是 _____________ 。

             。粒 Word 軟件可以制作網頁
               B.在編制 Word 文檔時,可以對表格中的數據進行排序操作,但不可進行數據的計算
             。茫 Word 文檔中可以插入聲音、動畫和視頻
             。模闷洹白詣痈惫δ芸梢蕴岣呶谋据斎胨俣群途庉嬓

            18.網頁是目前最常見的文檔之一,許多軟件支持該類文檔的創建和編輯。在下列軟件中,不能將編輯的文件保存為網頁( HTML 文檔)的是 _____________ 。

             。粒 Microsoft Word              。拢 Microsoft Excel
             。茫 Microsoft PowerPoint          。模 Windows 中“寫字板”應用程序

            19.下列有關 Microsoft Word 97/2000 功能的敘述中,錯誤的是 _____________ 。

             。粒谛陆 Execel 工作簿后 ,系統默認其包含3張工作表,但這種默認可在“選項”對話框中更改
             。拢梢詫⑽谋疚募驍祿䦷欤ū恚┪募䦟氲 Execel 中
               C. 工作表中的數據既可以以行方式排序,也可以以列方式排序
             。模梢岳谩熬庉嫛辈藛未蜷_“頁眉/頁腳”對話框,以完成頁眉和頁腳的編輯

            20.在下列關于一些典型信息系統的敘述中,錯誤的是 _____________ 。

              A.電子商務是指企業之間通過網絡進行的商務活動,不涉及企業與政府之間的事務
             。拢娮诱⻊帐菍崿F政府信息化的一種重要手段,其對應得英文詞是 eGovermert
             。茫當底謭D書館是一種又有多種媒體、內容豐富的數字化海量信息資源庫
             。模畯男畔⑾到y得分類來看, ERP 屬于管理信息系統

             

            第二部分  Visual Basic 程序設計

            一•  選擇題(用答題卡答題,答案依次填在 21~30 答題號內)

            21.以下關于方法的敘述中,錯誤的是 ____________ 。

              。粒椒ㄊ菢嫵蓪ο髮嶓w的一個部分
              。拢椒ㄊ且环N特殊的過程或函數 
              。茫{用方法的一般格式是:對象名稱.方法名稱[參數]
               D.在調用方法時,對象名稱是不可缺少的

            22.創建應用程序的界面時,在窗體上設置了一個命令按鈕,運行程序后,命令按鈕沒有出現在窗體上,可能的原因是 ____________ 。

              。粒撁畎粹o的 Value 屬性被設置為 False
              。拢撁畎粹o的 Enabled 屬性被設置為 False
               C.該命令按鈕的 Visible 屬性被設置為 False
              。模撁畎粹o的 Default 屬性被設置為 True

            23.若需要在同一窗口內安排兩組相互獨立的單選按鈕( OptionButton ),可使用 ____________ 控件將它們分隔開。

              、 TexBox     、 Picture   、 Image    、 Frame

              。粒 ①②    。拢 ②③    。茫 ②④     。模 ③④

            24.單擊滾動條兩端的箭頭時,滾動條 Value 屬性值的改變量由 ____________ 屬性值決定。

              。粒 LargeChange     。拢 Max     。茫 SmallChange     。模 Min

            25.設變量 D 為 Date 型、 A 為 Integer 型、 S 為 String 型、 L 為 Long 型,下面賦值語句中不能執行的是 ____________ 。

              。粒 D=#12:30:00 PM#      B. A=”3277e 1”     。茫 S=Now     。模 L=”4276D 3”

            26.下面表達式中, ____________ 的值是整型( Interger 或 Long )。

             、 36+4/2   、 123+Fix(6.61)      、 57+5.5\2.5     、 356 & 21     ⑤ “374”+258        、 4.5 Mod 1.5

              。粒 ①②④⑥     。拢 ③④⑤⑥     。茫 ②④⑤⑥      。模 ③⑥

            27.在 Select Case X 結構中,描述判斷條件 3 ≦ X ≦ 7 的測試項應該寫成 ____________ 。

              。粒 Case 3 ≦ X ≦ 7         。拢 Case 3 ≦ X , X ≦ 7  
              。茫 Case Is ≦ 7 , Is ≧ 3       。模 Case 3 To 7

            28.下面關于過程參數的說法,錯誤的是 ____________ 。

              。粒^程的形參不可以是定長字符串類型的變量
                B.形參是定長字符串的數組,則對應的實參必須是定長字符串型數組,且長度相同  
                C.若形參是按地址傳遞的參數,形參和實參也能以按值傳遞方式進行形實結合
              。模粗祩鬟f參數,形參和實參的類型可以不同,只要相容即可

            29.下面有關文件管理控件的說法,正確的是 ____________ 。

              。粒 ChDir 語句的作用是指明新的缺省工作目錄,同時也改變目錄列表框的 Path 屬性
              。拢淖兾募斜砜虻 FileName 屬性值,僅改變列表框中顯示的文件名,不會引發其它事件
               C.改變驅動器列表框的 ListIndex 屬性值,會改變 Drive 屬性值并觸發 Change 事件
              。模畣螕裟夸浟斜砜蛑心骋豁,會觸發 Change 事件

            30.以下有關 Line 劃線方法的說明,錯誤的是 ____________ 。

              。粒 Line 方法既可用于單個劃線,也可用于連續劃線
              。拢 Line 方法中的 Step 選項用于指定由 CurrentX 、 CurrentY 屬性決定的圖形坐標位置
              。茫 Line 方法劃線的寬度由 DrawWidth 屬性決定
                D.當使用 F 選項時, Line 方法可用于繪制矩形

            二、填空題(請將答案填寫在答題紙的相應答題號內,每個答案只占一行)

            1.執行下面的程序,單擊窗體,則在窗體上顯示的是 ____-1________ 。
              Option Explicit
              Private Sub Form_Click()
                Dim a As Integer, b As Integer, c As Integer
                b = 6: c = 6.5
                a = b = c
                Print a
              End Sub

            2.執行下面的程序,單擊按鈕 Command1 ,在窗體上顯示的第一行是 ____0.6________ ,第二行是 ____1.8________ ,第三行是 _____5.4_______ 。
              Option Explicit
               Private Sub Command1_Click()
                 Dim x As Single, i As Integer
                 x = 1.2
                 For i = 1 To 3
                   x = x * i
                   Print fun1(x)
                 Next i
              End Sub
              Private Function fun1(x As Single) As Single
                Static y As Single
                y = y + x
                fun1 = y / 2
              End Function

            3.執行下面的程序后,單擊按鈕 Command1 ,則 N 的值是 ____10________ , A 的值是 _____27_______ , B 的值是 _____9_______ 。
              Option Explicit
              Dim n As Integer
              Private Sub Command1_Click()
                Dim a As Integer, b As Integer
                a = 2: b = 3
                For n = 1 To 6
                  If n Mod 2 = 0 Then
                    b = fun(n, a) + a
                  Else
                    a = fun(b, n) + b
                  End If
                Next n
                Print n, a, b
              End Sub
              Private Function fun(x As Integer, y As Integer) As Integer
                 x = y - 1 + n
                 y = x + y - n
                 fun = x + y
              End Function

            4.執行下面的程序,單擊按鈕 Command1 ,窗體上顯示的結果中 I 的值是 ____11________ , J 的值是 ____2________ , K 的值是 _____43_______ 。
              Option Explicit 
              Private Sub Command1_Click()
                Dim i As Integer, j As Integer
                Dim k As Integer
                i = 1: j = 2
                k = fun(i, fun(i, j)) + i + j
                Print "i="; i; "j="; j; "k="; k
              End Sub
              Function fun(a As Integer, ByVal b As Integer) As Integer
                a = a + b
                b = a + b
                fun = a + b
              End Function

            5.執行下面的程序,單擊按鈕 Command1 , A ( 1 , 1 )的值是 _____7_______ , A ( 1 , 4 )的值是 _____1_______ , A ( 4 , 1 )的值是 ____16________ , A ( 4 , 4 )的值是 _____10_______ 。
              Option Base 1
              Private Sub Command1_Click()
                Dim a() As Integer, i As Integer, j As Integer
                Dim k As Integer, n As Integer
                n = 4
                ReDim a(n, n)
                i = 1: j = n: a(i, j) = 1
                For k = 2 To n * n
                  If  i + 1 > n Then
                    i = n - j + 2: j = 1
                  ElseIf  i + 1 <= n And j + 1 > n Then
                      j = j - i: i = 1
                  Else
                      i = i + 1: j = j + 1
                  End If
                  a(i, j) = k
                Next k
                For i = 1 To n
                  For j = 1 To n
                    Print a(i, j);
                  Next j
                  Print
                Next i
              End Sub







              Option Explicit
              Private Sub Form_Click()
                Dim y As Single, t As Single, a As Single
                y = 2: t = 0
                Do
                  t = Sqr(2 + t)
                  a = 2 / t
                  If Abs(a - 1) < 10 ^ (-5) Then Exit Do
                  y = y * a
                Loop
                Print "pi="; y
              End Sub

            7.本程序的功能是從給定的純英文字符串中找出最長的一個按字母順序排列的子串。程序界面參見圖 1 。
              

            Option Explicit
            Private Sub Command1_Click()
               Dim st As String
               st = Text1
               Text2 = max_st(st)
            End Sub
            Private Function max_st(st As String) As String
              Dim i As Integer, sta As String
              Dim p As String
              p = Mid(st, 1, 1)
              For i = 1 To Len(st) - 1
               If Asc(Mid(st, i + 1, 1)) - Asc(Mid(st, i, 1)) = 1 Then
                 
            p = p & Mid(st, i + 1, 1)
               Else
                 If Len(p) > 1 And Len(p) > Len(sta) Then
                 sta =
             p    

                        圖1

                 End If
                 p = Mid(st, i + 1, 1)
               End If
              Next i
              If Len(p) > 1 And Len(p) > Len(sta) Then
                 max_st = p
              Else
                 max_st = sta
              End If
            End Function

            8.下面程序的功能是找出由兩個不同的數字組成的回文平方數。程序界面參見圖 2 。
               Option Explicit
              Private Sub Command1_Click()
                Dim a(0 To 9) As Integer, i As Long, flg As Boolean
                Dim l As Long, j As Integer, sum As Integer

                For i = 10 To 1000
                  l = i * i
                  
            Erase a
                  Call sub1((l), a, flg)
                  If flg Then
                   For j = 0 To 9
                     sum = sum + a(j)
                   Next j
                   If sum = 2 Then
                     List1.AddItem CStr(i) & "^2=" & Str(l)
                   End If
                  End If
                  sum = 0
                Next i

                  圖2

              End Sub
              Private Sub sub1(x As Long, a() As Integer, bl As Boolean)
                Dim n As Integer, idx As Integer, i As Integer
                bl = False
                n = Len(CStr(x))
                For i = 1 To n / 2
                  If Mid(CStr(x), i, 1) <> Mid(CStr(x), n - i + 1, 1) Then
                    Exit Sub
                  End If
                Next i
                bl = True
                For i = 1 To n
                  idx = x Mod 10
                  a(idx) = 1  
                  x = (x \ 10)
                Next i
              End Sub

            9.下面程序的功能是隨機生成 10 個不同的兩位數,從中找出所有互質數對。若兩個數除了 1 以外沒有其他公約數,這兩個數就是互質數。其中函數 Rec 是一個遞歸函數。程序界面參見圖 3 。
              Option Explicit
              Private Sub Command1_Click()
                Dim a(10) As Integer, i As Integer, j As Integer
                Dim n As Integer, k As Integer
                Randomize
                a(1) = Int(90 * Rnd) + 10
                Text1 = a(1)
                 k = 1
                Do   While k < 10
                  n = Int(90 * Rnd) + 10
                  If   InStr  (Text1, CStr(n)) = 0 Then
                    Text1 = Text1 & Str(n)
                    k = k + 1
                    a(k) = n
                  End If
                Loop
                For i = 1 To 9
                  For j = i + 1 To 10
                    If Not rec(a(i), a(j), 2) Then
                      List1.AddItem Str(a(i)) & Str(a(j))
                    End If
                  Next j
                Next i
              End Sub
              Private Function rec(n As Integer, m As Integer, k As Integer) As Boolean
             

               If k > n Then
                
            rec = False
               Else
                 If n Mod k = 0 And m Mod k = 0 Then
                  rec = True
                  
            Exit Function
                 Else
                  
            rec = rec(n, m, k + 1)
                 End If
               End If
              End Function

                      圖3

             


             

            国产在线精品一区二区三区不卡_亚洲第一极品精品无码_永久免费无码网站在线观看_亚洲av综合日韩