Lqwvej考試中心安徽省計(jì)算機(jī)二級(jí)VB筆試權(quán)威模擬試題及答案(共8頁(yè))

1、精選優(yōu)質(zhì)文檔-傾情為你奉上|生活|一個(gè)人總要走陌生的路，看陌生的風(fēng)景，聽陌生的歌，然后在某個(gè)不經(jīng)意的瞬間，你會(huì)發(fā)現(xiàn)，原本費(fèi)盡心機(jī)想要忘記的事情真的就這么忘記了. |-郭敬明全國(guó)高等學(xué)校（安徽考區(qū)）計(jì) 算 機(jī) 水 平 考 試 試 卷B（二級(jí) Visual Basic 語(yǔ)言）一、單項(xiàng)選擇題（每題1分，共40分）1計(jì)算機(jī)硬件系統(tǒng)中最核心的部件是 C 。 A）內(nèi)存儲(chǔ)器 B）輸入/輸出設(shè)備 C）CPU D）硬盤2計(jì)算機(jī)最早的應(yīng)用領(lǐng)域是 A 。A）科學(xué)計(jì)算 B）圖形處理 C）過(guò)程控制 D）人工智能3下列屬于文字處理軟件的是 B 。A）Windows B）Word C）PowerPointD）Excel4在

2、計(jì)算機(jī)系統(tǒng)內(nèi)部，所有數(shù)據(jù)都是采用 D 表示。A）十六進(jìn)制 B）十進(jìn)制 C）八進(jìn)制 D）二進(jìn)制5在Windows系統(tǒng)中，下面文件命名合法的是 B 。A）A*.DOC B）AB.DOC C）A?.DOC D）A>.DOC6計(jì)算機(jī)可以播放DVD等音像制品, 主要運(yùn)用的是 A 技術(shù)。A）多媒體 B）人工智能 C）數(shù)據(jù)庫(kù) D）數(shù)據(jù)挖掘7將文件從FTP服務(wù)器傳輸?shù)奖镜赜?jì)算機(jī)的過(guò)程稱為 D 。A）上傳 B）瀏覽 C）查找 D）下載8下列IP地址中，錯(cuò)誤的是 C 。A）55 B） C）219.260.20.12 D） 9下列關(guān)于計(jì)算機(jī)病毒

3、的敘述中，正確的是 C 。 A）加密文件不會(huì)感染計(jì)算機(jī)病毒 B）系統(tǒng)軟件不會(huì)感染計(jì)算機(jī)病毒C）有防火墻的計(jì)算機(jī)系統(tǒng)也會(huì)感染病毒D）壓縮的文件不會(huì)感染計(jì)算機(jī)病毒10計(jì)算機(jī)能直接運(yùn)行的是 B 。A）目標(biāo)程序B）機(jī)器語(yǔ)言程序 C）匯編語(yǔ)言程序D）高級(jí)語(yǔ)言程序11下列選項(xiàng)中是Visual Basic的合法變量名的是 C。A）1_abc B）abc-1 C）abc_1 D）abc.112對(duì)正整數(shù)X、Y，有下列表達(dá)式，不能判斷X能被Y整除的是 C 。A）X/Y=Int(X/Y) B）X Mod Y =0 C）XY=Fix(X/Y) D）XY=X/Y13下面可以正確定義2個(gè)整形變量和一個(gè)字符型變量的語(yǔ)句是

4、B 。A）Dim x, y As Integer, n As StringB) Dim x%, y As Integer, n As StringC) Dim x%, y$, n As StringD) Dim x As Integer, y, n As String14下面表達(dá)式中， A 的運(yùn)算結(jié)果與其他三個(gè)不同。A）Exp(-3.5)B）Int(-3.5)+0.5 C）-Abs(-3.5) D）Sgn(-3.5)-2.515將任意一個(gè)正的兩位整數(shù)N的個(gè)位數(shù)與十位數(shù)對(duì)換的表達(dá)式為 A 。A）（N-Int(N/10)*10）*10+Int(N/10)B）N-Int(N)/10*10+Int(N

5、)/10C）Int(N/10)+(N-Int(N/10)D）(N-Int(N/10)*10+Int(N/10)16執(zhí)行語(yǔ)句s = Mid("VisualBasic",1,6)后，s的值是 A 。A) Visual B) Basic C) 6 D) 1117表達(dá)式5 Mod 3+35*2的值是 B 。A）0 B）2 C）4 D）618選拔性別S是女，身高T超過(guò)1.6米且體重W小于62.5公斤的人，表示該條件的表達(dá)式為 C 。A) S="女" And T>=1.6 And W<=62.5B) S="女" Or T>1.7

6、 Or W<62.5C) S="女" And T>1.6 And W<62.5D) S="女" Or T<=1.7 Or W>=62.519可以強(qiáng)行中斷程序運(yùn)行的操作是 D 。A) 按Ctrl+C鍵B) 按Ctrl+Z鍵C) 按Ctrl+V鍵D) 按Ctrl+Break鍵20在默認(rèn)條件下有數(shù)組聲明語(yǔ)句：Dim A(2, -2 to 2, 3)，則數(shù)組A包含 D 個(gè)元素。A) 200 B) 120 C) 75 D) 60 21已設(shè)置數(shù)組元素下標(biāo)從1開始，下列程序段運(yùn)行時(shí)會(huì)提示出錯(cuò)，出錯(cuò)的原因是 C 。a = Array(1,

7、2, 3, 4)For i = 4 To 1 Step -1Print a(i)Next iPrint a(i)A）第三行，數(shù)組元素a(i)下標(biāo)越界 B）第一行，數(shù)組沒(méi)定義，不能直接賦值C）第五行，數(shù)組元素a(i)下標(biāo)越界 D）第二行，循環(huán)語(yǔ)句格式不對(duì)22下列語(yǔ)句不合法的是 D 。A）x = 1: y = 2 B）Print x; y; C）Print x, y, D）x=1;y=223當(dāng)0<x<10時(shí)，將x賦值給y，應(yīng)使用語(yǔ)句 C 。A) If 0<x<10 Then y=xB) If 0<x Or x<10 Then y=xC) If 0<x An

8、d x<10 then y=xD) If 0<x Xor x<10 Then y=x24以下敘述中正確的是 A 。A) 窗體的Name屬性指定窗體的名稱，用來(lái)標(biāo)識(shí)一個(gè)窗體B) 窗體的Name屬性值是顯示在窗體標(biāo)題欄中的文本C) 可以在運(yùn)行期間改變對(duì)象的Name屬性值D) 對(duì)象的Name屬性值可以為空25當(dāng)啟動(dòng)程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的A 事件過(guò)程。A) Load B) Unload C) Click D) DblClick26將數(shù)據(jù)項(xiàng)"China"添加到列表框List1中成為第3項(xiàng)，應(yīng)使用 B 語(yǔ)句。A）List1.AddItem "Chin

9、a"，3 B）List1.AddItem "China"，2C）List1.AddItem 3，"China" D）List1.AddItem 2，"China"27若要使標(biāo)簽框的大小自動(dòng)與所顯示的文本相適應(yīng)，則可通過(guò)設(shè)置其 A 屬性值為True來(lái)實(shí)現(xiàn)。A）AutoSize B）Alignment C）Appearance D）Visible28復(fù)選框或單選按鈕的當(dāng)前狀態(tài)通過(guò) A屬性來(lái)設(shè)置或訪問(wèn)。A) ValueB) Checked C) Selected D) Caption29要將列表框List1中當(dāng)前選中的一項(xiàng)刪除，應(yīng)

10、執(zhí)行的語(yǔ)句是 D 。A) List1.ClearB) list1.Clear List1.ListIndexC) List1.Delete List1.ListIndexD) List1.RemoveItem List1.ListIndex30下列控件可以用作其他控件容器的有 D 。A) 窗體，標(biāo)簽，圖片框 B) 窗體，框架，文本框C) 窗體，圖像，列表框D) 窗體，框架，圖片框31因修改文本框的內(nèi)容而觸發(fā)的事件是 A 。A) ChangeB) GotFocusC) LostFocusD) SetFocus32如果每秒觸發(fā)10次計(jì)時(shí)器的Timer事件，那么計(jì)時(shí)器的Interval屬性應(yīng)設(shè)為 C

11、 。A) 1 B) 10 C) 100 D) 100033下列對(duì)象中不能獲得焦點(diǎn)的是 B 。A）命令按鈕控件B）標(biāo)簽控件C）文本框控件D）單選按鈕控件34設(shè)x=4，y=8，z=7，表達(dá)式x<y And (Not y>z) Or z<x的值是 D 。 A）1B）-1 C）True D）False35在設(shè)計(jì)階段，雙擊窗體Form1的空白處，則在代碼窗口打開 B 事件過(guò)程代碼。A）Form_Click B）Form_Load C）Form_ DblClick D）Form_ Unload36如下有一段不完整的程序段，若要求該程序執(zhí)行3次循環(huán)，則在程序中的空白處填入 A 。 X=1

12、Do x=x+3: Print x Loop Until A）x>=8B）x<=8 C）x>=7D）x<=737執(zhí)行語(yǔ)句Open "D:RandFile.dat" For Output As #1后，對(duì)文件“D:RandFile.dat”能夠進(jìn)行的操作是 B 。A）只能讀不能寫 B）只能寫不能讀C）既可以寫，也可以讀 D）既不能讀，也不能寫38要在運(yùn)行時(shí)暫時(shí)關(guān)閉計(jì)時(shí)器，可通過(guò)賦值語(yǔ)句使計(jì)時(shí)器的 C 屬性值為False。A）IndexB）Tag C）Enable D）Interval39Visual Basic 中數(shù)據(jù)庫(kù)的訪問(wèn)技術(shù)不包括 D 。A）AD

13、O B）DAO C）RDO D）DBMS40下列關(guān)于菜單的論述中，錯(cuò)誤的是 D 。A）菜單項(xiàng)是控件，也具有屬性B）菜單項(xiàng)只有Click事件C）不能在頂層菜單加快捷鍵D）在程序運(yùn)行過(guò)程中，不能通過(guò)賦值語(yǔ)句設(shè)置菜單項(xiàng)的屬性二、填空題（每空2分，共20分）1. 數(shù)學(xué)表達(dá)式的Visual Basic表達(dá)式是： (x+y)3*(t+u)2/t/(x-y) 。2. 關(guān)系式-7.5x7.5所對(duì)應(yīng)的邏輯表達(dá)式是： x<=7.5 and x>=-7.5 。3. 以下程序用于判斷輸入的年份是否閏年，如果年份能被4整除但不能被100整除,或者年份能被400整除，則該年是閏年，否則不是閏年，請(qǐng)?zhí)羁胀晟瞥绦?/p>

14、。Private Sub Command1_Click()y = Val(InputBox("請(qǐng)輸入一個(gè)年份")If y mod 4=0 and y mod 100<>0 Or y Mod 400 = 0 ThenPrint Str(y) & "年是閏年！"ElsePrint Str(y) & "年不是閏年！"End IfEnd Sub4. 利用隨機(jī)函數(shù)產(chǎn)生20個(gè)10,90之間的隨機(jī)整數(shù)，每行輸出4個(gè)整數(shù)。填空完成以下程序。Private Sub Form_Click() Dim sum As Intege

15、r, x As Integer Randomize For i = 1 To 20 x = Int(81*rnd)+10 '用隨機(jī)函數(shù)產(chǎn)生1090之間的整數(shù) Print x; If i mod 4=0 Then Print '滿足換行條件時(shí)換行 Next i End Sub5. 下列程序的功能是在數(shù)組中找出數(shù)值最大的元素，請(qǐng)?zhí)羁胀晟瞥绦?。Private Sub Command1_Click()Dim arr1 as Variant, Max As Integerarr1 = Array(12, 34, 10, 78, 4, 89, 45)Max = arr1(0)For i =

16、 1 To 6 If arr1(i) > Max Then Max = arr1(i) End ifNext iPrint "最大值是：" MaxEnd Sub6. 下列程序的功能是計(jì)算（N是偶數(shù)），試填空完成以下程序。Private Sub Command2_Click()Dim S As DoubleDim I As Integer, N As IntegerDim C As IntegerS = 0: I = 1: C = 1N = Val(InputBox("請(qǐng)輸入大于零的偶數(shù)N：") Do S = S + C * I * I C = -1

17、*C '正負(fù)號(hào)切換 I = I+1 '循環(huán)變量增加 Loop While I<=N '循環(huán)結(jié)束條件End Sub三、閱讀理解題（每小題4分，共20分）1執(zhí)行下列程序后，輸出的結(jié)果是： 1010 Private Sub Form_Click()Dim x As Integerx = 10Select Case xCase Is >= 10Print x & xCase 7, 8, 9Print x + xCase 0 To 6Print xEnd SelectEnd Sub 2執(zhí)行下列程序后，輸出的結(jié)果是： cals Private Sub Form_

18、Click()Dim i As IntegerDim t As Stringst = ""For i = 1 To 12 '字符串逐字符處理If i Mod 3 = 0 Thenst = Mid("Visual Basic", i, 1) + stEnd IfNext iPrint stEnd Sub 3執(zhí)行下列程序后，輸出的結(jié)果是： 55 Private Sub Form_Click()Dim s As Integer, n As Integers = 0n = 1 Dos = s + n * nIf s > 50 ThenExit Do

19、 '強(qiáng)制跳出循環(huán)End Ifn = n + 1 '循環(huán)變量自增Loop Until n > 6Print sEnd Sub 4執(zhí)行下列程序后，輸出的結(jié)果是： 102 Option Base 1Private Sub Form_Click()Dim a(4, 4) As IntegerDim i As Integer, j As IntegerDim count As Integer, s As Integercount = 1For i = 1 To 4 '給二維數(shù)組賦值并累加特殊位置的元素值 For j = 1 To 4 a(i, j) = count coun

20、t = count + 1 If i = 1 Or i = 4 Or j = 1 Or j = 4 Then s = s + a(i, j) End If Next jNext iPrint sEnd Sub 5執(zhí)行下列程序后，E盤下tdata.txt文件中的內(nèi)容是： 30 Private Sub Form_Click()For i = 1 To 5s = s + fun(i)Next iOpen "e:tdata.txt" For Output As #1 '打開順序文件Print #1, sClose #1End SubPrivate Function fun(

21、ByVal i As Integer) As IntegerStatic aa = a + 1fun = a * iEnd Function 四、編程題（共20分）1編寫一個(gè)Function函數(shù)fun，求解如下分段函數(shù)的值（x為實(shí)型變量的函數(shù)形參）（6分）Y=-x x<0x2 0x10100 x>10 答：Private Function FUN(ByVal x As Single) As SingleDim y As SingleIf x < 0 Theny = -xElseIf x <= 10 Theny = x * xElsey = 100End IfFUN =

22、yEnd Function2編寫程序，利用隨機(jī)函數(shù)產(chǎn)生10個(gè)10，100之間的整數(shù)，并存入數(shù)組中，求出該數(shù)組中最大數(shù)與最小數(shù)之差并在窗體上輸出結(jié)果。（7分）答：Dim a(9) As Integer Dim i As Integer, max As Integer, min As IntegerFor i = 0 To 9a(i) = Int(Rnd * 91)+10 Next imax = -1：min = 999For i = 0 To 9 If max < a(i) Then max = a(i)If min > a(i) Then min = a(i)Next iPrint "最大及最小數(shù)之差為" max - min 參考程序2：（排序計(jì)算）Dim a(9) As Integer Dim i As Integer, max As Integer, min As IntegerFor i = 0 To 9a(i) = Int(Rnd * 91)+10 Next iFor i = 0 To 8 For j = i +