- 相關(guān)推薦
2016計(jì)算機(jī)二級(jí)基礎(chǔ)知識(shí)鞏固練習(xí)題
1、信息技術(shù)指的是用來(lái)擴(kuò)展人的信息器官功能、協(xié)助人們進(jìn)行信息處理的一類技術(shù)。在下列基本信息技術(shù)中，用于擴(kuò)展人的效應(yīng)器官功能的是____。
A.感測(cè)與識(shí)別技術(shù) B.通信與存儲(chǔ)技術(shù)
C.計(jì)算與處理技術(shù) D.控制與顯示技術(shù)
2、微電子技術(shù)是以集成電路為核心的電子技術(shù)。在下列關(guān)于集成電路(IC)的敘述中，正確的是____。
A.集成電路的發(fā)展導(dǎo)致了晶體管的發(fā)明
B.現(xiàn)代計(jì)算機(jī)的CPU均是超大規(guī)模集成電路
C.小規(guī)模集成電路通常以功能部件、子系統(tǒng)為集成對(duì)象
D.所有的集成電路均為數(shù)字集成電路
3、通信技術(shù)的發(fā)展促進(jìn)了信息的傳播。在下列有關(guān)通信與通信技術(shù)的敘述中，錯(cuò)誤的是____。
A.通信系統(tǒng)必有“三要素”，即信源、信號(hào)與信宿
B.現(xiàn)代通信指的是使用電(光)波傳遞信息的技術(shù)
C.數(shù)據(jù)通信指的是計(jì)算機(jī)等數(shù)字設(shè)備之間的通信
D.調(diào)制技術(shù)主要分為三種，即調(diào)幅、調(diào)頻和調(diào)相
4、在計(jì)算機(jī)中，數(shù)值為負(fù)的整數(shù)一般不采用“原碼”表示，而是采用“補(bǔ)碼”方式表示。若某帶符號(hào)整數(shù)的8位補(bǔ)碼表示為1000
0001, 則該整數(shù)為_(kāi)___.
A.129 B.-1 C.-127 D.127
5、在下列有關(guān)CPU(中央處理器)與Pentium微處理器的敘述中，錯(cuò)誤的是____。
A.CPU除包含運(yùn)算器和控制器以外，一般還包含若干個(gè)寄存器
B.CPU所能執(zhí)行的全部指令的集合，稱為該CPU的指令系統(tǒng)
C.Pentium系列處理器在其發(fā)展過(guò)程中，其指令系統(tǒng)越來(lái)越豐富
D.Pentium處理器與Power PC處理器雖然產(chǎn)自不同的廠商，但其指令系統(tǒng)相互兼容
6、根據(jù)存儲(chǔ)器芯片的功能及物理特性，目前用作優(yōu)盤存儲(chǔ)器芯片的是____。
A.SRAM B.SDRAM C.EPROM D.Flash ROM
7、I/O接口指的是計(jì)算機(jī)中用于連接I/O設(shè)備的各種插頭/插座，以及相應(yīng)的通信規(guī)程以及電氣特性。在下列相關(guān)I/O總線與I/O接口的敘述中，錯(cuò)誤的是____。
A.PC機(jī)系統(tǒng)總線一般分為處理器總線和主板總線
B.PCI總線屬于I/O總線
C.PC機(jī)的I/O接口可分為獨(dú)占式和總線式
D.USB是以并行方式工作的I/O接口
8、輸入設(shè)備用于向計(jì)算機(jī)輸入命令和數(shù)據(jù)，它們是計(jì)算機(jī)系統(tǒng)必不可少的重要組成部分。在下列有關(guān)常見(jiàn)輸入設(shè)備的敘述中，錯(cuò)誤的是____。
A.目前數(shù)碼相機(jī)的成像芯片僅有一種，即CCD成像芯片
B.掃描儀的主要性能指標(biāo)包括分辨率、色彩位數(shù)和掃描幅面等
C.目前臺(tái)式PC機(jī)普遍采用的鍵盤可直接產(chǎn)生一百多個(gè)按鍵編碼
D.鼠標(biāo)器一般通過(guò)PS/2接口或USB接口與PC機(jī)相連
9、顯示器的作用是將數(shù)字信息轉(zhuǎn)換為光信息，最終將文字和圖形/圖像顯示出來(lái)。在下列有關(guān)PC機(jī)顯示器的敘述中，錯(cuò)誤的是____。
A.目前出廠的臺(tái)式PC機(jī)大多數(shù)使用AGP接口連接顯示卡
B.彩色顯示器上的每個(gè)像素由RGB三種基色組成
C.與CRT顯示器相比，LCD的工作電壓高、功耗小
D.從顯示器的分辨率來(lái)看，水平分辨率與垂直分辨率之比一般為4：3
10、計(jì)算機(jī)軟件(簡(jiǎn)稱軟件)指的是能指揮計(jì)算機(jī)完成特定任務(wù)的、以電子格式存儲(chǔ)的程序、數(shù)據(jù)和相關(guān)的文檔。在下列有關(guān)軟件的敘述中，錯(cuò)誤的是____。
A.軟件的版權(quán)所有者不一定是軟件作者
B.共享軟件指的是一種無(wú)版權(quán)的軟件
C.用戶購(gòu)買一個(gè)軟件后，僅獲得該軟件的使用權(quán)，并沒(méi)有獲得其版權(quán)
D.軟件許可證是一種法律合同，它確定了用戶對(duì)軟件的使用方式
11、在下列有關(guān)Windows操作系統(tǒng)(這里指Windows
95及其以后的版本)的多任務(wù)處理功能的敘述中，正確的是____。
A.在多任務(wù)處理過(guò)程中，前臺(tái)任務(wù)與后臺(tái)任務(wù)都能得到CPU的響應(yīng)(處理)
B.由于CPU具有并行執(zhí)行指令的功能，所以操作系統(tǒng)才能進(jìn)行多個(gè)任務(wù)的處理
C.由于用戶只啟動(dòng)一個(gè)應(yīng)用程序，那么該程序就可以自始至終地獨(dú)占CPU
D.Windows操作系統(tǒng)采用協(xié)作方式支持多個(gè)任務(wù)的處理
12、文件管理是操作系統(tǒng)的基本功能之一。在Windows操作系統(tǒng)環(huán)境下，下列有關(guān)文件管理功能的敘述中，錯(cuò)誤的是____。
A.計(jì)算機(jī)中的所有程序、數(shù)據(jù)、文檔都組織成文件存放在外存儲(chǔ)器中
B.磁盤上的文件分配表(FAT)有兩個(gè)，且內(nèi)容相同
C.任何磁盤上的文件根目錄表(FDT)僅有一個(gè)
D.文件管理以扇區(qū)為單位分配磁盤上的存儲(chǔ)空間
13、隨著Internet的飛速發(fā)展，其提供的服務(wù)越來(lái)越多。在下列有關(guān)Internet服務(wù)及相關(guān)協(xié)議的敘述中，錯(cuò)誤的是____。
A.電子郵件是Internet最早的服務(wù)之一，主要使用SMTP/POP3協(xié)議
B.WWW是目前Internet上使用最廣泛的一種服務(wù)，常使用的協(xié)議是HTTP
C.文件傳輸協(xié)議(FTP)主要用于在Internet上瀏覽網(wǎng)頁(yè)時(shí)控制網(wǎng)頁(yè)文件的傳輸
D.遠(yuǎn)程登錄也是Internet提供的服務(wù)之一，它采用的協(xié)議稱為Telnet
14、在下列有關(guān)程序設(shè)計(jì)語(yǔ)言及其處理程序的敘述中，錯(cuò)誤的是____。
A.程序設(shè)計(jì)語(yǔ)言可分為機(jī)器語(yǔ)言、匯編語(yǔ)言和高級(jí)語(yǔ)言
B.機(jī)器語(yǔ)言與計(jì)算機(jī)硬件關(guān)系密切，用它編寫的程序可移植性較差
C.用于輔助編寫匯編語(yǔ)言程序的編輯軟件稱為匯編程序
D.高級(jí)程序設(shè)計(jì)語(yǔ)言可以有解釋與編譯兩種方式
15、在下列有關(guān)最常見(jiàn)局域網(wǎng)、網(wǎng)絡(luò)設(shè)備以及相關(guān)技術(shù)的敘述中，錯(cuò)誤的是____。
A.以太網(wǎng)是最常用的一種局域網(wǎng)，它采用總線結(jié)構(gòu)
B.每個(gè)以太網(wǎng)網(wǎng)卡的介質(zhì)訪問(wèn)地址(MAC地址)是全球惟一的
C.無(wú)線局域網(wǎng)一般采用無(wú)線電波或紅外線進(jìn)行數(shù)據(jù)通信
D.“藍(lán)牙”是一種遠(yuǎn)距離無(wú)線通信的技術(shù)標(biāo)準(zhǔn)，適用于山區(qū)住戶組建局域網(wǎng)
16、字符編碼標(biāo)準(zhǔn)規(guī)定了字種及其編碼。在下列有關(guān)漢字編碼標(biāo)準(zhǔn)的敘述中，錯(cuò)誤的是____。
A.我國(guó)頒布的第一個(gè)漢字編碼標(biāo)準(zhǔn)是GB2312-80，它包含常用漢字6000多個(gè)
B.GB2312-80和GBK標(biāo)準(zhǔn)均采用雙字節(jié)編碼
C.GB18030-2000標(biāo)準(zhǔn)使用3字節(jié)和4字節(jié)編碼，與GB2312-80和GBK兼容
D.UCS-2是雙字節(jié)編碼，它包含拉丁字母文字、音節(jié)文字和常用漢字等等
17、不同格式的圖像文件，其數(shù)據(jù)編碼方式有所不同，通常對(duì)應(yīng)不同的應(yīng)用。在下列幾組圖像文件格式中，制作網(wǎng)頁(yè)時(shí)用得最多的是____。
A.GIF與JPEG B.GIF與BMP C.JEPG與BMP D.GIF與TIF
18、計(jì)算機(jī)中處理的聲音分為波形聲音和合成聲音兩類。在下列有關(guān)波形聲音的敘述中，錯(cuò)誤的是____。
A.波形聲音的獲取過(guò)程就是把模擬聲音信號(hào)轉(zhuǎn)換為數(shù)字形式，包括取樣、量化和編碼等步驟
B.聲音信號(hào)的數(shù)字化主要由聲卡來(lái)完成，其核心是數(shù)字信號(hào)處理器(DSP)
C.MP3采用MPEG-3標(biāo)準(zhǔn)對(duì)聲音進(jìn)行壓縮編碼
D.波形聲音的主要參數(shù)包括取樣頻率、量化位數(shù)和聲道數(shù)目等
19、在下列有關(guān)數(shù)據(jù)庫(kù)技術(shù)的敘述中，錯(cuò)誤的是____。
A.關(guān)系模型是目前在數(shù)據(jù)庫(kù)管理系統(tǒng)中使用最為廣泛的數(shù)據(jù)模型之一
B.從組成上看，數(shù)據(jù)庫(kù)系統(tǒng)由數(shù)據(jù)庫(kù)及其應(yīng)用程序組成，它不包含DBMS及用戶
C.SQL語(yǔ)言不限于數(shù)據(jù)查詢，還包括數(shù)據(jù)操作、定義、控制和管理等多方面的功能
D.Access數(shù)據(jù)庫(kù)管理系統(tǒng)是Office軟件包中的軟件之一
20、Microsoft Word是目前最常用的文字處理軟件之一。在下列有關(guān)Microsoft
Word(97及其以后的版本)功能的敘述中，錯(cuò)誤的是____。
A.在默認(rèn)情況下，頁(yè)面的版面(紙張大小)能為A4
B.在同一文檔中，所有頁(yè)面的版面(紙張大小)只能相同(答題者注：插入分節(jié)符后就可以不同)
C.系統(tǒng)具有基于字典的拼寫檢查功能
D.在普通視圖中，可以顯示表格，但不能顯示所插入的圖片(答題者注：早期版本不可以，現(xiàn)在版本可以顯示)
21、下列有關(guān)信息技術(shù)的敘述錯(cuò)誤的是____。
A.現(xiàn)代信息技術(shù)的主要特征之一是以數(shù)字技術(shù)和電子技術(shù)為基礎(chǔ)
B.利用磁帶、光盤、電話、傳真等進(jìn)行信息傳遞均屬于現(xiàn)代通信
C.微電子技術(shù)以集成電路為核心D.遙感遙測(cè)技術(shù)、自動(dòng)控制技術(shù)等均屬于現(xiàn)代信息技術(shù)
22、所謂“變號(hào)操作”，是指將一個(gè)整數(shù)變成絕對(duì)值相同但符號(hào)相反的另一個(gè)整數(shù)。假設(shè)使用補(bǔ)碼表示的8位整數(shù)X=10100001，則經(jīng)過(guò)變號(hào)操作后，結(jié)果為_(kāi)___。
A.01011111 B.00010101 C.01000000 D.10100001
23、若在某計(jì)算機(jī)系統(tǒng)中，西文使用標(biāo)準(zhǔn)ASCII碼、漢字采用GB2312編碼。設(shè)有一段純文本，其機(jī)內(nèi)碼為CF B3 27 31 D7 A1 2C 6E FC BA，則在這段文本中含有____。
A. 5個(gè)漢字和3個(gè)西文字符 B.6個(gè)漢字和2個(gè)西文字符
C.4個(gè)漢字和2個(gè)西文字符 D.3個(gè)漢字和4個(gè)西文字符
24、在TCP/IP協(xié)議中，遠(yuǎn)程登錄使用的協(xié)議是____。
A.Telnet B.FTP C.HTTP D.UDP
25、二進(jìn)制數(shù)10111000和11001010進(jìn)行邏輯“與”運(yùn)算，結(jié)果再與10100110進(jìn)行邏輯“或”運(yùn)算，最終結(jié)果的十六進(jìn)制形式為_(kāi)___。
A.A2 B.DE C.AE D.95
26、二進(jìn)制數(shù)1001加上十六進(jìn)制數(shù)AC，所得到的八進(jìn)制數(shù)是____。
A.262 B. 265 C.264 D.263
27、下列有關(guān)目前PC機(jī)主辦及其組件的敘述正確的是____。
A.主板的物理尺寸沒(méi)有標(biāo)準(zhǔn)，通常不同品牌的主板采用不同的尺寸
B.主板上的BIOS芯片是一種RAM芯片，因此其存儲(chǔ)的信息是可以隨時(shí)刷新的
C.主板上的存儲(chǔ)器控制和I/O控制毫無(wú)關(guān)系
D.主板上的CMOS芯片是一種易失性存儲(chǔ)器，其存儲(chǔ)的信息斷電后將丟失
28、下列有關(guān)算法和數(shù)據(jù)結(jié)構(gòu)的敘述錯(cuò)誤的是____。
A.算法描述解決問(wèn)題的步驟，數(shù)據(jù)結(jié)構(gòu)描述求解問(wèn)題的對(duì)象
B.算法應(yīng)具有確定性、有窮性和能行性
C.數(shù)據(jù)結(jié)構(gòu)研究的內(nèi)容包括數(shù)據(jù)的邏輯結(jié)構(gòu)和存儲(chǔ)結(jié)構(gòu)，與數(shù)據(jù)的運(yùn)算無(wú)關(guān)
D.精心選擇和設(shè)計(jì)的數(shù)據(jù)結(jié)構(gòu)可以提高算法的時(shí)間和空間效率
29、操作系統(tǒng)的產(chǎn)品有許多種。在下列軟件中不屬于操作系統(tǒng)產(chǎn)品類型的是____。
A.Linux B.UNIX C.Windows Server 2003 D.Outlook Express 2003
30、常用局域網(wǎng)有以太網(wǎng)、FDDI網(wǎng)等類型。下列的相關(guān)敘述錯(cuò)誤的是____。
A.總線式以太網(wǎng)采用帶沖突檢測(cè)的載波偵聽(tīng)多路訪問(wèn)方法進(jìn)行通信
B.以太網(wǎng)交換機(jī)比集線器具有更高的性能，它能提高整個(gè)網(wǎng)絡(luò)的帶寬
C.FDDI網(wǎng)通常采用光纖雙環(huán)結(jié)構(gòu)，具有高可靠性和數(shù)據(jù)傳輸?shù)谋Ｃ苄?/p>
D.FDDI網(wǎng)的MAC地址和幀格式與以太網(wǎng)相同，所以它們可以直接互連
31、對(duì)帶寬為300 ~ 3400Hz的語(yǔ)音，若采樣頻率為8kHz、量化位數(shù)為8位的單聲道未壓縮時(shí)的碼率約為_(kāi)___。
A.64KB/S B.128KB/S C.64kb/s D.128 kb/s
32、在PAL制式的電視系統(tǒng)中，傳輸圖像時(shí)采用的顏色模型是____。
A.CMYK B.YUV C.HSB D.RGB
33、存放一幅1024×768像素的未經(jīng)過(guò)壓縮的真彩色圖像(24位)，大約需要_____字節(jié)的存儲(chǔ)空間。
A.1024×768×24 B.1024×768×3
C.1024×768×2 D.1024×768×8
34、下面是關(guān)于我國(guó)漢字編碼標(biāo)準(zhǔn)的敘述，其中正確的是____。
A.Unicode是我國(guó)最新發(fā)布的，也是收字最多的漢字編碼國(guó)家標(biāo)準(zhǔn)
B.不同字型(如宋體和楷體等)的同一個(gè)漢字在計(jì)算機(jī)中的內(nèi)碼是不同的
C.在GB18030漢字編碼標(biāo)準(zhǔn)中，共有兩萬(wàn)多個(gè)漢字
D.GB18030與GB2312、GBK漢字編碼標(biāo)準(zhǔn)不能兼容
35、下列關(guān)于算法的敘述正確的是____。
A.算法的表示必須讓計(jì)算機(jī)能夠理解
B.算法必須要有輸入
C.算法必須產(chǎn)生正確的結(jié)果
D.算法必須具有確定性
36、下列不能作為IP地址的是____。
A.120.116.2.3 B.3.0.0.1 C.256.12.23.250 D.2.1.0.36
37、在信息系統(tǒng)的結(jié)構(gòu)化生命周期開(kāi)發(fā)方法中，具體的程序編寫屬于____階段的工作。
A.系統(tǒng)分析 B.系統(tǒng)規(guī)劃 C.系統(tǒng)實(shí)施 D.系統(tǒng)設(shè)計(jì)
38某用戶在WWW瀏覽器地址欄中鍵入一個(gè)URLhttp://www.sina.com.cn/，其中的“/”代表____。
A.協(xié)議類型 B.主機(jī)域名 C.路徑及文件名 D.文件名
39、下列關(guān)于Windows XP功能和操作敘述錯(cuò)誤的是____。
A.“搜狗拼音”漢字輸入法不屬于Windows內(nèi)置的輸入法之一
B.通過(guò)某文件的屬性，可以查看對(duì)象的創(chuàng)建日期和時(shí)間
C.可以通過(guò)快捷鍵CTRL+空格鍵快速切換中/英文輸入法
D.通過(guò)CTRL+PrintScreen組合鍵將當(dāng)前窗口拷貝到剪貼板
40、下列有關(guān)Microsoft Office 2000/2003(中文版)功能的敘述錯(cuò)誤的是____。
A.在FrontPage中，執(zhí)行菜單命令“新建”時(shí)，可以選擇是新建網(wǎng)頁(yè)還是新建站點(diǎn)
B.在Powerpoint中，既可以插入Excel工作表，也可以插入Excel圖表
C.在Word中，可以利用菜單命令“信息檢索”，可以統(tǒng)計(jì)出當(dāng)前文檔的行數(shù)和段落數(shù)
D.在PowerPoint中，可以對(duì)字體進(jìn)行替換，例如將幻燈片中的“宋體”替換成“楷體”
第二部分Visual Basic程序設(shè)計(jì)
一、選擇題
1、窗體上放置了三個(gè)文本框，若在Text1中輸入456，在Text2中輸入78，在程序中執(zhí)行了語(yǔ)句Text3=Text1+Text2后，則在Text3中顯示____。
A.434 B.45678 C.溢出 D.語(yǔ)法錯(cuò)誤
2、如果窗體上有命令按鈕“確定”，在代碼編輯窗口有與之相對(duì)應(yīng)的OK_Click()事件過(guò)程，則命令按鈕控件的名稱屬性和Caption屬性分別為_(kāi)___。
A.“OK”和“確定”
B.“確定”和“OK”
C.“Command1”和“確定”
D.“Command1”和“OK”
3.下面Sub子過(guò)程的各個(gè)語(yǔ)句中，正確的是( )
a Private Sub Sub1(A() As string)
b Private Sub Sub1(A(1 to 10) As string*8)
c Private Sub Sub1(S As string)
d Private Sub Sub1(s As string*8)
A abcd B abc C acd D ac
4.執(zhí)行賦值語(yǔ)句_____后，會(huì)觸發(fā)相應(yīng)控件的Change事件(控件名均為缺省名)。
A. Dirl.ListIndex =-2 B. Drive1.ListIndex =2
C. List1.ListIndex =3 D. File1.ListIndex =3
5.假設(shè)變量BOOL是一個(gè)布爾型變量，則下列賦值語(yǔ)句中，正確的是( )。
A. BOOL ='TRUE' B. BOOL =.TRUE.
C. BOOL =#TRUE# D. BOOL = True
6.表達(dá)式6.5*5 Mod 28\8的值是( )。
A. 0 B. 1 C. 2 D. 3
7.以下所列項(xiàng)目不屬于窗體事件的是( )。
A. Initialize B. SetFocus C. GotFocus D. LostFocus
8.函數(shù)CInt Int Fix都返回整數(shù)值，以下能正確地描述它們返回整數(shù)值大小關(guān)系的是( )。
A. CInt(-4.51)=Int(-4.51)< Fix(-4.51)
B. Int(-4.51)C. CInt(-4.51)< Fix(-4.51)D.Int(-4.51)
9.下面有關(guān)數(shù)組的說(shuō)法中，錯(cuò)誤的是( )
A.數(shù)組必須先定義后使用
B.數(shù)組形參可以是定長(zhǎng)字符串類型
C.Erase語(yǔ)句的作用是對(duì)已定義數(shù)組的值重新初始化
D.定義數(shù)組時(shí)，數(shù)組維界值可以不是整數(shù)
10.可以把變化長(zhǎng)字符串S中的第一個(gè)"ABC"子串，替換成“1234"的語(yǔ)句是( )
A. S=Left(s, InStr(S,"ABC"))&"1234" &
Right(S,Len(S)-InStr(S,"ABC")-2)
B. Mid(S,InStr(S,"ABC"),3)="1234"
C. Mid(S,InStr(S,"ABC"),4)="1234"
D. S=Left(s, InStr(S,"ABC")-1)&"1234"&
Right(S,Len(S)-InStr(S,"ABC")-2)
11、下列項(xiàng)目中，屬性、方法、事件的個(gè)數(shù)分別為_(kāi)___。
�、賂ext ②Cls ③Setfocus ④Gotfocus ⑤Keypress ⑥Load ⑦Unload
A.1 3 3 B. 1 2 4 C.2 2 3 D.2 3 2
12、執(zhí)行下列語(yǔ)句會(huì)出現(xiàn)錯(cuò)誤提示的是____。
A.S%=12& + 100! B.Print a & b C.S#=”12b-2” D.Print Date
13、關(guān)于數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的VB表達(dá)式是____。
A.Abs(e ^ x + Cos (30) ^ 3)/ Sqr (x+y) B.Abs(Exp (x) + Cos (30) ^ 3)/ (Sqr (x+y))
C.Abs (( Exp (x) + Cos (30*3.10/180) ^ 3) / (Sqr (x+y)) D.Abs[( Exp (x) + Cos (30*3.10/180) ^ 3) / (Sqr (x+y)]
14、在下列表達(dá)式中，運(yùn)算結(jié)果的類型是整型的是____。
A.Print 1 & 2 B.Print 10.5 Mod 3.2 C.Print Int(134.79) D.Print 4/2
15、對(duì)于以下所定義的Sub過(guò)程：
Private Sub Convert(Y As Integer)，下列過(guò)程調(diào)用中，參數(shù)是按址傳遞的是____。
A.Call Convert((X))B.Call Convert(X*1) C.Convert(X) D.Convert X
16、定義兩個(gè)過(guò)程Private Sub Sub1(St()As String)和Private Sub Sub2(Ch()As String*6)，在調(diào)用過(guò)程中用Dim S(3)As String * 6，A(3)As String定義了兩個(gè)字符串?dāng)?shù)組，下面調(diào)用語(yǔ)句中正確的有____。
�、貱all Sub1(S) ②Call Sub1(A) ③Call Sub2(A) ④Call Sub2(S)
A.①② B.①③ C.②③ D.②④
17、下列關(guān)于Function過(guò)程的說(shuō)法錯(cuò)誤的是____。
A.Function過(guò)程只可以有一個(gè)返回值 B.Function過(guò)程內(nèi)部不得再定義Function過(guò)程
C.Function過(guò)程中只能包含一個(gè)Exit Function語(yǔ)句 D.可以像調(diào)用Sub過(guò)程一樣調(diào)用Function過(guò)程
18、程序中有兩個(gè)過(guò)程Private Sub Sub1(S As String)和Private Sub Sub2(a()As String*6)，在調(diào)用過(guò)程中用Dim St(6)As String*6定義了一個(gè)字符串?dāng)?shù)組，下列調(diào)用語(yǔ)句正確的是____。
�、貱all Sub1(St(3)) ②Call Sub2(St) ③Call Sub1(St) ④Call Sub2(St(6))
A.①② B.①③ C.②③ D.②④
19、下列關(guān)于變量作用域的敘述正確的是____。
A.窗體中凡用Private聲明的變量只能在某個(gè)指定過(guò)程中使用
B.模塊級(jí)變量只可以用Dim或者Static語(yǔ)句進(jìn)行聲明
C.凡是在窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段用Public語(yǔ)句聲明的變量都是全局變量
D.當(dāng)不同作用域的同名變量發(fā)生沖突時(shí)，優(yōu)先訪問(wèn)局限性小的變量
20、下列有關(guān)數(shù)組的說(shuō)法，不正確的是____。
A.在窗體模塊中不可以定義全局?jǐn)?shù)組B.可以使用Erase語(yǔ)句釋放所有數(shù)組所占據(jù)的存儲(chǔ)空間
C.語(yǔ)句Dim X(3.6+2)As Integer定義了一個(gè)維上界是6的一維整型數(shù)組
D.形參數(shù)組的類型可以是定長(zhǎng)字符串類型
21、下列項(xiàng)目中，屬性、方法、事件的個(gè)數(shù)分別為_(kāi)___。
�、賂ext ②Cls ③Setfocus ④Gotfocus ⑤Keypress ⑥Load ⑦Unload
A.1 2 4 B.1 3 3 C.2 2 3 D.2 3 2
22、執(zhí)行下列語(yǔ)句會(huì)出現(xiàn)錯(cuò)誤提示的是____。
A.S%=12& + 100! B.Print a & b
C.S#=”12b-2” D.Print Date
23、關(guān)于數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的VB表達(dá)式是____。
A.Abs(e ^ x + Cos (30) ^ 3)/ Sqr (x+y)
B.Abs(Exp (x) + Cos (30) ^ 3)/ (Sqr (x+y))
C.Abs (( Exp (x) + Cos (30*3.10/180) ^ 3) / (Sqr (x+y))
D.Abs[( Exp (x) + Cos (30*3.10/180) ^ 3) / (Sqr (x+y)]
24、在下列表達(dá)式中，運(yùn)算結(jié)果為True的是____。
A.3>2>1 B.”abcrd”<=”ABCRD”
C.Int (134.79) <= Cint(134.79) D.Mid (“Visual”,1,4) = Right (“lausiv”,4)
25、在界面設(shè)計(jì)時(shí)，要使得文本框可以實(shí)現(xiàn)多行輸出功能，應(yīng)將____屬性設(shè)置成True。
A.AutoSize B.MultiLine C.Alignment D.RightToLeft
26、下列Case語(yǔ)句含有錯(cuò)誤的是____。
A.Case 0 To 10 B.Case Is<10 , Is>50 C.Case Abs(x)>7 D.Case 1,3,Is>10
27、下列關(guān)于Function過(guò)程的說(shuō)法錯(cuò)誤的是____。
A.Function過(guò)程只可以有一個(gè)返回值
B.Function過(guò)程內(nèi)部不得再定義Function過(guò)程
C.Function過(guò)程中只能包含一個(gè)Exit Function語(yǔ)句
D.可以像調(diào)用Sub過(guò)程一樣調(diào)用Function過(guò)程
28、下列關(guān)于數(shù)組的說(shuō)法正確的是____。
A.不可以用Public語(yǔ)句在窗體模塊的通用處說(shuō)明一個(gè)全局?jǐn)?shù)組
B.用ReDim語(yǔ)句重新定義動(dòng)態(tài)數(shù)組時(shí)，可改變數(shù)組的大小，不能改變數(shù)組的維界
C.在過(guò)程中使用ReDim語(yǔ)句可以改變動(dòng)態(tài)數(shù)組的數(shù)據(jù)類型
D.在過(guò)程中可以使用Dim、Private和Static語(yǔ)句來(lái)定義數(shù)組
29、下列關(guān)于變量作用域的敘述正確的是____。
A.窗體中凡用Private聲明的變量只能在某個(gè)指定過(guò)程中使用
B.模塊級(jí)變量只可以用Dim或者Static語(yǔ)句進(jìn)行聲明
C.凡是在窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段用Public語(yǔ)句聲明的變量都是全局變量
D.當(dāng)不同作用域的同名變量發(fā)生沖突時(shí)，優(yōu)先訪問(wèn)局限性小的變量
30、在一個(gè)多窗體結(jié)構(gòu)中，可以僅將窗體Form3從內(nèi)存中卸載的語(yǔ)句是____。
A.Form3.Unload B.End Form3 C.Form3.Hide D.Unload Form3
31、工程文件的擴(kuò)展名是( )。A.vbg B.vbp C.vbw D.vbl
32、程序運(yùn)行時(shí)，若要通過(guò)回車鍵調(diào)用某命令按鈕的Click事件過(guò)程，則可設(shè)置該命令按鈕的( )屬性值為True來(lái)實(shí)現(xiàn)。A、Value B、Enabled C、Default D、Cancel
33、設(shè)a=“Visual Basic”，下面使b=“Visual”的語(yǔ)句是( )
A、b=Left(a,8,12) B、b=Mid(a,8,5) C、b=Rigth(a,6) D、b=Left(a,6)
34、若要使命令按鈕不可用，則可設(shè)置其( )屬性為False來(lái)實(shí)現(xiàn)。
A、Value B、Cancel C、Enabled D、Default
35.允許在菜單項(xiàng)的左邊設(shè)置打勾標(biāo)記，下面哪種論述是正確的?( )
A.在標(biāo)題項(xiàng)中輸入&然后打勾 B 在索引項(xiàng)中輸入“√”
C.在復(fù)選項(xiàng)中輸入“√” D 在有效項(xiàng)中輸入“√”
36、以下敘述中正確的是( )
A、窗體的Name屬性指定窗體的名稱，用來(lái)標(biāo)識(shí)一個(gè)窗體
B、窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本
C、可以在運(yùn)行期間改變對(duì)象的Name屬性的值
D、對(duì)象的Name屬性值可以為空
37、VB提供( )屬性用于控制對(duì)象是否可用。
A、Default B、Cancel C、Enabled D、Visible
38、菜單控件只包括一個(gè)事件，即( )，當(dāng)用鼠標(biāo)單擊或鍵盤選中后按“回車”鍵時(shí)觸發(fā)該事件，除分隔條以外的所有菜單控件都能識(shí)別該事件。
A、GotFocus B、Load C、Click D、KeyDown
39、以下選項(xiàng)中，不屬于標(biāo)簽的屬性是( )。
A、Enabled B、Caption C、Default D、Font
40、設(shè)置一個(gè)單選按鈕(OptionButton)所代表選項(xiàng)的選中狀態(tài)，應(yīng)當(dāng)在屬性窗口中改變的屬性是( )。
A、Caption B、Name C、Text D、Value
41、語(yǔ)句Print "The answer is";20/4-2的結(jié)果為( )。
A、The answer is 20/4-2 B、The answer is 3
C、The answer is "20/4-2" D、非法語(yǔ)句
42、以下選項(xiàng)中，不是 Visual Basic控件的是( )。
A.窗體 B.定時(shí)器 C.單選框 D.命令按鈕
43、當(dāng)執(zhí)行以下過(guò)程時(shí)，在窗體上將顯示( )。
Private Sub Command1_Click( )
Print "VB";
Print "Hello! ";
Print "VB"
End Sub
A、 VBHello!VB B、 VB C、 VB D、 VB
Hello!VB Hello!
Hello! VB VB
44、設(shè)有如下語(yǔ)句：
Strl=InputBox("輸人"，""，"練習(xí)")
從鍵盤上輸人字符 “示例”后，Strl的值是( )。
A.“輸入” B.“” C.“練習(xí)” D.“示例”
45、窗體Form1的Name屬性是Frm1,它的單擊事件過(guò)程名是( )。
A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click
二、填空題
1、VB中若要產(chǎn)生一消息框，可用__ _函數(shù)來(lái)實(shí)現(xiàn)。
2、在VB中若要讓某對(duì)對(duì)象獲取焦點(diǎn)，則可通過(guò)_ _方法來(lái)實(shí)現(xiàn)。
3、為使某窗口中的命令按鈕“取消(C)”具有如下特性：按“Alt+C”鍵或按 “ESC” 鍵，均可代替用鼠標(biāo)單擊該按鈕的操作，應(yīng)設(shè)置該按鈕的Caption屬性值為_(kāi) ，并且設(shè)置其 __屬性值為_(kāi)_ _。
4、關(guān)閉正在運(yùn)行的VB窗口將自動(dòng)觸發(fā)的事件是 。
4、可用圖片框的 方法在圖片框中顯示文字。
6、設(shè)x=34.58，語(yǔ)句Print Format(x,“00.0”)的輸出結(jié)果是 。
7、在VB 中，數(shù)值型變量的初值為 ，字符型變量的初值為 。
8、已知：Y&=23.658，則Len ( Y )=__________，Len(”Y”)=______________。
9執(zhí)行下面程序，當(dāng)單擊窗體時(shí)，顯示在窗體上第一行的內(nèi)容是_ _ _，第二行的內(nèi)容是_
Private Sub Form_Click()
Dim I As Integer,Sum As Intger
For I=0.5 To 8.5 Step2.5
Sum=Sum+I*10
Next I
Print Sum
print I
End Sub
10.運(yùn)行下面的程序，當(dāng)單擊窗體時(shí)，窗體上顯示的內(nèi)容的第一行是 _ _，第三行是_ _，第五行是 _。
Private Sub From_Click()
Dim s As String, i As Integer,n(9) As Integer
Dim s1 As String*1,j As Integer
s=Trim("12345a307291b233")
For i=1 To Len(s)
s1=Mid(s,i,1)
If s1>="0" And s1<="9"Then
j=Val(s1)
n(j)=n(j)+1
End If
Next i
For j=0 To 9
Print j; ":" ;n(j)
Next j
End Sub
11.執(zhí)行下面程序，單擊命令按鈕Command1后，顯示在窗體上第一行的內(nèi)容是_ ，第二行的內(nèi)容是
，最后一行的內(nèi)容是
最后一行的內(nèi)容是
Option Explicit
Dim N As Integer
Private Sub Command1_Click()
Dim I As Integer, J As Integer
For I=3 To 1 Step -2
N=Fun(I,N)
Print N
Next I
End Sub
Private Function Fun (A As Integer) As Integer
Static X As Integer
Dim Sum As Integer,I As Integer
X=X+N
For I =1 To A
B=B+X+I
N=N-I\2
Sum=Sum+B
Next I
A=A+1
Fun=Sum+A
End Function
12.執(zhí)行下面程序，單擊命令按鈕Command1后，顯示在窗體上第一行的內(nèi)容是 ，A(2,1)的值是
，A(3,3)的值是
Option Base 1
Private Sub Command1_Click()
Dim A(3,3) As Integer,K As Integer
Dim I As Integer,j As Integer
Call SUB1(A)
For I=1 To 3
For J= 1 To 3
Print Right("0"&A(I,J)&" ",3);
Next J
Next I
End Sub
Private Sub SUB1(A() As Integer)
Dim N As Integer,K As Integer, J As Integer
N=UBound(A,1)
For I=1 To N-2
For J= I To N-I
A(I,J)=K+1
A(J,N+1-I)=K+2
A(N+1-I,N+1-J)=K+3
A(N+1-J,I)=K+4
K=K+4
Next J
Next I
If N Mod 2<>0 Then
A((N+1)/2, (N+1)/2)=K+1
End If
End Sub
13.執(zhí)行下面程序，單擊命令按鈕Command1后，顯示在窗體上第一行的內(nèi)容是 ，第二行的內(nèi)容是
，第三行的內(nèi)容是
Option Explicit
Private Sub Command1_Click()
Dim N As Integer, M As Integer
N=2
DO While m<3
N=N+2
If Fun(N) Then
Print N
M=M+1
End If
Loop
End Sub
Private Function Fun(ByVal N As Integer) As Boolean
If N/2=Int(N/2)Then
Fun=Fun(N/2)
Else
If N=1 Then Fun=True
End If
End Function
14.在下面程序中，Command1_Click()事件過(guò)程的功能是生成一個(gè)5x5的矩陣，該矩陣的副對(duì)角線(指矩陣左下角
到矩陣右上角連線上的元素)上方元素都是偶數(shù)，副對(duì)角線和它的下方元素都為奇數(shù)。Command2_Click()事件
過(guò)程的功能是，交換以副對(duì)角線為界線的上三角和下三角的對(duì)應(yīng)元素。完善程序，實(shí)現(xiàn)以上功能。
Option Explicit
Option Base 1
Dim A(5,5) As Integer
Private Sub Command1_Click()
Dim I As Integer,J As Integer , N As Integer
Randomize
For I=1 To 5
For J=1 To 5
Do
N=Int(rnd*90)+10
If J <=5-I And N Mod 2=0 Then
A(I,J)=N
ElseIf J >5-I And N Mod 2<> 0 Then
A(I,J)=N
End If
Loop___( )
Text1=Text1 & Str(A(I,J))
Next J
Text1=Text1 & vbCrLf
Next I
End Sub
Private Sub Command2_Click()
Dim I As Integer,L As Integer,T As Integer
Dim J As Integer,R As Integer
For I =1 To 5
For J=1 To 5-I
T=A(I,J)
( )
( )
A(I,J)=A(L,R)
A(L,R)=T
Next J
Next I
For I =1 To 5
For J =1 To 5
Text2=Text2 & Str(A(I,J))
Next J
Text2=Text2 & vbCrLf
Next I
End Sub
15、在下面程序中，Command1_Click()事件過(guò)程的功能是將26個(gè)大寫字母A~Z依次寫到二進(jìn)制文件Myfile中，Command2_Click()
事件過(guò)程的功能是將文件中的大寫字母在原位置——改寫成小寫字母，完善程序，實(shí)現(xiàn)以上功能。
Option Explicit
Dim S As String*1
Private Sub Command1_Click()
Dim I As Integer
For I=0 To 25
S= ( )
Put #12, , S
Next I
End Sub
Private Sub Command2_Click()
Dim Rc_NO As Integer
Seek #12, 1
Do While ( )
S= ( )
S=LCase(S)
Rc_NO=Rc_NO+1
Put #12,Rc_NO, S
Loop
End Sub
Private Sub From_Load()
Open"e:\Myfile" For Binary As #12
End Sub
16、下面程序的功能是對(duì)密文解密。密文的加密方法是以字符為單位，取其ASCII碼，按逆序保存(例如字母"e"的ASCII碼是01100101,密文中則為10100110)。解密是加密的逆過(guò)程。完善程序，實(shí)現(xiàn)以上功能。
Private Sub Command1_Click()
Dim s As String, st As String, i As Integer,n As Integer
s=Text1
Do Until n >=Len(s)
( )
If n Mod 8 <> 0 Then
st=st &Mid(s,n,1)
Else
st=st & Mid(s,n,1)
List1.AddItem st
( )
End If
Loop
End Sub
Private Sub Command2_Click()
Dim s As String, st As String, i As Integer
For i=0 To ( )
st=List1.List(i)
For j=1 To Len(st)
s=Mid(st,j,1) & s
Next j
For j=Len(s) To 1 Step-1
n=( )
Next j
Text2=Text2 & Chr(n)
s=" "
( )
Next i
End Sub
17.下面程序的功能是，找出100以內(nèi)所有可以表示成3個(gè)連續(xù)自然數(shù)之和的數(shù)。完善程序，實(shí)現(xiàn)以上功能。
Option Explicit
Private Sub Command1_Click()
Dim I As Integer, N As Integer
Dim Js As Integer, S As String
For I =1 To 100
If Fun(I,N,Js)Then
S=Str(I) & "=" & N
Do ( )
N=N+1
S=S & "+" & N
Loop
List1.AddItem S
End If
Next I
End Sub
Private Function Fun(L As Integer, M As Integer, Js As
Integer) As Boolean
Dim I As Integer, Sum As Integer, K As Integer
For I =1 To L
( )
K=0
( )
Do While Sum < L And K < 3
K=K+1
Js=Js+1
Sum=Sum+Js
Loop
If ( ) then
M=I
Fun=True
E xit For
Exit if
Next I
End Function
18、執(zhí)行下列程序，當(dāng)單擊窗體時(shí)，窗體上顯示內(nèi)容的第一行是 ，第三行 ，第七行 ，最后一行 。
Private Sub Form_Click()
Dim S As String, i As Integer, A(9) As Integer
Dim S1 As String * 1, j As Integer
S = Trim("136a637d28965f01b04c")
For i = 1 To Len(S)
S1 = Mid(S, i, 1)
If S1 >= "0" And S1 <= "9" Then
j = Val(S1)
A(j) = A(j) + 2
End If
Next i
For j = LBound(A) To UBound(A)
Print j; ":"; A(j)
Next j
End Sub
19、執(zhí)行下面程序，單擊窗體，顯示在窗體上的第一行內(nèi)容 ，第二行內(nèi)容 ，第三行內(nèi)容 ，最后一行內(nèi)容 。
Dim N As Integer
Private Sub Form_Click()
Dim I As Integer, J As Integer
For I = 3 To I Step -2
N = Fun(I, N)
Print N
Next I
End Sub
Private Function Fun(A As Integer, B As Integer) As Integer
Static X As Integer
Dim Sum As Integer, I As Integer
X = X + N
For I = 1 To A
B = B + X + I
N = N - I \ 2
Sum = Sum + B
Next I
A = A + 1
Fun =Sum + A
End Function
20、下面的事件過(guò)程執(zhí)行結(jié)束后，窗體上第一行顯示 ，第二行顯示 ，第三行顯示 。
Private Sub Form_Click()
Dim A(3, 3) As Integer, I As Integer, J As Integer, K As Integer
I = 3: J = 1
A(I, J) = 10
For K = 11 To 18
If I + 1 > 3 Or J + 1 > 3 Then
If J = 1 Then
I = I - 1
ElseIf A(I - 1, J - 1) = 0 Then
I = I - 1: J = J - 1
ElseIf J = 3 Then
I = I - 1
Else
J = J + 1
End If
ElseIf J = 1 Or I = 1 Then
If A(I + 1, J + 1) = 0 Then
I = I + 1: J = J + 1
Else
J = J + 1
End If
Else
If A(I - 1, J - 1) = 0 Then
I = I - 1: J = J - 1
End If
End If
A(I, J) = K
Next K
For I = 3 To 1 Step -1
For J = 3 To 1 Step -1
Print Str(A(I, J));
Next J
Next I
End Sub
21、執(zhí)行下面的程序，在窗體上顯示的輸出結(jié)果的第一行是 ，第二行是 ，第三行是 。
Private Sub Form_Click()
Dim N As Integer, M As Integer
N = 2
For M = 9 To 1 Step -1
Call Sub2(M, N)
Print M; N
Next M
End Sub
Private Sub Sub2(X As Integer, Y As Integer)
Static N As Integer
Dim M As Integer
For M = 3 To 1 Step -1
N = N + X
X = X - 1
Next M
Y = Y + N
End Sub
22、運(yùn)行程序，單擊命令按鈕，窗體上輸出結(jié)果是 。
Private Sub Command1_Click()
abc 2
abc 4
abc 9
End Sub
Private Sub abc(a As Integer)
Static X As Integer
X = X + a ^ 2
Print X;
End Sub
23、下列程序的功能是：計(jì)算ALL=1!+2!+3!+ … + n!(n=1，2，3…)其中n從鍵盤上輸入。
Private Sub Command1_Click()
Dim i As Integer, Sum As Long, n As Long
Sum = 0
n = Val(InputBox("求n!的和，輸入n:"))
For i = 1 To n
Sum = Sum + ( )
Next i
Print Sum
End Sub
Private Function Fun(k As Integer) As Long
Dim P As Long, i As Integer
P = 1
For i = 1 To k
P = P * i
Next i
( )
End Function
24、下面程序的功能是：驗(yàn)證任意一個(gè)大于5的奇數(shù)可表示為3個(gè)素?cái)?shù)之和。完善程序，實(shí)現(xiàn)以上功能，程序界面參見(jiàn)右下圖。
Option Base 1
Private Sub Command1_Click()
Dim P() As Integer, N As Integer, L As Integer
Dim I As Integer, J As Integer, K As Integer
Dim Ch As String
N = InputBox("輸入一個(gè)大于5的奇數(shù)!")
Label1.Caption = CStr(N) & "="
Call Prime(P, N)
L = UBound(P)
For I = 1 To L
For J = 1 To L
For K = 1 To L
If P(I) + P(J) + P(K) = N Then
Ch = CStr(P(I)) & "+" & CStr(P(J)) & "+" & CStr(P(K))
Text1.Text = Ch
( )
End If
Next K
Next J
Next I
End Sub
Private Sub Prime( )
Dim I As Integer, Idx As Integer, J As Integer
For I = 2 To N
For J = 2 To Sqr(I)
If I Mod J = 0 Then Exit For
Next J
If( )Then
Idx = Idx + 1
( )
A(Idx) = I
End If
Next I
End Sub
25、下面程序模擬裁判評(píng)分(取某個(gè)范圍內(nèi)的隨機(jī)數(shù))，設(shè)有10名裁判，打分范圍為1到10，去掉一個(gè)最高分和一個(gè)最低分后，所得總分的平均分就是選手最后得分(四舍五入，保留1為小數(shù))。程序界面參見(jiàn)下圖。
Option Base 1
Private Sub Command1_Click()
Dim Score(10) As Single, i As Integer, Max As Single
Dim Min As Single, AV As Single, Sum As Single
For i = 1 To UBound(Score)
Score(i) = ( )
Text1 = Text1 & Str(Score(i)) & " "
( )
Next i
Call MaxMin(Score, Max, Min)
AV = (Sum - Max - Min) / 10
Text2 =( )
End Sub
Private Sub MaxMin(( ))
Dim i As Integer
Max = a(1): Min = a(1)
If a(i) > Max Then
Max = a(i)
ElseIf a(i) < Min Then
Min = a(i)
End If
Next i
End Sub
26、C盤根目錄下的數(shù)據(jù)文件data.txt中有兩組數(shù)據(jù)，第一組數(shù)據(jù)未排序，并以-1表示該組數(shù)據(jù)結(jié)束;第二組數(shù)據(jù)按從小到大順序排序。下面程序的功能是，單擊“讀入數(shù)據(jù)”按鈕，將文件中的兩組數(shù)據(jù)，分別讀入到A、B數(shù)組中，單擊“插入排序”按鈕，則把A數(shù)組的元素按其大小依次插入到B數(shù)組的適當(dāng)位置，使得B數(shù)組中元素仍為從小到大排列。完善程序，實(shí)現(xiàn)以上功能。程序界面參見(jiàn)下圖。
Dim a() As Integer, b() As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, s As String
( )
Do
Input #11, n
If n = -1 Then Exit Do
i = i + 1
ReDim Preserve a(i)
a(i) = n
s = s & Str(a(i))
Loop
Text1 = s
s = ""
( )
j = j + 1
ReDim Preserve b(j)
Input #11, b(j)
s = s & Str(b(j))
Loop
Text2 = s
Close #11
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, s As String
For i = 1 To UBound(a)
If a(i) < b(1) Then
Call change(a(i), 1)
ElseIf a(i) > b(UBound(b)) Then
(
b(UBound(b)) = a(i)
Else
For j = 2 To UBound(b)
If a(i) > b(j - 1) And a(i) <= b(j) Then Call change(a(i), j)
Next j
End If
Next i
For i = 1 To UBound(b)
s = s & Str(b(i))
Next i
Text3 = s
End Sub
Private Sub change(n As Integer, k As Integer)
Dim i As Integer
ReDim Preserve b(UBound(b) + 1)
For i = UBound(b) To k + 1 Step -1
( )
Next I
( )
End Sub
27、執(zhí)行下面的程序，單擊Form1，則圖片框中顯示的第一行是 ，第二行 ，最后一行 。
Private Sub Form_Click()
Dim a(3, 3) As Integer, i As Integer, j As Integer
For i = 1 To 3
For j = 3 To 1 Step -1
If i >= j Then
a(i, j) = i - j
Else
a(i, j) = j - i
End If
Next j
Next i
For i = 1 To 3
For j = 3 To 1 Step -1
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub
28、執(zhí)行下面的程序，單擊窗體，在窗體上顯示的變量A的值為 ，變量B的值為 。
Dim A As Integer
Private Sub Form_Click()
Dim B As Integer
B = 3: A = 4
B = Fun(Fun(A, B + 3), A) + B
Print A, B
End Sub
Private Function Fun(N As Integer, K As Integer)
N = N + A: K = N - K: Fun = N + K + A
End Function
29、執(zhí)行下面程序，單擊Form1，窗體上顯示的第一行是 ，第二行是 ，第三行是 。
Private Sub Form_Click()
Dim I As Integer, n As Integer
For I = 5 To 15 Step 2
n = Fun1(I, I)
Print n
Next I
Print I
End Sub
Private Function Fun1(ByVal a As Integer, b As Integer)
b = a + b: a = b - a: Fun1 = a + b
End Function
30、執(zhí)行下面程序，單擊窗體，在InputBox中輸入16384后，窗體上顯示的第一行是 ，第二行是 ，第三行是 ，最后一行是 。
Private Function ps(x As Integer) As Integer
If x < 100 Then
ps = x Mod 10
Else
ps = ps(x \ 10) * 10 + x Mod 10
Print ps
End If
End Function
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("請(qǐng)輸入一個(gè)數(shù)："))
Print ps(x)
End Sub
31、執(zhí)行下面程序，單擊窗體，多行文本框Text1中顯示的第一行是 ，第二行是 ，最后一行是 。
Private Sub Form_Click()
Dim st As String, n As Integer, ast As String
st = "12345"
n = Len(st)
Do
ast = change(st, n)
Text1 = Text1 & ast & vbCrLf
n = n - 1
Loop Until n <= 1
End Sub
Private Function change(st As String, n As Integer) As String
Static p As Integer
p = p + 1
change = Right(st, n - 1) & Left(st, p)
End Function
32、下面是一個(gè)利用遞推公式求函數(shù)f(x)的值的程序。設(shè)f(x)=a1+a2+…+an+…+(|x|<1)。其中a1= ，an=an-1· ，n=2,3，…。計(jì)算到第n項(xiàng)的絕對(duì)值小于0.001(| an |≤0.001)為止。
Private Sub Command1_Click()
Dim x As Single, sum As Single, n As Integer, a0 As Single, an As Single
Dim
x = Text1
n = 1
a0 = x / 2
( )
Do
n = n - 1
an = ( )
If abx(an) <= 0.001 Then Exit Do
sum = sum + an
( )
Loop
Text2 = sum
End Sub
33、下面程序的功能是：將文本框中的用分號(hào)分隔的數(shù)據(jù)(文本框中必須要有數(shù)據(jù))，分別賦值給二維數(shù)組B的各個(gè)元素;并將B數(shù)組各個(gè)元素分行顯示在圖片框中。程序界面參見(jiàn)下圖。
Option Base 1
Private Sub Command1_Click()
Dim B(3, 3) As Integer, I As Integer, Pos1 As Integer
Dim Pos2 As Integer, S As String, J As Integer
S = Text1
If S = "" Then
Text1 = "請(qǐng)輸入數(shù)據(jù)!"
( )
End If
For I = 1 To 3
For J = 1 To 3
Pos1 = ( )
Pos2 = InStr(Pos1, S, ";")
If ( ) Then
B(I, J) = Val(Mid(S, Pos1, Pos2 - Pos1))
Else
B(I, J) = Val(Mid(S, Pos1))
End If
Picture1.Print Str(B(I, J));
Next J
( )
Next I
End Sub
34、下面程序的功能是：對(duì)N階方陣A中與副對(duì)角線平行的各條斜線上的元素分別進(jìn)行累加求和并進(jìn)行比較，求出累加和的最大值Max。過(guò)程Count的功能是計(jì)算各條斜線上的元素和;計(jì)算分兩步進(jìn)行：先求副對(duì)角線和其上方斜線上的元素和，再求副對(duì)角線下方斜線上的元素和。程序界面圖參見(jiàn)下頁(yè)。(本程序設(shè)定N=5，數(shù)據(jù)從文件data.txt中讀取)
Option Base 1
Private Sub Command1_Click()
Dim I As Integer, A(5, 5) As Integer, J As Integer
Dim N As Integer, Max As Integer
Open ( )
Do ( )
For I = 1 To 5
For J = 1 To 5
Input #5, A(I, J)
Text1 = Text1 & Str(A(I, J)) & " "
Next J
Text1 = ( )
Next I
Loop
Call Look_for(A, Max)
Text2 = Text2 & "最大和是：" & Max
End Sub
Private Sub Look_for ( )
Dim Ub As Integer, I As Integer, J As Integer, Sum As Integer
Ub = UBound(A)
M = A(1, 1)
For I = 1 To Ub
Sum = A(1, I)
For J = 2 To I
Sum = Sum + A(J, I + 1 - J)
Next J
Text2 = Text2 & Sum & vbCrLf
If M < Sum Then M = Sum
Next I
For I = 2 To Ub
Sum = A(I, Ub)
For J = I + 1 To Ub
Sum = Sum + A(J, Ub + I - J)
Next J
Text2 = Text2 & Sum & vbCrLf
( )
Next I
End Sub
35、下面的程序的功能是：驗(yàn)證一個(gè)命題，即對(duì)任何一個(gè)非零的正整數(shù)，若為偶數(shù)則除以2，若為奇數(shù)則乘3加1，得到一個(gè)新的正整數(shù)后，再按照上面的法則繼續(xù)演算，經(jīng)過(guò)若干次演算后得到的結(jié)果必然為1。程序界面參見(jiàn)下圖。
Private Sub Command1_Click()
Dim X As Integer
Cls
X = InputBox("請(qǐng)輸入一個(gè)正整數(shù)：")
Print "驗(yàn)證" & X & "："
Call YZH(X)
End Sub
Private Sub YZH(N As Integer)
Dim I As Integer, S As String
If N Mod 2 = 0 Then
S = N & "/2"
N = N / 2
Print S & "=" & N
ElseIf ( ) Then
S = N & "*3+1"
N = N * 3 + 1
Print S & "=" & N
Else
( )
End If
( )
End Sub
【計(jì)算機(jī)二級(jí)基礎(chǔ)知識(shí)鞏固練習(xí)題】相關(guān)文章：
計(jì)算機(jī)二級(jí)C++考試知識(shí)鞏固題07-28
計(jì)算機(jī)二級(jí)公共基礎(chǔ)知識(shí)模擬試題07-28
計(jì)算機(jī)三級(jí)《網(wǎng)絡(luò)技術(shù)》鞏固練習(xí)題03-06
計(jì)算機(jī)二級(jí)考試練習(xí)題及答案07-22
2017計(jì)算機(jī)二級(jí)公共基礎(chǔ)知識(shí)模擬試題07-28
2017計(jì)算機(jī)二級(jí)公共基礎(chǔ)知識(shí)練習(xí)試題07-28
計(jì)算機(jī)二級(jí)考試試題VB練習(xí)題07-28