2005年春
江蘇省高等學(xué)校非計算機專業(yè)學(xué)生
計算機基礎(chǔ)知識和應(yīng)用能力等級考試
二級 Visual Basic
第一部分 計算機基礎(chǔ)知識
（基礎(chǔ)知識分為 I 和 II 兩類，考生選做其中的一類，且不需要在答題卡上標注類別）
Ｉ ．計算機基礎(chǔ)知識
１．十進制數(shù) 100 對應(yīng)的二進制數(shù)、八進制數(shù)和十六進制數(shù)分別 _____________ 。
Ａ． 1100100 、 144Q 和 64H �。拢� 1100110B 、 142Q 和 62H
�。茫� 1011100B 、 144Q 和 66H �。模� 1100100B 、 142Q 和 60H
２．在各種數(shù)字系統(tǒng)中，漢字的顯示與打印均需要有相應(yīng)的字形庫支持。目前漢字的字形主要有兩種描述方法，即點陣字形和 ___________ 字形。
�。粒抡� Ｂ．輪廓 �。茫匦� Ｄ．模擬
３．在下列有關(guān)ＰＣ機及ＣＰＵ芯片的敘述中，正確的是 _____________ 。
Ａ．目前 PC 機所用 CPU 芯片均為 Intel 公司生產(chǎn)
Ｂ．ＰＣ機只能安裝 MS-DOS 或 Windows 操作系統(tǒng)
�。茫校脵C主板型號與ＣＰＵ型號是一一對應(yīng)的，不同的主板對應(yīng)不同的 CPU
Ｄ． Pentium ＭＭＸ中的“ＭＭＸ”是“多媒體擴展指令集”的英文縮寫
４．總線在計算機的組成與發(fā)展過程中起著重要作用。在下列ＰＣ機的總線標準中，因價格和兼容性等原因，未被廣泛推廣使用的是 _____________ 。
�。粒� ISA Ｂ． AT �。茫� MCA �。模� PCI
５．根據(jù)前國際電報電話咨詢委員會（ CCITT ）的定義，與計算機信息處理有關(guān)的媒體分為五種。據(jù)此定義和媒體的分類， I/O 設(shè)備屬于 _____________ 。
Ａ．表示媒體 �。拢鎯γ襟w Ｃ．表現(xiàn)媒體 Ｄ．傳輸媒體
６．數(shù)字圖像未經(jīng)壓縮時，其數(shù)據(jù)量很大，既浪費存儲空間，也不適于往上傳輸。例如，一幅分辨率為 102 4 × 768 的 256 色的未經(jīng)壓縮的數(shù)字圖像，其數(shù)據(jù)量大約為 _____________ KB 。
�。粒� 96 Ｂ． 768 Ｃ． 2304 �。模� 24576
７．在下列有關(guān) Internet 的敘述中，錯誤的是 _____________ 。
Ａ．隨著 Modem 性能的提高，電話撥號上網(wǎng)的速度越來越快，目前可達１ Mbps 以上
Ｂ．用戶從不同的網(wǎng)站下載信息，其速度通常有所不同
Ｃ．從 Internet 上搜索到的信息，有時不能下載到本地計算機
Ｄ．網(wǎng)頁上的圖片大多為 GIF 和 JPEG 格式
８．在 Internet 中，域名服務(wù)器的主要功能是實現(xiàn) _____________ 的轉(zhuǎn)換。
Ａ．ＩＰ地址到域名（主機名字） �。拢蛎剑桑械刂�
�。茫鳈CＩＰ地址和路由器ＩＰ地址之間 �。模酚善鳎桑械刂分g
９． http://exam.nju.edu.cn 是“江蘇省高等學(xué)校計算機等級考試中心”的網(wǎng)址。其中，“ http ”是指 _____________ 。
�。粒谋緜鬏攨f(xié)議 Ｂ．文件傳輸協(xié)議 �。茫嬎銠C主機域名 �。模� TCP/IP 協(xié)議
１０．在下列有關(guān)電子郵件（ Email ）的敘述中，錯誤的是 _____________ 。
�。粒� E-mail 地址具有特定的格式，即“＜郵箱名＞”＠＜郵件服務(wù)器域名＞”
�。拢粋�用戶可以向一個或多個郵件服務(wù)器提供商申請多個 E-mail 地址
�。茫壳班]件發(fā)送時一般采用 POP3 協(xié)議，接收時采用 SMTP 協(xié)議
�。模环怆娮余]件通常由三部分組成，即郵件的頭部、正文和附件
１１．在下列有關(guān)操作系統(tǒng)的敘述中，錯誤的是 _____________ 。
�。粒僮飨到y(tǒng)是最基本的軟件， Windows 是 PC 機上最早使用的操作系統(tǒng)
�。拢僮飨到y(tǒng)是隨著計算機軟件的發(fā)展而發(fā)展的，最早的計算機并無操作系統(tǒng)
�。茫壳埃校脵C除了可以使用 Windows 系列操作系統(tǒng)，也可以使用其他操作系統(tǒng)
�。模嬎銠C系統(tǒng)軟件中軟件安全的核心是操作系統(tǒng)的安全性
１２．軟件的可移植性是衡量軟件質(zhì)量的重要標準之一，它是指 _____________ 。
�。粒浖姹旧壍碾y易程度
�。拢� 軟件與其它軟件交換信息的難易程度
�。茫� 軟件對軟硬件環(huán)境要求得到滿足的難易程度
�。模浖䦶囊粋�計算機系統(tǒng)或環(huán)境轉(zhuǎn)移到另一個計算機系統(tǒng)或環(huán)境的難易程度
１３．計算機病毒是影響計算機安全的主要因素之一，目前已有數(shù)千種病毒，且新病毒層出不窮。在下列有關(guān)計算機病毒的敘述中，正確的是 _____________ 。
�。粒恳环N計算機病毒總是一個獨立的軟件（程序），對應(yīng)著一個或多個文件
Ｂ．計算機病毒不僅能感染一個獨立的軟件，而且能感染數(shù)據(jù)文件（如 Word 文檔等）
�。茫� 加密或壓縮的文件一般不會感染計算機病毒
Ｄ．安裝了病毒防火墻的計算機系統(tǒng)不會感染計算機病毒
１４．在下列有關(guān) Windows 98/2000/XP 中快捷方式的敘述中，錯誤的是 _____________ 。
�。粒旖莘绞教峁┝藢ΤＳ贸绦蚝臀臋n等資源的捷徑訪問
�。拢鎯υ谕淮疟P上的不同快捷方式，其對應(yīng)文件的文件類型總是相同的，但文件大小可能有所不同
�。茫旖莘绞斤@示的圖標總是由對應(yīng)的程序或文檔等資源決定的，用戶不可以更改
�。模� Windows 桌面上可以無任何快捷方式
１５．在外存儲器中，信息一般以文件為單位進行組織與存儲。在 Windows 98/2000/XP 環(huán)境下，下列有關(guān)文件和文件名的敘述中錯誤的是 _____________ 。
�。粒募䲠U展名總是由保存文件時所選文件類型決定的，用戶不可以更改
�。拢� Windows 98/2000/XP 中，文件名的長度可達 200 多個字符
�。茫� Windows 98/2000/XP 中允許文件名中含有空格，但不允許文件名僅由空格組成
�。模诓捎酶呒壵Z言編寫程序時，若文件名中含有空格，則程序中引用文件時必須加引號
１６．在 Windows 98/2000/XP 環(huán)境下，許多操作可以通過菜單或工具欄完成，但掌握一些常用的快捷鍵有助于提高工作效率。在 Windows 及其應(yīng)用程序中，“撤消”操作所對應(yīng)的快捷鍵一般為 _____________ 。
�。粒� Ctrl+A �。拢� Ctrl+S �。茫� Ctrl+N �。模� Ctrl+Z
１７．在下列有關(guān) Microsoft Word 97/2000 功能的敘述中，錯誤的是 _____________ 。
�。粒� Word 軟件可以制作網(wǎng)頁
�。拢诰幹� Word 文檔時，可以對表格中的數(shù)據(jù)進行排序操作，但不可進行數(shù)據(jù)的計算
�。茫� Word 文檔中可以插入聲音、動畫和視頻
�。模闷洹白詣痈惫δ芸梢蕴岣呶谋据斎胨俣群途庉嬓�
１８．在 Microsoft Word 97/2000 環(huán)境下編輯文檔時，可以建立多級“編號”或“項目符號”。編號或項目符號升級是可按功能鍵 _____________ 。
�。粒� Tab Ｂ． Ctrl+Tab Ｃ． Alt+Tab �。模� Shift+Tab
１９．下列有關(guān) Microsoft Word 97/2000 功能的敘述中，錯誤的是 _____________ 。
Ａ．在新建 Execel 工作簿后 ，系統(tǒng)默認其包含３張工作表，但這種默認可在“選項”對話框中更改
�。拢梢詫⑽谋疚募驍�(shù)據(jù)庫（表）文件導(dǎo)入到 Execel 中
Ｃ． 工作表中的數(shù)據(jù)既可以以行方式排序，也可以以列方式排序
�。模梢岳谩熬庉嫛辈藛未蜷_“頁眉／頁腳”對話框，以完成頁眉和頁腳的編輯
２０．若利用 Micorsoft Execel 97/2000 創(chuàng)建新工作簿后未進行過任何設(shè)置，則在某單元格中輸入數(shù)據(jù)時，下列敘述中正確的是 _____________ 。
�。粒斎� 7/2 ，系統(tǒng)認為輸入的是日期型數(shù)據(jù)
�。拢斎� 3+5 ，則系統(tǒng)對其進行計算并顯示為 8
�。茫� 輸入“ OK ”（含英文雙引號，即輸入 4 個字符），系統(tǒng)認為輸入的是字符型數(shù)據(jù) OK （ 2 個字符）
�。模斎肟崭窈筝斎� OK ，系統(tǒng)自動的將前面空格刪除
II 信息技術(shù)基礎(chǔ)知識
１．十進制數(shù) 100 對應(yīng)的二進制數(shù)、八進制數(shù)和十六進制數(shù)分別是 _____________ 。
�。粒� 1100100B 、 144Q 和 64H
�。拢� 1100110B 、 142Q 和 62H
�。茫� 1011100B 、 144Q 和 66H
Ｄ． 1100100B 、 142Q 和 60H
２．在各種數(shù)字系統(tǒng)中，漢字的顯示與打印均需要有相應(yīng)的字形庫支持。目前漢字的字形主要有兩種描述方法，即點陣字形和 ___________ 字形。
�。粒抡� Ｂ．輪廓 �。茫匦� �。模M
３．在下列有關(guān)ＰＣ機及ＣＰＵ芯片的敘述中，正確的是 _____________ 。
Ａ．目前 PC 機所用 CPU 芯片均為 Intel 公司生產(chǎn)
�。拢校脵C只能安裝 MS-DOS 或 Windows 操作系統(tǒng)
Ｃ．ＰＣ機主板型號與ＣＰＵ型號是一一對應(yīng)的，不同的主板對應(yīng)不同的 CPU
Ｄ． Pentium ＭＭＸ中的“ＭＭＸ”是“多媒體擴展指令集”的英文縮寫
４． USB 接口是由 Compag 、 IBM 、 Intel 、 Microsoft 和 NEC 等公司共同開發(fā)的一種 I/O 接口。在下列有關(guān) USB 接口的敘述中，錯誤的是 _____________ 。
�。粒� USB 接口是一種串行接口， USB 對應(yīng)的中文為“通用串行總線”
Ｂ． USB2.0 的數(shù)據(jù)傳輸速度比 USB1.1 快得多
�。茫谩� USB 集線器”，一個 USB 接口最多只能連接 63 個設(shè)備
�。模� USB 既可以連接硬盤、閃存等快速設(shè)備，也可以連接鼠標、打印機等慢速設(shè)備
５．目前 PC 機的外存儲器（簡稱“外存”）主要有軟盤、硬盤、光盤和各種移動存儲器。在下列有關(guān) PC 機外存的敘述中，錯誤的是 _____________ 。
�。粒洷P因其容量小、存取速度慢、易損壞等原因，目前使用率越來越低
�。拢壳� CD 光盤的容量一般為數(shù)百兆字節(jié)，而 DVD 光盤的容量為數(shù)千兆字節(jié)
�。茫� 硬盤是一種容量大、 存取速度快的外存，目前主流硬盤的轉(zhuǎn)速均為每分鐘幾百轉(zhuǎn)
�。模W存盤也稱為“優(yōu)盤”，目前其容量從幾十兆字節(jié)到幾千兆字節(jié)不等
６．數(shù)字圖像未經(jīng)壓縮時，其數(shù)據(jù)量很大，既浪費存儲空間，也不適于網(wǎng)上傳輸。例如，一幅分辨率為 102 4 × 768 的 256 色的未經(jīng)壓縮的數(shù)字圖像，其數(shù)據(jù)量大約為 _____________ KB 。
Ａ． 96 �。拢� 768 �。茫� 2304 �。模� 24576
７．在下列有關(guān) Internet 的敘述中，錯誤的是 _____________ 。
Ａ． 隨著 Modem 性能的提高，電話撥號上網(wǎng)的速度越來越快，目前可達 1Mbps 以上
�。拢脩魪牟煌木W(wǎng)站下載信息，其速度通常有所不同
�。茫� 從 Internet 上搜索到的信息，有時不能下載到本地計算機
�。模W(wǎng)頁上的圖片大多為 GIF 和 JPEG 文件
８．在 Internet 中，域名服務(wù)器的主要功能是實現(xiàn) _____________ 的轉(zhuǎn)換。
Ａ． IP 地址到域名（主機名字） �。拢蛎� IP 地址
Ｃ．主機 IP 地址和路由器 IP 地址之間 �。模酚善� IP 地址之間
９． http://exam.nju.edu.cn 是“江蘇省高等學(xué)校計算機等級考試中心”的網(wǎng)址。其中，“ http ”是指 _____________ 。
�。粒谋緜鬏攨f(xié)議 �。拢募䝼鬏攨f(xié)議 Ｃ．計算機主機域名 �。模� TCP/IP 協(xié)議
１０．在下列有關(guān)電子郵件（ Email ）的敘述中，錯誤的是 _____________ 。
�。粒� E-mail 地址具有特定的格式，即“＜郵箱名＞”＠＜郵件服務(wù)器域名＞”
�。拢粋�用戶可以向一個或多個郵件服務(wù)器提供商申請多個 E-mail 地址
�。茫壳班]件發(fā)送時一般采用 POP3 協(xié)議，接收時采用 SMTP 協(xié)議
�。模环怆娮余]件通常由三部分組成，即郵件的頭部、正文和附件
１１．無線電波按頻率（或波長）可分為中波、短波、超短波和微波。在下列關(guān)于微波的說法中，錯誤的是 _____________ 。
�。粒⒉ㄑ氐厍虮砻�?zhèn)鞑�，易穿過建筑物
�。拢⒉ㄊ且环N具有極高頻率的電磁波，其波長很短
�。茫� 微波通信的建設(shè)費用低（與電纜通信相比）、抗災(zāi)能力強
�。模⒉▊鬏敿夹g(shù)廣泛用于移動通信和高清晰度電視的信號傳輸?shù)?
１２．在下列有關(guān) PC 機組成的敘述中，錯誤的是 _____________ 。
�。粒� 目前 PC 機主板上的芯片一般由多塊 VLSI 組成，不同類型的 CPU 通常要不同的芯片組
�。拢� CMOS 由電池供電，當電池?zé)o電時 CMOS 中設(shè)置的信息丟失
�。茫� Cache 是由 SRAM 組成的高速緩沖
�。模� BIOS 的中文名稱是基本輸入 / 輸出系統(tǒng)，它僅包含基本外圍設(shè)備的驅(qū)動程序，存放在 ROM 中
１３． MP3 是一種廣泛使用的數(shù)字聲音格式。下列關(guān)于 MP3 地敘述中，正確的是 _____________ 。
Ａ．表達同一首樂曲時， MP3 的數(shù)據(jù)量比 MIDI 聲音要少得多
Ｂ． MP3 聲音的質(zhì)量與 CD 唱片聲音的質(zhì)量大致相當
Ｃ． MP3 聲音適合在網(wǎng)上實時播放
�。模皇讟非�(jīng)過數(shù)字化后產(chǎn)生的 MP3 文件與 WAV 文件的大小基本相同
１４．數(shù)碼相機是掃描儀之外的另一種重要的圖像輸入設(shè)備，它能直接將圖像信息以數(shù)字形式輸入電腦進行處理。目前，數(shù)碼相機種將光信號轉(zhuǎn)換為電信號使用的器件主要是 _____________ 。
Ａ． Memory Stick �。拢� DSP �。茫� CCD �。模� D/A
１５．數(shù)據(jù)結(jié)構(gòu)是研究程序設(shè)計中計算機操作對象以及它們之間關(guān)系和運算的一個專門學(xué)科。在下列數(shù)據(jù)結(jié)構(gòu)的敘述中，錯誤的是 _____________ 。
�。粒� 數(shù)據(jù)結(jié)構(gòu)僅研究數(shù)據(jù)的邏輯結(jié)構(gòu)和存儲結(jié)構(gòu)，不考慮在該結(jié)構(gòu)上的數(shù)據(jù)運算
�。拢當�(shù)據(jù)的存儲結(jié)構(gòu)是其邏輯結(jié)構(gòu)在計算機存儲器上的實現(xiàn)
�。茫� 數(shù)據(jù)的邏輯結(jié)構(gòu)是數(shù)據(jù)間關(guān)系的描述，它只抽象的反映數(shù)據(jù)元數(shù)間的邏輯關(guān)系
�。模�性表和樹是典型的數(shù)據(jù)邏輯結(jié)構(gòu)，鏈接表是典型的數(shù)據(jù)存儲結(jié)構(gòu)
１６．在 Windows 98/2000/XP 環(huán)境下，許多操作可以通過菜單或工具欄完成，但掌握一些常用的快捷鍵有助于提高工作效率。在 Windows 及其應(yīng)用程序中，“撤消”操作所對應(yīng)的快捷鍵一般為 _____________ 。
Ａ． Ctrl+A �。拢� Ctrl+S Ｃ． Ctrl+N �。模� Ctrl+Z
１７．在下列有關(guān) Microsoft Word 97/2000 功能的敘述中，錯誤的是 _____________ 。
�。粒� Word 軟件可以制作網(wǎng)頁
�。拢诰幹� Word 文檔時，可以對表格中的數(shù)據(jù)進行排序操作，但不可進行數(shù)據(jù)的計算
�。茫� Word 文檔中可以插入聲音、動畫和視頻
�。模闷洹白詣痈惫δ芸梢蕴岣呶谋据斎胨俣群途庉嬓�
１８．網(wǎng)頁是目前最常見的文檔之一，許多軟件支持該類文檔的創(chuàng)建和編輯。在下列軟件中，不能將編輯的文件保存為網(wǎng)頁（ HTML 文檔）的是 _____________ 。
�。粒� Microsoft Word Ｂ． Microsoft Excel
�。茫� Microsoft PowerPoint �。模� Windows 中“寫字板”應(yīng)用程序
１９．下列有關(guān) Microsoft Word 97/2000 功能的敘述中，錯誤的是 _____________ 。
�。粒谛陆� Execel 工作簿后 ，系統(tǒng)默認其包含３張工作表，但這種默認可在“選項”對話框中更改
�。拢梢詫⑽谋疚募驍�(shù)據(jù)庫（表）文件導(dǎo)入到 Execel 中
�。茫� 工作表中的數(shù)據(jù)既可以以行方式排序，也可以以列方式排序
�。模梢岳谩熬庉嫛辈藛未蜷_“頁眉／頁腳”對話框，以完成頁眉和頁腳的編輯
２０．在下列關(guān)于一些典型信息系統(tǒng)的敘述中，錯誤的是 _____________ 。
�。粒娮由虅�(wù)是指企業(yè)之間通過網(wǎng)絡(luò)進行的商務(wù)活動，不涉及企業(yè)與政府之間的事務(wù)
Ｂ．電子政務(wù)是實現(xiàn)政府信息化的一種重要手段，其對應(yīng)得英文詞是 eGovermert
Ｃ．數(shù)字圖書館是一種又有多種媒體、內(nèi)容豐富的數(shù)字化海量信息資源庫
�。模畯男畔⑾到y(tǒng)得分類來看， ERP 屬于管理信息系統(tǒng)
第二部分 Visual Basic 程序設(shè)計
一• 選擇題（用答題卡答題，答案依次填在 21~30 答題號內(nèi)）
２１．以下關(guān)于方法的敘述中，錯誤的是 ____________ 。
�。粒椒ㄊ菢�(gòu)成對象實體的一個部分
Ｂ．方法是一種特殊的過程或函數(shù)
�。茫{(diào)用方法的一般格式是：對象名稱．方法名稱［參數(shù)］
Ｄ．在調(diào)用方法時，對象名稱是不可缺少的
２２．創(chuàng)建應(yīng)用程序的界面時，在窗體上設(shè)置了一個命令按鈕，運行程序后，命令按鈕沒有出現(xiàn)在窗體上，可能的原因是 ____________ 。
�。粒撁畎粹o的 Value 屬性被設(shè)置為 False
�。拢撁畎粹o的 Enabled 屬性被設(shè)置為 False
�。茫撁畎粹o的 Visible 屬性被設(shè)置為 False
�。模撁畎粹o的 Default 屬性被設(shè)置為 True
２３．若需要在同一窗口內(nèi)安排兩組相互獨立的單選按鈕（ OptionButton ），可使用 ____________ 控件將它們分隔開。
�、� TexBox �、� Picture �、� Image �、� Frame
�。粒� ①② �。拢� ②③ �。茫� ②④ �。模� ③④
２４．單擊滾動條兩端的箭頭時，滾動條 Value 屬性值的改變量由 ____________ 屬性值決定。
�。粒� LargeChange �。拢� Max �。茫� SmallChange �。模� Min
２５．設(shè)變量 D 為 Date 型、 A 為 Integer 型、 S 為 String 型、 L 為 Long 型，下面賦值語句中不能執(zhí)行的是 ____________ 。
�。粒� D=#12:30:00 PM# Ｂ． A=”3277e 1” �。茫� S=Now �。模� L=”4276D 3”
２６．下面表達式中， ____________ 的值是整型（ Interger 或 Long ）。
① 36+4/2 �、� 123+Fix(6.61) ③ 57+5.5\2.5 �、� 356 & 21 ⑤ “374”+258 �、� 4.5 Mod 1.5
�。粒� ①②④⑥ �。拢� ③④⑤⑥ �。茫� ②④⑤⑥ �。模� ③⑥
２７．在 Select Case X 結(jié)構(gòu)中，描述判斷條件 3 ≦ X ≦ 7 的測試項應(yīng)該寫成 ____________ 。
�。粒� Case 3 ≦ X ≦ 7 �。拢� Case 3 ≦ X ， X ≦ 7
�。茫� Case Is ≦ 7 ， Is ≧ 3 �。模� Case 3 To 7
２８．下面關(guān)于過程參數(shù)的說法，錯誤的是 ____________ 。
�。粒^程的形參不可以是定長字符串類型的變量
Ｂ．形參是定長字符串的數(shù)組，則對應(yīng)的實參必須是定長字符串型數(shù)組，且長度相同
Ｃ．若形參是按地址傳遞的參數(shù)，形參和實參也能以按值傳遞方式進行形實結(jié)合
�。模粗祩鬟f參數(shù)，形參和實參的類型可以不同，只要相容即可
２９．下面有關(guān)文件管理控件的說法，正確的是 ____________ 。
Ａ． ChDir 語句的作用是指明新的缺省工作目錄，同時也改變目錄列表框的 Path 屬性
�。拢淖兾募斜砜虻� FileName 屬性值，僅改變列表框中顯示的文件名，不會引發(fā)其它事件
Ｃ．改變驅(qū)動器列表框的 ListIndex 屬性值，會改變 Drive 屬性值并觸發(fā) Change 事件
�。模畣螕裟夸浟斜砜蛑心骋豁棧瑫|發(fā) Change 事件
３０．以下有關(guān) Line 劃線方法的說明，錯誤的是 ____________ 。
Ａ． Line 方法既可用于單個劃線，也可用于連續(xù)劃線
�。拢� Line 方法中的 Step 選項用于指定由 CurrentX 、 CurrentY 屬性決定的圖形坐標位置
Ｃ． Line 方法劃線的寬度由 DrawWidth 屬性決定
�。模斒褂� F 選項時， Line 方法可用于繪制矩形
二、填空題（請將答案填寫在答題紙的相應(yīng)答題號內(nèi)，每個答案只占一行）
１．執(zhí)行下面的程序，單擊窗體，則在窗體上顯示的是 ____________ 。
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
２．執(zhí)行下面的程序，單擊按鈕 Command1 ，在窗體上顯示的第一行是 ____________ ，第二行是 ____________ ，第三行是 ____________ 。
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
３．執(zhí)行下面的程序后，單擊按鈕 Command1 ，則 N 的值是 ____________ ， A 的值是 ____________ ， B 的值是 ____________ 。
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
４．執(zhí)行下面的程序，單擊按鈕 Command1 ，窗體上顯示的結(jié)果中 I 的值是 ____________ ， J 的值是 ____________ ， K 的值是 ____________ 。
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
５．執(zhí)行下面的程序，單擊按鈕 Command1 ， A （ 1 ， 1 ）的值是 ____________ ， A （ 1 ， 4 ）的值是 ____________ ， A （ 4 ， 1 ）的值是 ____________ ， A （ 4 ， 4 ）的值是 ____________ 。
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
________________
a = 2 / t
If ________________ Then Exit Do
y = y * a
Loop
Print "pi="; y
End Sub
７．本程序的功能是從給定的純英文字符串中找出最長的一個按字母順序排列的子串。程序界面參見圖 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
________________
Else
If Len(p) > 1 And Len(p) > Len(sta) Then
sta =________________
|
圖１ |
End If
________________
End If
Next i
If Len(p) > 1 And Len(p) > Len(sta) Then
________________
Else
max_st = sta
End If
End Function
８．下面程序的功能是找出由兩個不同的數(shù)字組成的回文平方數(shù)。程序界面參見圖 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
________________
Call ________________
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 |
圖２ |
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 ________________Then
Exit Sub
End If
Next i
bl = True
For i = 1 To n
idx = x Mod 10
________________
x = (x \ 10)
Next i
End Sub
９．下面程序的功能是隨機生成 10 個不同的兩位數(shù)，從中找出所有互質(zhì)數(shù)對。若兩個數(shù)除了 1 以外沒有其他公約數(shù)，這兩個數(shù)就是互質(zhì)數(shù)。其中函數(shù) Rec 是一個遞歸函數(shù)。程序界面參見圖 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)
________________
Do ________________
n = Int(90 * Rnd) + 10
If ________________(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
________________
Else
If n Mod k = 0 And m Mod k = 0 Then
rec = True
________________
Else
________________
End If
End If
End Function |
圖３ |
|
