河北省對(duì)口升學(xué)計(jì)算機(jī)專業(yè)試題

1、裝 訂 線 內(nèi) 不 要 答 題2014年河北省普通高等學(xué)校對(duì)口招生考試計(jì)算機(jī)專業(yè)理論試題（A）注意事項(xiàng)：1本試卷共八道大題?？偡?40分。2第I卷“一、選擇題”、第II卷“二、判斷題”的答案填涂在機(jī)讀卡上，其余各題答案寫(xiě)在答題紙上，答在試卷上不得分。用藍(lán)黑鋼筆、碳素筆或圓珠筆答題。3答題前將密封線內(nèi)項(xiàng)目填寫(xiě)清楚。第卷（選擇題 共100分）一、選擇題（本大題共50小題，每小題2分，共100分。在每小題所給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求，將正確選項(xiàng)填涂在機(jī)讀卡上 1下列設(shè)備中，全部屬于輸出設(shè)備的一組是.（ ） A掃描儀、鍵盤(pán)、顯示器 B激光打印機(jī)、鍵盤(pán)、鼠標(biāo) C麥克風(fēng)、繪圖儀、顯示器 D噴墨

2、打印機(jī)、繪圖儀、音箱2計(jì)算機(jī)軟件一般分為系統(tǒng)軟件和應(yīng)用軟件兩大類，下列選項(xiàng)中不屬于系統(tǒng)軟件的是.（ ） A操作系統(tǒng) B數(shù)據(jù)庫(kù)管理系統(tǒng) C用匯編語(yǔ)言編寫(xiě)的程序 D語(yǔ)言處理程序3與十六進(jìn)制數(shù)37.A等值的二進(jìn)制數(shù)是.（ ）A.110101.011 B.110100.111 C4下列關(guān)于病毒的敘述中哪一條是正確的.（ ） A殺毒軟件通常是滯后于計(jì)算機(jī)新病毒的出現(xiàn) B殺毒軟件可以查、殺所有種類的病毒 C計(jì)算機(jī)病毒只感染可執(zhí)行文件 D將防火墻打開(kāi)，再定期用殺毒軟件殺毒，就不會(huì)感染病毒了5用計(jì)算機(jī)進(jìn)行圖書(shū)館的資料檢索工作，這主要涉及計(jì)算機(jī)應(yīng)用中的（ ） A科學(xué)計(jì)算B數(shù)據(jù)處理 C過(guò)程控制 D輔助設(shè)計(jì)62.4

3、MB的磁盤(pán)空間大約可以存放的漢字?jǐn)?shù)目是.（ ） A240萬(wàn) B30萬(wàn) C60萬(wàn) D120萬(wàn)7某微機(jī)主要技術(shù)參數(shù)為“P4/1.7G/128M/60G/”，其中1.7G的含義為（ ） ACPU 的運(yùn)算速度為1.7GMIPS BCPU 的時(shí)鐘主頻為1.7GHz CCPU 的內(nèi)存為1.7GDCPU 與內(nèi)存間的數(shù)據(jù)交換速率是1.7GB/S8在Windows XP中，按住Ctrl鍵的同時(shí)，用鼠標(biāo)左鍵將選定的文件拖放到另一個(gè)文件夾，系統(tǒng)進(jìn)行的操作是.（ ）A無(wú)論源文件夾和目的文件夾是否在同一磁盤(pán)內(nèi)，均實(shí)現(xiàn)復(fù)制B無(wú)論源文件夾和目的文件夾是否在同一磁盤(pán)內(nèi)，均實(shí)現(xiàn)移動(dòng)C若源文件夾和目的文件夾在同一磁盤(pán)內(nèi)，將實(shí)現(xiàn)移

4、動(dòng)D若源文件夾和目的文件夾不在同一磁盤(pán)內(nèi)，將實(shí)現(xiàn)移動(dòng)9在Windows XP中，同一磁盤(pán)上.（ ）A允許同一文件夾中的文件同名，也允許不同文件夾中的文件同名B不允許同一文件夾中的文件同名，也不允許不同文件夾中的文件同名C允許同一文件夾中的文件同名，不允許不同文件夾中的文件同名D不允許同一文件夾中的文件同名，允許不同文件夾中的文件同名10在 Windows XP 中，卸載應(yīng)用程序的正確方法是進(jìn)入.（ ）A我的電腦 B資源管理器 C控制面板 D注冊(cè)表11對(duì)于Windows XP的回收站，下列敘述正確的是.（ ）A“回收站”中可以存放所有外存儲(chǔ)器中被刪除的文件或文件夾 B“回收站”是硬盤(pán)中的一塊區(qū)域

5、C“回收站”的大小是固定的，不能調(diào)整D在“回收站”圖標(biāo)上點(diǎn)右鍵可以還原所有文件12在Word2003的編輯狀態(tài)，有關(guān)查找操作的敘述中，正確的是. （ ）A查找時(shí)，可以無(wú)格式進(jìn)行、也可以帶格式進(jìn)行、還可以查找一些特殊的非打印字符 B查找時(shí)，只能帶格式進(jìn)行 C查找時(shí)，只能在整個(gè)文檔范圍內(nèi)進(jìn)行 D查找時(shí)，可以無(wú)格式進(jìn)行、也可以帶格式進(jìn)行，但不能查找一些特殊的非打印字符13在Word2003中，若插入的表格中，內(nèi)外框線都是實(shí)的，想要將其改變?yōu)樘摼€，應(yīng)選擇的命令是.（ ）A“表格”菜單中的“顯示虛框” B“表格”菜單中的“繪制表格” C“表格”菜單中的“表格自動(dòng)套用格式” D“表格”菜單中的“表格屬性”

6、 14在Word2003文檔編輯過(guò)程中，欲把整個(gè)文檔中的“計(jì)算機(jī)”一詞都刪除，最簡(jiǎn)單的方法是使用“編輯”菜單中的（ ）A清除 B撤消 C剪切 D替換15打開(kāi)Excel2003工作簿，將單元格C2設(shè)置為文本類型，輸入時(shí)間“10:20:17”，選中C2單元格，按住Alt鍵，然后拖動(dòng)向下填充句柄進(jìn)行填充,則完成的操作是（ ）A下面單元格內(nèi)連續(xù)出現(xiàn)“時(shí)”的遞增B下面單元格內(nèi)連續(xù)出現(xiàn)“分”的遞增C下面單元格內(nèi)連續(xù)出現(xiàn)“秒”的遞增D下面單元格內(nèi)全部都是“10:20:17”16在Excel2003中，下面關(guān)于分類匯總的敘述正確的是.（ ）A分類匯總的關(guān)鍵字段可以是多個(gè)字段 B分類匯總可以被刪除，刪除匯總后排

7、序操作可以撤消 C分類匯總前必須按關(guān)鍵字段排序 D匯總方式只能是求和17在Excel2003中，要查看“某商場(chǎng)4月份銷售的創(chuàng)維或康佳彩電、價(jià)格在4000至6000（含邊界），且銷量在50臺(tái)以上的記錄”，若使用高級(jí)篩選，其條件區(qū)域表示正確的是（ ）A 品牌品牌價(jià)格價(jià)格銷量創(chuàng)維康佳>=4000<=6000>50B品牌價(jià)格價(jià)格銷量創(chuàng)維>=4000<=6000>50康佳>=4000<=6000>50C 品牌價(jià)格價(jià)格銷量創(chuàng)維>=4000>50創(chuàng)維<=6000>50康佳>=4000<=6000>50 D品牌價(jià)格

8、數(shù)量創(chuàng)維>=4000>50創(chuàng)維<=6000>50康佳>=4000>50康佳<=6000>5018在Visual Basic中，Print Int(Rnd)+Int(3+Rnd)的結(jié)果是.（ ）A無(wú)法確定 B. 2 C. 3 D. 419在Visual Basic中，當(dāng)窗體啟動(dòng)時(shí)能夠被觸發(fā)的事件是.（ ） AUnLoad B.Click C.DblClick D.Load 20Visual Basic中，窗體的標(biāo)題用以下哪個(gè)屬性表示.（ ）AValue BCaption C. Text D. Topic21Visual Basic中,表達(dá)式 3 M

9、od 2 * 4的值是（ ）A. 1 B. 2 C. 3 D422關(guān)于Visual Basic中列表框?qū)傩缘恼f(shuō)法不正確的選項(xiàng)是.（ ）A列表框既有添加列表項(xiàng)的方法，也有刪除列表項(xiàng)的方法B列表框中列表項(xiàng)個(gè)數(shù)無(wú)法統(tǒng)計(jì)C向列表框中添加項(xiàng)目時(shí)可以插入在列表項(xiàng)之間D列表框中的每個(gè)列表項(xiàng)都有一個(gè)索引位置23執(zhí)行下面Visual Basic程序，數(shù)組a中元素值是w的數(shù)據(jù)經(jīng)過(guò)一系列位置變化后，其最終位置的下標(biāo)是哪個(gè)選項(xiàng).（ ）Option Base 0Private Sub Command1_Click()Dim w As Integerw = 20a = Array(10, 15, 6, 8, 93, 84

10、, w)Dim i As IntegerDim j As IntegerDim t As IntegerFor i = 0 To 5For j = i + 1 To 6 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next jNext iEnd SubA. 2 B. 4 C. 6 D. 824在Visual Basic中，語(yǔ)句Print InStr(2, "abcdeabfg", "ab")的輸出結(jié)果是( ) A. 0 B. 1 C5 D. 625下面關(guān)于Visual Bas

11、ic中工程的說(shuō)法正確的是.（ ）A. 每個(gè)工程中只能包含一類文件B. 工程中的啟動(dòng)窗體是不能改的C. 工程中的窗體當(dāng)創(chuàng)建以后是不能被刪除掉的D. 工程也是有屬性的26Visual Basic中，關(guān)于屬性、事件、方法、對(duì)象說(shuō)法正確的是.（ ）A. 可以通過(guò)改變對(duì)象的屬性值來(lái)改變對(duì)象的特性B. 事件必須在鼠標(biāo)單擊或雙擊對(duì)象后觸發(fā)C. Visual Basic中，所有對(duì)象都設(shè)置了相同的方法D. 窗體不是對(duì)象，按鈕是對(duì)象27執(zhí)行下面Visual Basic程序，最后輸出s的值是.（ ）Dim a As IntegerDim s As Integera = 1s = 0For i = 1 To 3 a

12、= i For j = 1 To a s = s + a Next j i = jNext iPrint sA. 6 B. 8 C. 10 D. 1228在Visual FoxPro中，創(chuàng)建報(bào)表的命令是.（ ）A. MODIFY REPORTB. CREATE REPORTC. SET REPORT D. PREVIEW REPORT29在Visual FoxPro中，菜單文件的擴(kuò)展名為.（ ）A. .mnx B. .mpr C. .pqr D. .scr30在Visual FoxPro中,假設(shè)表單上有一個(gè)命令按鈕，如果單擊命令按鈕可以實(shí)現(xiàn)關(guān)閉表單的功能，則應(yīng)在該按鈕的Click事件過(guò)程中寫(xiě)入

13、語(yǔ)句（ ）A. ThisForm.Close                  B. ThisForm.Erase C. ThisForm.Release                DThisForm.Return31在Visual FoxPro中，如果表中的某個(gè)字段存放的是圖片，需要將該字段設(shè)置為下面哪種類型.（ ）A. 備注型 B. 通用型 C. 字符型 D. 雙精度型32. 在Visual FoxPro中，

14、執(zhí)行以下命令后顯示的結(jié)果是.（ ）N='210.28'?90+&N A90+&N B90210.28 C300.28 D出錯(cuò)信息33. 在Visual FoxPro中，? TYPE("10/01/88")的輸出結(jié)果為.（ ）A. N B. C C. D D. U34在Visual FoxPro中，下列關(guān)于視圖的敘述中錯(cuò)誤的是.（ ）A. 通過(guò)視圖可以對(duì)表進(jìn)行查詢 B. 通過(guò)視圖可以對(duì)表進(jìn)行更新C. 視圖是一個(gè)獨(dú)立的數(shù)據(jù)文件，不屬于任何的數(shù)據(jù)庫(kù)D視圖分為本地視圖和遠(yuǎn)程視圖兩種類型35在Visual FoxPro中，要為兩個(gè)數(shù)據(jù)表建立一

15、對(duì)多的永久關(guān)系，要求主表的索引類型必須為.（ ）A主索引 B. 主索引或候選索引C. 主索引、候選索引或唯一索引 D. 可以不建立索引36在物理拓樸結(jié)構(gòu)為總線結(jié)構(gòu)的局域網(wǎng)中，聯(lián)網(wǎng)的主機(jī)間進(jìn)行通信通常采用的機(jī)制是 （ ）AATM BCDMA CFTTB+LAN DCSMA/CD37在下列關(guān)于網(wǎng)絡(luò)數(shù)據(jù)交換的敘述中不正確的是（ ）A線路數(shù)據(jù)交換面向連接B分組交換比報(bào)文交換具有更好的網(wǎng)絡(luò)響應(yīng)速度C分組交換有存儲(chǔ)轉(zhuǎn)發(fā)過(guò)程D報(bào)文交換無(wú)存儲(chǔ)轉(zhuǎn)發(fā)過(guò)程38計(jì)算機(jī)網(wǎng)絡(luò)的拓?fù)浣Y(jié)構(gòu)主要取決于它的.（ ）A通信子網(wǎng) B資源子網(wǎng) C通信介質(zhì) D路由器連接方式39在使用TCP/IP協(xié)議的網(wǎng)絡(luò)中，屬于同一個(gè)子網(wǎng)絡(luò)的主機(jī)的網(wǎng)絡(luò)

16、地址. （ ）A不相同 B可以相同也可以不相同C一定相同 D相同與否視其它情況而定40在使用CSMA/CD協(xié)議的以太網(wǎng)絡(luò)中，其通信工作方式為. （ ）A半雙工 B單工 C全雙工 D都可以41在OSI/RM網(wǎng)絡(luò)參考模型中，數(shù)據(jù)鏈路層最主要的功能是. （ ）A進(jìn)行報(bào)文傳遞的路由選擇B按協(xié)議規(guī)則提供報(bào)文分組C可靠的在任意節(jié)點(diǎn)間傳送報(bào)文D進(jìn)行可靠的兩相鄰節(jié)點(diǎn)間的數(shù)據(jù)傳輸42在網(wǎng)絡(luò)層傳輸?shù)腡CP數(shù)據(jù)包的段結(jié)構(gòu)中，端口地址的長(zhǎng)度為.（ ）A4個(gè)字節(jié) B3個(gè)字節(jié) C2個(gè)字節(jié) D1個(gè)字節(jié)43在Internet網(wǎng)絡(luò)中，用于服務(wù)器與客戶機(jī)間進(jìn)行網(wǎng)頁(yè)信息傳輸控制的協(xié)議是.（ ） AHTTP BURL CSMTP D

17、HTML44有一種互連設(shè)備工作于網(wǎng)絡(luò)層，它既可以用于相同（或相似）網(wǎng)絡(luò)間的互連，也可以用于異構(gòu)網(wǎng)絡(luò)間的互連，這種設(shè)備是.（ ）A集線器 B路由器 C交換機(jī) D網(wǎng)關(guān)45一個(gè)局域網(wǎng)中某臺(tái)主機(jī)的IP地址為，使用22位作為網(wǎng)絡(luò)地址，那么該局域網(wǎng)的子網(wǎng)掩碼為.（ ）A BC D46在Internet域名體系中，域的下面可以劃分子域，各級(jí)域名間用圓點(diǎn)分開(kāi)，按照（ ）A從左到右越來(lái)越小的方式分4層排列B從右到左越來(lái)越小的方式分多層排列C從左到右越來(lái)越小的方式分多層排列D從右到左越來(lái)越小的方式分4層排列47線路交換是實(shí)現(xiàn)數(shù)據(jù)交換的一種技術(shù)，其特點(diǎn)是.（ ）A信息延時(shí)短，且延時(shí)固定不變

18、B不同速率的用戶之間可以直接進(jìn)行數(shù)據(jù)交換C數(shù)據(jù)信號(hào)在線路上進(jìn)行傳輸時(shí)無(wú)衰損D可以把一個(gè)報(bào)文同時(shí)發(fā)送到多個(gè)目標(biāo)節(jié)點(diǎn)中48在OSI/RM網(wǎng)絡(luò)參考模型中，網(wǎng)絡(luò)接口卡（NIC）所屬的層次為.（ ）A物理層 B數(shù)據(jù)鏈路層 C網(wǎng)絡(luò)層 D運(yùn)輸層49在數(shù)字通信中廣泛采用CRC循環(huán)冗余碼進(jìn)行差錯(cuò)校驗(yàn)，這是因?yàn)镃RC可以（ ）A檢測(cè)出一位差錯(cuò)B檢測(cè)出多位突發(fā)性差錯(cuò)C檢測(cè)并糾正一位差錯(cuò)D檢測(cè)并糾正多位突發(fā)性差錯(cuò)50. 網(wǎng)絡(luò)中的計(jì)算機(jī)可以分為服務(wù)器和客戶機(jī)，其中的網(wǎng)絡(luò)服務(wù)器是指.（ ）A具有通信功能的高檔計(jì)算機(jī)B64位總線結(jié)構(gòu)的高檔計(jì)算機(jī)C帶有容量大、傳輸速度快的硬盤(pán)的計(jì)算機(jī)D為網(wǎng)絡(luò)提供共享資源，并對(duì)這些資源進(jìn)行管理

19、的計(jì)算機(jī)第卷（非選擇題 共140分）二、判斷題（本大題14小題，每小題1分，共14分。將答案填涂在機(jī)讀卡上，正確的填涂“”格，錯(cuò)誤的填涂“×”格）1世界上第一臺(tái)電子計(jì)算機(jī)采用的電子器件是電子管。 （ ） 2在計(jì)算機(jī)系統(tǒng)中，不能直接和CPU交換數(shù)據(jù)的存儲(chǔ)器是ROM。 （ ） 3在Windows XP中，刪除某個(gè)應(yīng)用程序的桌面快捷圖標(biāo)意味著，該應(yīng)用程序連同快捷圖標(biāo)一起被刪除。 （ ） 4在Windows XP中，剪貼板是程序和文件間用來(lái)傳遞信息的臨時(shí)存儲(chǔ)區(qū)，此存儲(chǔ)區(qū)是內(nèi)存的一部分。 （ ）5在Word 2003中，為了突出顯示文檔的某些內(nèi)容，可以為該部分內(nèi)容加底紋，也可以為圖形加底紋。

20、（ ）6在Word2003中，文本可以轉(zhuǎn)換成表格，但表格不可以轉(zhuǎn)換成文本。 （ ）7在Excel2003中，執(zhí)行“格式”菜單中的“排序”命令，可以實(shí)現(xiàn)對(duì)工作表數(shù)據(jù)的排序功能。 （ ）8在 Excel2003 中，當(dāng)數(shù)據(jù)源發(fā)生變化時(shí)，相應(yīng)的圖表將自動(dòng)跟隨變化。（ ） 9在Visual Basic中，控件的屬性在任何狀態(tài)下都可以修改。 （ ）10在Visual FoxPro中，選擇當(dāng)前未使用的最小編號(hào)工作區(qū)的命令是SELECT 0。 （ ）11在TCP/IP協(xié)議組中，DNS（域名服務(wù)系統(tǒng)）的組織結(jié)構(gòu)是層次模型。（ ）12只有服務(wù)器上的軟件系統(tǒng)和軟件應(yīng)用可以作為共享資源，由服務(wù)器向網(wǎng)絡(luò)中其他計(jì)算機(jī)提

21、供。 （ ）13目前在Internet上的主機(jī)已經(jīng)普遍使用了IPv6格式的IP地址。 （ ）14計(jì)算機(jī)網(wǎng)絡(luò)的拓樸結(jié)構(gòu)包括網(wǎng)絡(luò)的物理拓樸結(jié)構(gòu)和邏輯拓樸結(jié)構(gòu)。 （ ）三、填空題（本大題共13小題，每小題2分，共26分。請(qǐng)將答案填寫(xiě)在答題紙上）1微型計(jì)算機(jī)能識(shí)別并能直接執(zhí)行的語(yǔ)言是 語(yǔ)言。2微型計(jì)算機(jī)硬件系統(tǒng)中最核心的部件是 。3在微機(jī)中，信息的最小單位是 。4在Windows XP中，若要將一個(gè)文件設(shè)置為“只讀”，則可以選中該文件，單擊鼠標(biāo)右鍵，然后在彈出菜單中選 菜單項(xiàng)。5在Word2003中，若要設(shè)定打印紙張大小，應(yīng)使用 菜單中的“頁(yè)面設(shè)置”命令。6在Excel2003中，單元格D2：D31存

22、放的內(nèi)容為全班30名同學(xué)的數(shù)學(xué)成績(jī)，若要在單元格D32中統(tǒng)計(jì)不及格同學(xué)的人數(shù)，則在D32中輸入= 。7在Visual Basic中，對(duì)于數(shù)組 A(2 To 3, 4 To 6)，它的第二維的下界為_(kāi)。8. Visual Basic的表達(dá)式(10 > 8) And (-3 < 3) And (10 < 8) Or (5 > 14)的結(jié)果是_。9在Visual FoxPro中，運(yùn)行表單“l(fā)ogin”的命令為 。10在Visual FoxPro中，用命令DIMENSION X(2,5)定義了一個(gè)數(shù)組X，則該數(shù)組中數(shù)組元素個(gè)數(shù)是 。11計(jì)算機(jī)接入Internet時(shí)，可以通過(guò)公共

23、電話網(wǎng)進(jìn)行連接。以這種方式連接并在連接時(shí)分配到一個(gè)臨時(shí)的IP地址，此時(shí)通常使用的連接協(xié)議是 。12一個(gè)家庭有三臺(tái)計(jì)算機(jī)，連接到一個(gè)微型路由器上共用一條線路連入Internet。已知路由器的內(nèi)網(wǎng)IP地址為，子網(wǎng)掩碼為55.0，則三臺(tái)計(jì)算機(jī)的網(wǎng)絡(luò)地址應(yīng)設(shè)置為 。13在OSI/RM模型的不同層次使用不同格式的地址，這些分層存在的地址按一定的協(xié)議建立起對(duì)應(yīng)關(guān)系。在網(wǎng)絡(luò)層使用的地址稱為 地址。四、根據(jù)已知的環(huán)境與題意，寫(xiě)出相應(yīng)的Visual FoxPro操作命令或SQL語(yǔ)句，要求每小題用一條命令或語(yǔ)句完成（本大題共5小題，每小題4分，共20分，請(qǐng)?zhí)顚?xiě)在答題紙上）。現(xiàn)有數(shù)據(jù)庫(kù)“GZGL.DBC”，其中包含

24、表“gzb.dbf”，該表有以下字段：職工號(hào)(C,6)、姓名(C,20)、性別(C,2)、年齡(N,3)、基本工資(N,7,2)、獎(jiǎng)金(N,7,2)，在相應(yīng)數(shù)據(jù)庫(kù)和表已打開(kāi)的前提下，寫(xiě)出完成下述功能的命令(注意：只能寫(xiě)一條語(yǔ)句，多于一條不得分)。1將所有年齡大于50的職工基本工資增加200。（用Visual FoxPro命令） 2. 以“職工號(hào)”為關(guān)鍵字建立降序的唯一索引，索引名為ZHG，索引文件名ZHGGL.CDX。（用Visual FoxPro命令） 3將“gzb.dbf”表中“基本工資”字段的寬度改為8。（用SQL語(yǔ)句） 4刪除“gzb.dbf”表中年齡大于60、性別為“男”的記錄。（用

25、SQL語(yǔ)句） 5查詢統(tǒng)計(jì)“gzb.dbf”表中每個(gè)部門(mén)（職工號(hào)的前3位）職工基本工資的平均值。（用SQL語(yǔ)句） 五、程序分析（本大題共2小題，每小題5分，共10分，讀程序并分析結(jié)果，請(qǐng)?zhí)顚?xiě)在答題紙上）1閱讀下面的Visual Basic程序，程序運(yùn)行后sum的值是 Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerDim num As IntegerDim sum As Integersum = 0: a(0) = 1For i = 0 To 10 For j = 1 To 9 num

26、 = 1 + Int(91 * Rnd) If num = a(i) Then a(j) = num: sum = sum + a(j) Else j = j - 1 Next j If j = 10 Then Exit ForNext iPrint sumEnd Sub2有Visual ForPro程序chengxu.prg如下CLEARS=0N=0INPUT "請(qǐng)輸入X=" TO XINPUT "請(qǐng)輸入Y=" TO YFOR I=3 TO 30 STEP 2 IF PANDUAN(I)=1 FOR J=2 TO I-1 IF I%J=0 EXIT E

27、NDIF ENDFOR IF J<I N=N+1 IF N%2=0 S=S+I*X ELSE S=S-I*Y ENDIF ENDIF ENDIFENDFOR ?SPROCEDURE PANDUANPARAMETERS XIF (X%3=0 OR X%5=0) AND (NOT (X%3=0 AND X%5=0) FH=1ELSE FH=0ENDIFRETURN FHENDPROC該程序的功能是計(jì)算S=（寫(xiě)出包含X和Y的表達(dá)式）六、寫(xiě)出下列程序的運(yùn)行結(jié)果（本大題共5小題，每小題5分，共25分，請(qǐng)?zhí)顚?xiě)在答題紙上）1分析下面Visual Basic程序段。窗體中有一命令按鈕（名稱為C6_1）。

28、Private Sub C6_1_Click()Dim i As IntegerDim w As Integerw = 1a = Array(1, 2, 3)b = Array(0, w, 4)For i = 0 To 2w = w + wz(a(i), w, b(i)Next iPrint wEnd SubPrivate Function wz(ByVal x As Integer, y As Integer, ByVal z As Integer)Dim t As Integert = x: x = y: y = tz = z + 1wz = zEnd Function窗體啟動(dòng)后單擊命令按

29、鈕，輸出w的值為_(kāi)。2分析下面Visual Basic程序段。Open "c6_2.txt" For Output As #1Print #1, "k01234"Print #1, "t12345"Print #1, "p23456"Print #1, "m34567"Close #1Open "c6_2.txt" For Input As #1Line Input #1, stSeek #1, 2Line Input #1, stPrint stClose #1程序執(zhí)行后，

30、輸出語(yǔ)句Print st執(zhí)行結(jié)果是_。3有Visual ForPro程序如下:CLEARINPUT "請(qǐng)輸入數(shù)據(jù)SHU=" TO SHUFOR I=3 TO SHU/2 IF CHULI(I)=1 J=SHU-I IF CHULI(J)=1 ?TRIM(STR(I)+"和"+TRIM(STR(J) ENDIF ENDIFENDFORPROCEDURE CHULI PARAMETERS X M=1 IF X>3 FOR IX=2 TO SQRT(X) IF X%IX=0 M=0 EXIT ENDIF ENDFOR ENDIF RETURN MENDP

31、ROC 運(yùn)行上面的程序，輸入16，顯示的結(jié)果為 第4、5題使用下面的數(shù)據(jù)庫(kù)設(shè)有數(shù)據(jù)庫(kù)文件“學(xué)生管理.DBC”，包含3個(gè)表，分別是“課程設(shè)置”、“學(xué)生檔案”、“學(xué)生成績(jī)”。其中“課程設(shè)置”表的結(jié)構(gòu)為：課程編號(hào)(C，4)、課程名稱(C，20)、學(xué)時(shí)(N，3，0)，學(xué)分(N，3,1)；“學(xué)生檔案”表的結(jié)構(gòu)為：學(xué)號(hào)(C，6)、姓名(C，10)、班級(jí)(C，20)，院系(C，20),“學(xué)生成績(jī)”表的結(jié)構(gòu)為：學(xué)號(hào)(C，6)、課程(C，20)、成績(jī)(N，5，1)。各表中數(shù)據(jù)如下：課程設(shè)置.DBF記錄號(hào) 課程編號(hào)課程名稱 學(xué)時(shí) 學(xué)分1 0001 數(shù)據(jù)結(jié)構(gòu) 64 3.52 0002 操作系統(tǒng) 54 3.03 00

32、03 軟件工程 46 2.5學(xué)生檔案.DBF記錄號(hào)學(xué)號(hào) 姓名 班級(jí) 院系1 100101 龍繼坤 機(jī)電1班 機(jī)電系2 100102 王玉玉 機(jī)電1班 機(jī)電系3 100204 李玉紅 機(jī)電2班 機(jī)電系4 200101 楊彬彬 工商管理1班 工商管理系5 200102 梁洪波 工商管理1班 工商管理系6 200301 李繼華 工商管理3班 工商管理系學(xué)生成績(jī).DBF記錄號(hào) 學(xué)號(hào) 課程 成績(jī) 1 100101 0001 79.02 100101 0002 89.03 100101 0003 80.04 100102 0001 45.05 100102 0002 98.06 200101 0001 9

33、9.07 200102 0002 65.08 200102 0003 88.04. 有如下Visual FoxPro程序：（代碼中行末的分號(hào)為邏輯行連接符）CLEAROPEN DATABASE 學(xué)生管理SELECT * FROM 學(xué)生成績(jī) WHERE 學(xué)號(hào) IN(SELECT 學(xué)號(hào) FROM;學(xué)生檔案) INTO DBF KECHENGUSEADD TABLE KECHENGSELECT 學(xué)號(hào),課程,MAX(成績(jī)) AS CHENGJI FROM KECHENG GROUP BY;課程 ORDER BY CHENGJI ASC INTO DBF HZSELECT HZ.學(xué)號(hào),HZ.課程,HZ.

34、CHENGJI,學(xué)生檔案.姓名 AS XINGMING;FROM 學(xué)生檔案,HZ WHERE 學(xué)生檔案.學(xué)號(hào)=HZ.學(xué)號(hào) ORDER BY;HZ.CHENGJI INTO DBF JGUSE JGGO TOPKECHH=課程XMING=XINGMINGCLOSE DATABASEUSE課程設(shè)置GO TOPDO WHILE NOT EOF() IF TRIM(課程編號(hào))=TRIM(KECHH) ?XMING,課程名稱,學(xué)分 EXIT ENDIF SKIPENDDO運(yùn)行上面的程序，顯示的結(jié)果是： 5. 有如下Visual FoxPro程序：（代碼中行末的分號(hào)為邏輯行連接符）CLEAROPEN DA

35、TABASE 學(xué)生管理CREATE TABLE TJS(X1 C(20),X2 N(5,1)SELECT DISTINCT 院系 AS Y1,SUBSTR(學(xué)號(hào),1,2) AS Y2 FROM;學(xué)生檔案 ORDER BY Y2 INTO DBF JTSUSESELECT 1USE JTSGO TOPSELECT 2USE學(xué)生成績(jī)GO TOPSELECT 1DO WHILE NOT EOF() ZHI=0 SHU=0 SELECT 2 GO TOP DO WHILE NOT EOF() IF SUBSTR(學(xué)號(hào),1,2)=JTS.Y2 ZHI=ZHI+成績(jī) SHU=SHU+1 ENDIF SKI

36、P ENDDO IF SHU!=0 INSERT INTO TJS VALUES(JTS.Y1,ZHI/SHU) ENDIF SELECT 1 SKIPENDDOCLOSE DATABASEUSE TJSDO WHILE NOT EOF() ?X1,X2 SKIPENDDO 運(yùn)行上面的程序，顯示的結(jié)果是： 七、Visual Basic程序改錯(cuò)(本大題共有兩個(gè)小題，每題5分，共10分，每個(gè)程序有兩個(gè)錯(cuò)誤行，請(qǐng)?jiān)诖痤}紙上寫(xiě)出錯(cuò)誤行代碼和對(duì)應(yīng)的正確代碼，改對(duì)一處得一處分，改錯(cuò)不減分。注：要把整行寫(xiě)完整) 1有兩個(gè)數(shù)組a = Array("zhao", "qian&quo

37、t;, "sun", "li", "zhou", "wu")b = Array(20, 31, 82, 73, 44, 25)數(shù)組a表示的是六個(gè)人的姓名，數(shù)組b表示的是與數(shù)組a中對(duì)應(yīng)位置人的年齡，而且年齡中的個(gè)位數(shù)與他們?cè)跀?shù)組中的位置一致，年齡段在10到99之間。下面程序的功能是輸入一個(gè)年齡，首先查找輸入的年齡在數(shù)組b中是否存在；如果存在，則顯示其姓名，如果不存在，則程序直接結(jié)束。程序如下：a = Array("zhao", "qian", "sun",

38、"li", "zhou", "wu")b = Array(20, 31, 82, 73, 44, 25)Dim i As IntegerDim pos As IntegerDim flag As IntegerDim j As Integerflag = 0pos = InputBox("請(qǐng)輸入查詢?nèi)说哪挲g")j = pos - Int(pos / 10) * 10For i = 0 To 5 Step 1If pos = a(j) Then flag = 1Next iIf flag = 0 Then EndPr

39、int a(pos) 2窗體中（運(yùn)行狀態(tài)如圖所示）有一定時(shí)器控件（名稱Timer1，初始狀態(tài)Enabled為False），有三個(gè)標(biāo)簽用于顯示控件名稱，一滾動(dòng)條（名稱HS1,最大值10，最小值0），一列表框（名稱List1，初始狀態(tài)為空），一文本框（名稱為T(mén)ext1，初值為9876543210，）,一命令按鈕（名稱Command1，Caption屬性值為啟動(dòng)）。啟動(dòng)按鈕完成操作是：（1）計(jì)時(shí)器開(kāi)始工作；（2）設(shè)置滾動(dòng)條的value、max和min屬性值。定時(shí)器工作時(shí)每隔一定時(shí)間觸發(fā)一次事件，Timer事件中完成4項(xiàng)工作：（1）從文本框值右邊位置取若干個(gè)字符放文本框中；（2）把文本框中的內(nèi)容添加到

40、列表框中；（3)滾動(dòng)條的值減1；（4）當(dāng)滾動(dòng)條的值為0時(shí)計(jì)時(shí)器停止工作。程序中的兩處錯(cuò)誤分布在每個(gè)事件中。（請(qǐng)結(jié)合程序認(rèn)真看窗體運(yùn)行界面，不能改變程序行數(shù)，不能增加函數(shù)）Private Sub Command1_Click()HS1.Min = 0HS1.Max = 10HS1.Value = 1Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Text1.Text = Right(Text1.Text, 9)List1.AddItem Text1.TextHS1.Value = HS1.Value - 1If HS1.Value =0

41、 Then Timer1.Enabled = FalseEnd Sub八、程序填空（本大題共7個(gè)空，每空5分，共35分，按程序要求在答題卡上填入相應(yīng)的內(nèi)容，使程序完整正確）1(Visual Basic試題)下面程序的功能是從鍵盤(pán)輸入長(zhǎng)度小于20個(gè)字符的字符串，以“#”結(jié)束，然后對(duì)字符串從左端進(jìn)行處理。處理方法：把字符串中數(shù)字內(nèi)容放入數(shù)組a的元素中，存放時(shí)要求每個(gè)元素放一個(gè)兩位數(shù)字，最后如果剩一個(gè)一位數(shù)字則單獨(dú)存放。如輸入的字符串為“12abc3d456e7f#”,則12、34、56、7分別存放到數(shù)組a的前四個(gè)元素中。請(qǐng)?zhí)羁铡rivate Sub Command1_Click()Dim a(1

42、0) As IntegerDim c As StringDim w1 As String 從字符串中取的一個(gè)字符Dim w2 As String 用來(lái)存放存入數(shù)組中的數(shù)據(jù)Dim flag As Integer 表示每次已經(jīng)獲取了幾位數(shù)字Dim i As Integeri = 0: w2 = 0c = InputBox("請(qǐng)輸入字符串，以#結(jié)束：")w1 = Left(c, 1)Do While w1 <> "#" If w1 >= "0" And w1 <= "9" Then flag =

43、flag + 1 w2 = (1) + Val(w1) End If c = Mid(c, 2) w1 = Left(c, 1) If flag = 2 Then a(i) = w2: flag = 0: i = i + 1: w2 = 0LoopIf flag > 0 Then (2) :i=i+1For flag = 0 To i-1Print a(flag);Next flagEnd Sub2(Visual Basic試題)窗體中有一列表框(名稱List1)，一文本框(名稱Text1)，一命令按鈕(名稱Command1)。窗體啟動(dòng)時(shí)的Load事件代碼已給出。當(dāng)每次單擊開(kāi)始命令按鈕時(shí)

44、將把列表框中選擇的條目?jī)?nèi)容添加到數(shù)組，并把列表框中選擇的條目刪除，然后把數(shù)組中的元素值添加到文本框中（如圖,圖中上方控件為列表框，下方控件為文本框）。請(qǐng)?jiān)诳瞻孜恢脤?xiě)出正確的內(nèi)容。Private Sub Form_Load()List1.AddItem "10"List1.AddItem "20"List1.AddItem "15"List1.AddItem "20"List1.AddItem "89"List1.AddItem "93"End SubPrivate Sub C

45、ommand1_Click()Static a(6) As IntegerDim i As IntegerStatic j As IntegerFor i =(3) To 0 Step -1If List1.Selected(i) Thena(j) = Val(List1.List(i)j = j + 1List1.RemoveItem iExit ForEnd IfNext iText1.Text = ""For i = 0 To (4) Text1.Text = Text1.Text & a(i) & " "Next iEnd Sub3(Visual FoxPro試題)已知有“XXGL.DBC”數(shù)據(jù)庫(kù)