秋浙江省高校計(jì)算機(jī)等級(jí)考試VB

1、2002 年秋浙江省高校非計(jì)算機(jī)專業(yè)學(xué)生計(jì)算機(jī)等級(jí)考試試卷 ( 二級(jí) Visual BASIC)說明 : (1) 考生向?qū)⒃囶}一至試題二的答案涂在答題卡上 , 將第四、丑題的答案填寫在答卷上 ,否則作無效處理 ; (2) 請(qǐng)將你的準(zhǔn)考證號(hào)的后四位填寫在答卷的右下角指定位置內(nèi) :(3) 考試時(shí)間為 120 分鐘。試題一、計(jì)算機(jī)基礎(chǔ)題 ( 本題共 15 分 )( 一)單選題 ( 每小題 l 分 , 共 10 分 )(1)下列各種進(jìn)位計(jì)數(shù)制中,最小的數(shù)是 (1) 。A 、 (110010l)2 B、(146)8 C、（100）10 D、（6A）16(2) 對(duì)于一張加了寫保護(hù)的軟盤,它 (2) 。 A

2、、既不會(huì)傳染病毒 , 也不會(huì)被病毒感染 B、不但會(huì)向外傳染病毒 , 還會(huì)被病毒感染 C、雖不會(huì)傳染病毒 , 但會(huì)被病毒感染 D、且不會(huì)被病毒感染 , 但會(huì)向外傳染病毒(3) 主頻義稱為 (3) 頻率,是指計(jì)算機(jī)的CPU在單位時(shí)間內(nèi)工作的脈沖數(shù)。A、邊度B、時(shí)鐘C、存取D、與行(4) 在 Windows 98 環(huán)境中,使用開始菜單的運(yùn)行命令,不能執(zhí)行 （4） 文件。A、 S1.PRGB、 S2.COMC、 S3.BATD、 S4.EXE(5) 在 Windows 98 環(huán)境下,下列有關(guān)對(duì)回收站操作的敘述中, （5） 是正確的。A、回收站中的還原命令,只能將文件恢復(fù)到磁盤中原來的位置B、可以將軟盤

3、上刪除的文件放入回收站C、刪除硬盤上的文件時(shí) , 被刪除的文件必定放入回收站D、每個(gè)硬盤的回收站大小是固定的,用戶不能更放(6) 操作系統(tǒng)是一種 (6) 。A、系統(tǒng)軟件B、應(yīng)用軟件 C、軟件包 D、游戲軟件(7) 漢字處理系統(tǒng)中的字庫文件用于 （7） 。A、將輸入碼轉(zhuǎn)換為機(jī)內(nèi)碼B、輸山時(shí)轉(zhuǎn)換為顯示或打印字模C、漢字識(shí)別D、輸入時(shí)的鍵位編碼(8) 如果將 Word 文檔的文件屬性設(shè)置為只讀,則對(duì)文檔的更改 (8) 在同一個(gè)文件中。A、可以仍然保存 B、可以部分保存C、不能保存D、可以用密碼保存(9) 當(dāng)一封電子郵件發(fā)出后,收件人由于種種原閃一直沒有開機(jī)接收郵件,那么該郵件將 （9） 。A、退回

4、B、重新發(fā)送C、丟失 D、保存在 ISP 的 E-mail 服務(wù)器上(10) 計(jì)算機(jī)網(wǎng)絡(luò)協(xié)議是指 (10) 。A、各網(wǎng)絡(luò)用戶之間簽汀的法律文書 B、上網(wǎng)人員的道德規(guī)范C、計(jì)算機(jī)信息傳輸?shù)臉?biāo)準(zhǔn)形式 D、實(shí)現(xiàn)網(wǎng)絡(luò)連接的軟件總稱（二）雙選題 ( 每小題 1 分 , 共 5 分 ) 注 : 從供選作的答案中選兩個(gè)正確答案(11)下列關(guān)于打印機(jī)的描述中 (11) 是正確的。A 、針式打印機(jī)是擊式打印機(jī)B 、激光打印機(jī)是頁式打印機(jī)C 、嘖墨打印機(jī)的噪聲最小D 、項(xiàng)墨打印機(jī)只能打印黑百畫面(12) Word 編輯軟件中使用格式刷可以復(fù)制 (12) 。A、文字的字號(hào)B、文字的內(nèi)容C、為普通文字復(fù)制藝術(shù)字式樣D

5、、文字的顏色(13) 在傳統(tǒng)方式下，將高級(jí)語言源程序送入計(jì)算機(jī)后 , 使它形成可執(zhí)行程序,必須使用的系統(tǒng)軟件有 (13) 。A、編譯程序 B、目標(biāo)程序 C、連接程序 D、匯編程序(14) 在 Windows 98 中 ,下列有關(guān)“網(wǎng)上鄰居”操作的敘述, (14) 是正確的。A、通過網(wǎng)上鄰居 , 可以訪問網(wǎng)絡(luò)中其它計(jì)算機(jī)中的共享文件夾B、為了通過網(wǎng)上鄰居復(fù)制某計(jì)算機(jī)上的文件A.DOC,應(yīng)將A.DOC 設(shè)置為共享C、若某計(jì)算機(jī)中僅對(duì)C:TC文件夾設(shè)置了共享,z則可以利用網(wǎng)上鄰居直接把TC文件夾復(fù)制到本地計(jì)算機(jī)上D、若某計(jì)算機(jī)中僅對(duì)C:TC文件夾設(shè)置了共享,則用戶可以在本地計(jì)算機(jī)上,將TC文們件夾設(shè)

6、置為映射網(wǎng)絡(luò)驅(qū)動(dòng)器(15) 計(jì)算機(jī)中的運(yùn)算器能在控制器的指揮下，實(shí)現(xiàn) （15） 。A、代數(shù)運(yùn)算 B、算術(shù)運(yùn)算 C、邏輯運(yùn)算 D、公式化簡(jiǎn)試題二、語言基礎(chǔ)題 ( 本題共 30 分 )(一)判斷題 ( 本題共 10 分 , 每小題 1 分 )說明 : 在以下提供的若干陳述中 , 逐一判斷其正確與否,正確選擇選A,錯(cuò)誤選擇B(16) VB的Double類型數(shù)據(jù)可以精確表示其數(shù)值范圍內(nèi)的任何實(shí)數(shù)。(17) 標(biāo)簽控件可以響應(yīng) Click 事件。(18) 文本框控件的MaxLength屬性值為0時(shí),在文本框內(nèi)不可以輸入任何字符。(19) 單擊組合框中的任一表項(xiàng),該表項(xiàng)的文本就會(huì)替換這一組合框控件的Text

7、 屬性值。(20) 若窗體的坐標(biāo)刻度為“ 緹”、窗體上的圖片框控件的坐標(biāo)刻度為“磅”,則圖片框的 Left屬性值的單位為“緹”。(21) 定時(shí)器控件只能響應(yīng)Timer 事件。(22) 執(zhí)行語句Pic1.Picture=”c:tempa.bmp”,可以為圖片框控件pic1 加載文件名為C:tempa.bmp 的圖形文件。(23) 若在窗體的 Form_load 事件:中寫入語句“Print 歡迎使用本系統(tǒng) !”, 則裝入該窗體后 ,窗體上會(huì)顯示“歡迎使用本系統(tǒng) !”。(24) 在Open 語句中用 Append 方式所打開的文件必須已經(jīng)存在, 否則會(huì)出現(xiàn)運(yùn)行錯(cuò)誤。 (25) 將Data 控綁定到

8、某個(gè)Access 數(shù)據(jù)庫的一個(gè)表,應(yīng)修改Data控件的DatabaseName屬性以及Recordsource屬性。（二）單選題 (本題共 20 分,每小題 2 分)(26) 在 Form2 中引用 Form1 中的全局變量x, 寫作 （26） 。A、x B、.Form1.x C、Form2.x D、 Form1_Pablic.x(27) 條什“x 能被 m 整除、但不能被 n 整除”寫作 VB 的表達(dá)式為 （27） 。A、x Mod m=0 & x Mod n0. B、xm*m=xn*nxC、(xm)*m=x And (xn)*nx D、x Mod m=0 And x Mod n!=0(28

9、) x 是 Integer 類型變量，無論取何值，字符串表達(dá)式 (28) 的長(zhǎng)度為10A、Space (l0-Len(S1r(x)+X B、Space(l0-Len(Trim(Str(x)+xC.Space (l0-Len(x) & x D、Space(10-Len(Trim(Str(x) & x (29) 執(zhí)行語句 (29) 后Text1.SelStart=0：Text1.Selength=Len(Textl.Text)”,可以使文本框控件Text1 中的全部文本突山顯示。A、Text1.enabled=True B、Text1.SetFocusC、Text1.Locked =False D

10、、Tcxt1.Move(30) 容器的 ScaleMode 屬性值為 （30） 時(shí)，容器坐標(biāo)系的刻度單位為一磅 A、2 B、1 C、4 D、6(3l) 改變了容器的坐標(biāo)系后 , 該容器的 （31） 屈性值不會(huì)改變。A 、Left B、ScaleLeft C、ScaleTop D、Scalewidth(32) 直線控件所不具有的屬性是 （32） 。A、Index B、x1 C、y2 D、x(33)若目錄列表框控件Dir1的Path屬性當(dāng)前值為C:,雙擊該列表框的表項(xiàng)Pwin98后 ,控件Dir1的Path屬性當(dāng)前值為(33) A、c:Pwin98B、c:Pwin98C、c:Pwin98D、c:P

11、win98(34) 編制一個(gè)將Single類型數(shù)組各元素按值從小到大排序的Sort過程，該過程(34) 。 A、Private Subsort(a()As Single， n As Integer) As IntegerB、private Sub sort(a(l To n)As Single，n As Integer)C、Private Sub sort(ByRef a() As Single, n AsInteger) As IntegerD、Private Sub sort(a()As Single, n As Integer)(35) 設(shè)置圖片框控件Pic1的背景色為紅色,可以執(zhí)行語句

12、(35)A 、Pic1.BackColor=QBcolor(1) B、Pic1.BackColor255C、 PiC1.BackColor=RGB(0,0,255) D、PiC1.BackColor =RGB(0,255,0)試題三、程序填空題 ( 本題共 l0 分 , 每空 2 分 )閱讀下列科序說明和相應(yīng)的程序,在每小題提供的若干可選答案中,挑選一個(gè)正確答案。.【程序說明】本程序運(yùn)行時(shí),無論如何調(diào)整窗體的邊界,單擊窗體后都以窗體的中心位置為圓心、以30毫米為半徑畫出一個(gè)圓餅圖。Private Sub Form Load()FillStyle=O(36)EndSubPrivate Sub F

13、orm_Click() (37) FillColor = RGB(255,0,0)Circle (0,0),30, , -3.14159*2, -3.14159*2/3FillColor=RGB(0,255,0)Circle(0,0),30, ,-3.14159*2/3, -3.14159*4/3Fillcor = RGB(0,0,255) (38) End Sub(36)A、Scalemode = 6 B、Scale (-scaleWidth/2,-ScaleHight/2)-(ScaleWidth/2,ScaleHeight/2)C、Form1.Scale(-width/2,-Top/2)

14、-(width/2,Top/2)D、Scale(-width/2,-Top/2)-(width/2,Top/2)(37)A、ScaleMode=6 B、ScaleMode=1C、Scale(-ScaleWidth/2,-ScaleHeight/2)-(ScaleWidth/2,ScaleHeight/2)D、ScaleMode=2(38)A、Circle(0,0),30,-3.14159*4/3,-3,14159*2B、Circle(0,0),30, , -pl*4/3,3.14159*2C、Circle(0,0),30, , -3.14159*4/3,0D、Circle(0,0),30, ,

15、 -3.14159*4/3, -3.14159*22. 【 程序說明】下列程序運(yùn)行時(shí),單擊Command1(0)后,從外部文件中讀入的數(shù)據(jù)顯示在組合框中,如下圖所示。單擊Command1()后,將組合框中的各表項(xiàng)輸出到外部文件；單擊 Command1(2)后,將組合框中的部分的文本添為組合框的表項(xiàng)；單擊Command1(3)后,將組合框中選中的表項(xiàng)刪除。Private Sub Command1_Click(Index As Integer)Select Case IndexCase OCombo1.ClearOpen d:aaa.txt For input As #1Do while Not

16、EOF(l)Line Input #1,a$Combo1.AddItem a$LoopClose #lCase 1Open d:aaa.txt For Output As #1For I%=O To Comb1.listCount - 1 Print #1, Combo1.list(I%)Next i%Close #1Case 2 ，添加 （39） Case 3 ，刪除 （40） End SelectEnd Sub(39)A.Combo1.AddItem Combo1.Text B.Combo1.Append Combo1.TextC.Combo1.Add Combo1.Text D.Comb

17、o1.AddItem Combo1.List(ListIndex)C.Combo1.RemoveItem Combo1.ListIndex C.Combo1.Clear Combo1.Listindex試題四、程序閱讀題 ( 本題共20 分 , 每小題 5 分 )1程序運(yùn)行時(shí)單擊 Command1 后 , 輸入 l2345678,寫出窗體上的輸出結(jié)果。Private Sub Command1_Click() Dim x As long, y As String x = InputBox(,)Do While X 0y = y & x Mod 10y = xlO Mod 10 & y x = x

18、100 print yLoopEnd Sub2. 若列表杠控件List1的 Sorted 屬性為 True, 寫出下列程序運(yùn)行時(shí)單擊command1 后列表框中的顯示結(jié)果。Dim x (6) As IntegerPrivate Sub Command1_Click()Listl.ClearFor i%=2 To 5 x(i%) = (x(i%) 1 ) + (i%+1)/3Next i% For i% = 2 To 5List1.AddItem x(i%)Ncxt i%End SubPrivate Sub Form_Load () For i% = l To 6 x(i%)= 7 - i%Ne

19、xt i%End Sub3.依次寫出下列程序運(yùn)行時(shí)四次單擊命令按鈕 Command1后窗體上的輸出結(jié)束。Dim x As Integer, y As IntegerPrivate Sub f1(a As Integer) a = a / 2 End SubPrivate Sub f2(ByVal b As Integer)b=b/2End SubPri vate Sub Command1_Cl ick()Call fl(x) Call f2(y)Print x,yEnd SubPrivate Sub Form Load()x= 64;y =64End Sub4.控件Hscroll1的屬性設(shè)置如

20、下Hscroll1.Min =1Hscroll1.Max=9Hscroll1.Value=1Hscroll1.SmallChange=2Hscroll1.LargeChange=4下列程序運(yùn)行時(shí),4次單擊滾動(dòng)條右端箭頭,寫出各次單擊時(shí) Text1 上的顯示結(jié)果。Dim y As SinglePrivate Function f1(x2 As Integer) As SingleStatic x1 As Integer f1=0 For i%=x1 To x2 f1 = f1+ i%Next i%x1=i%End FunctionPrivate Sub Hscroll1_change() y = y + f1(Hscroll1.Valuc)Text1.Text = y End sub試題五、程序設(shè)計(jì)題 ( 本題共25分,第1小題5分,第2、3小題各10分 )l.、編制事件程序 Command1_Click,執(zhí)行該過程時(shí)輸入n,并計(jì)算下列表達(dá)式的值，然后將計(jì)算結(jié)果，在文本框控控件Text1中顯示。2 3 4 n1 + + + + +3445 56 (n+