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