2016年河北省普通高等學校對口招生考試計算機專業理論試題（A）注意事項：1．本試卷共八道大題。總分240分。2．第I卷“一、選擇題”、第II卷“二、判斷題”的答案填涂在機讀卡上，其余各題答案寫在答題紙上，答在試卷上不得分。用藍黑鋼筆、碳素筆或圓珠筆答題。3．答題前將密封線內項目填寫清楚。第Ⅰ卷（選擇題共100分）一、選擇題（本大題共50小題，每小題2分，共100分。在每小題所給出的四個選項中，只有一個符合題目要求，將正確選項填涂在機讀卡上）1.計算機能夠自動、準確、快速地按照人們的意圖運行的最根本原因是....（）A.采用超大規模集成電路B.CPU作為中央核心部件C.具有操作系統D.2.下列各組設備中，同時包括了輸入設備、輸出設備和存儲設備的是....（）顯示器、CPU、CacheB．繪圖儀、鼠標、鍵盤C．鼠標、繪圖儀、光盤D．硬盤、打印機、LED3．下列各組軟件中，全部屬于應用軟件的是..........................A.程序語言處理程序、操作系統、數據庫管理系統B.文字處理程序、編輯程序、MySQL5.0、程序語言處理程序D.財務處理軟件、Flash、WPS、Office20104．在標準ASCII碼表中，數字、大小寫英文字母的編碼從小到大的次序是（）A.大寫英文字母、小寫英文字母、數字B.數字、小寫英文字母、大寫英文字母C.小寫英文字母、大寫英文字母、數字D．數字、大寫英文字母、小寫英文字母5.存儲300個24×24點陣的漢字字形碼，所需的存儲容量大小為.......（）A.0.1728M個二進制位B．21600個字節C．42.1875K個字節D．0.3456M個二進制6.運算器（ALU）的功能是.....................................具有存儲程序和程序控制功能A．CRT顯示器（）、MS-DOSC.Word2003位）A．只能進行邏輯運算B．進行算術運算或邏輯運算C．只能進行算術運算D．做初等函數的計算7.以下關于病毒的描述，正確的是.................................（）A．計算機病毒只在可執行文件中傳播B．計算機病毒主要通過讀/寫存儲器或網絡進行傳播C．只要刪除所有感染了病毒的文件D．計算機殺毒軟件可以查出和清除所有病毒8.在下列各數據中，數值最小的是.................................A．(156)B．(139)就可以徹底清除病毒（）810C．(2FF)D．(10100001)1629．在WindowsXP中，關于“畫圖”工具，以下說法不正確的是............（）A．點擊“開始”-“搜索”，輸入“畫圖”可以找到“畫圖”工具B．點擊“開始”-“所有程序”-“附件”，可以找到“畫圖”工具第1頁共20頁

C．打開“控制面板”-“添加/刪除程序”，可以卸載“畫圖”工具D．在“畫圖”工具圖標上點右鍵，可以將其添加到“開始”菜單10．在WindowsXP中，不能在“任務欄”內進行的操作是.................（）A.窗口之間切換B.排列桌面圖標C.設置系統日期和時間D.啟動“開始”菜單在11.WindowsXP中，以下關于文件名的說法，不正確的是...............（）A.由于文件的擴展名使用‘.’,因此文件命名時不能使用‘.’B.文件名可以使用通配符‘？’和‘*’C.給文件命名時字母可以使用大小寫格式，但不能用大小寫區別文件名D.文件名可用英文字母、數字和漢字命名12．在Word2003中，將“計算機”一詞設置為藝術字“”，則以下方法中不正確的是.............................................（）片”-“藝術字”C.“圖視”-“工具欄”-“藝術字”D.“格式”-“字體”-“文字效果”13．在Word2003中，若要設置表格的外框線為雙線，內框線為單線，如下圖，正確的操A.“編輯”-“替換”B.“插入”-“圖作是..............................................（）三年前北京各區平均租金表區名一居室二居室三居室東城區149718772150西城區144219532260崇文區128415512000宣武區123315531900朝陽區126515641943A.打開“表格”-“表格屬性”-“邊框底紋”，選擇“方框”命令表格”-“表格屬性”-“邊框底紋”，選擇“全部”命令表格”-“表格屬性”-“邊框底紋”，選擇“自定義”命令都可以14．在Word2003中，如果在文A.通過“圖視”-“頁眉和頁腳”進行設置B.通過“插入”-“頁眉和頁腳”進行設置C.通過“文件”-“頁眉和頁腳”進行設置都不對15.在Excel2003中，若要在“計算機專業考試成績單”級”列，填充要求是：“綜合成績”高于90分（含90）為“優秀”，60分（含60）到90分（不含90）為“合格”，60分以下“不合格”。以下公式正確的是．．．（）A．=IF(E3>=90,"優秀",(IF(E3>=60,"合格","不合格")))B．=IF(E3>=90,"優秀",IF(E3>=60,"合格","不合格"))C．=IF(E3>=60,"合格",(IF(E3>=90,"不合格","優秀")))D．=IF(E3<60,"不合格",(IF(E3>=90,"合格","優秀")))16.在Excel2003中，如15題圖“計算機專業考試成績單”所示，若突出顯示“等級”為“優秀”的單元格，以下操作正確的是............................（）自動篩選”功能B．使用“高級篩選”功能條件格式”功能D．使用“IF”函數17．在Excel2003中，單元格中的數據顯示為一串“#”時，說B．打開“C．打開“D.以上檔頂部或底部添加圖形或文本，正確的操作是（）D.以上表中，按輸入公式方式填充“等A．使用“C．使用“明.........（）第2頁共20頁A．公式中出現了0為除數的情況B．單元格數據長度大于該列的寬度C．出現語法錯誤D.公式中含有不能識別的函數VisualBasic中，設A=“12345678”，則表達式Val(Right(A,4)+Mid(A,4的值為.............................................18．在（）A．123456B.567845C.123445D.572319.在VisualBasic中，將文本框的內容全部顯示為用戶所定義的字符的屬性是...................................................（）A.PasswordCharB.PasswordC.SelTextD.以上都不對20.若評選優秀畢業學生的條件是：政治面貌（party）為團員，課程總分(total)大于285分，其中三門主課(mark1,mark2,mark3)中有一門課為100分，VisualBasic表達式應寫為..........................................（）A.party＝"團員"andtotal>285andmark1=100ormark2=10B.party＝"團員"andtotal>285ormark1=100ormark2=100C.(party＝"團員"andtotal>285)and(mark1=100ormark2=D.(party＝"團員"ortotal>285)and(mark1=100ormark2=21.在VisualBasic中,下面哪個選項屬于控件的方法...................．Dim22.在VisualBasic中，窗體上有一個命令按鈕（其Name屬性為Command1），運行以下程序，單擊命令鈕，其輸出結果是.................................（）A.ClickB.ChangeC.SetFocusD（）OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSubA．4321B．234C．34D．123423.在VisualBasic中，下面關于圖片框(PictureBox)和圖像框(Image)說法不正確的是...............................................（）A.圖片框中C.圖像框中可以裝載其他控件D.圖像框比圖片框占用更少內存24.在VisualBasic中，有一個10個元素的數組，以下程序可將該數組逆置。即第1個元素與第10個元素交換，第2個元素與第9個元素交換……，第5個元素與第6個元交換，為實現此功能，應在橫線處填寫.............................可以裝載其他控件B.均可加載圖片素（）PrivateSubCommand1_Click()Dima(1To10)AsIntegerDimiAsIntegerDimpAsIntegerDimtAsIntegerDimjAsInteger第3頁共20頁

Fori=1To10a(i)=iNextiForj=1To5t=a(j)NextjFori=1To10Printa(i)NextiEndSubA.a(j)=a(11-j)a(11-j)=tB.a(11-j)=a(j)a(j)=tC．a(j)=ta(11-j)=a(j)D.a(11-j)=ta(j)=a(11-j)25.在VisualBasic中，單擊一次命令按鈕，下列程序代碼的執行結果為......（）PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=2:b=3:c=4Printfun2(a,b,c)EndSubPrivateFunctionfun1(xAsInteger,yAsIntegerfun1=2*x+y+3*zEndFunctionPrivateFunctionfun2(xAsInteger,yAsIntegerfun2=fun1(z,x,y)+xEndFunctionA.27B.21C.17D.3426.在VisualBasic設計階段，為了清除窗體上的一個控件，下列正確的操作是（）A.單擊要清除的控件，然后按回車鍵B.單擊要清除的控件，然后按Esc鍵C.單擊要清除的控件，然后按Del鍵D.以上都不對27.在VisualBasic中，下列程序段的輸出結果是........................（）x=5SelectCasex+1Case5,6,7Print"5,6,7"Case0To9Print"0to9"CaseIs>=15Print"is>=5"EndSelectA.5，6，7B.0-9C.0to9D.is>=528.在VisualFoxPro中，使用DIMENSIONa(10)定義了一個一維數組，正確的賦值語句是..............................................（）A.a=10B.a[10]=10第4頁共20頁

C.STORE10a[3],a[4],a[5]D.a[2],a[3],a[4]29.在VisualFoxPro中，下面有關視圖的描述，正確的是..................（）A.可以使用MODIFYSTRUCTURE命令修改視圖的結構B.視圖不能刪除，否則影響原來的數據文件C.視圖是對表的復制產生的D.使用SQL對視圖進行查詢時，必須事先打開該視圖所在的數據庫30.在VisualFoxPro中，連續執行以下命令后，變量B的值為...........（）SETEXACTOFFA="河北"B=(A="中國河北")?BA..F.B.中國河北C.河北D..T.31.在VisualFoxPro中，為了在報表中加入一個文字說明，應該插入一個．．（）A.表達式控件B.域控件C.標簽控件D.文本控件32.在VisualFoxPro中，已使用命令相應的菜單程序，則正確運行該菜單程序的命令是...................A．DOmymenu.mprB．DOMENUmymenu.mprC．DOMENUmymenuD．DOmymenu33.在VisualFoxPro中，下述描述正確的是...........................MODIFYMENUmymenu創建了一個菜單并生成了（）（）A.利用查詢可能修改數據B.利用視圖可以修改數據C.查詢和視圖的功能相同D.視圖可以定義輸出去向34.VisualFoxPro是一種關系型數據庫管理系統，所謂“關系”是指........（）A.數據模型符合滿足一定條件的二維表格B.一個數據庫文件與另一個數據庫文件之間有一定的關系C.各字段間的數據彼此有一定的關系D.各條記錄中的數據彼此有一定的關系35．在VisualFoxPro中，變量a的值是“計算機網絡工程師”,變量b的值是“程序設計員”，結果為“程序設計工程師”的表達式是...................（）A.substr(b,1,4)-substr(a,6,3)B.left(bC.left(b,4)-right(a,3)D.以上都正確36．用戶在互聯網上經常使用的一種信息查詢工具是．．．．．．．．．．．．．．．.．．．．．（）A.電子公告板系統B.電子郵件C.網絡加速器D.37.網絡中的計算機可以分為服務器和客戶機，服務器主要用來向的網絡服務，客戶機則主要用來訪問、使用服務器上的服務。在下列關于客戶機的描述中，錯誤的是......．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）A．智能手機不能用作客戶機B．平板電腦可以作為客戶機使用搜索引擎全網絡提供某種協議C．筆記本電腦可以用作客戶機D．高端臺式機能用作客戶機38.下列哪種數據交換技術不屬于存儲交換技術......................．．．（）A．分組交換B．報文交換C．信元交換D．線路交換39．ISO是下列哪個組織的英文簡寫．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）A．國際電報電話咨詢委員會B．國C．電氣和電子工程師協會D．40.在使用IE瀏覽器過程中點擊“主頁”按鈕，下A．在IE中顯示最近訪問過的網頁B．訪問Microsoft公司的主頁際標準化組織電子工業協會列說法正確的是．．．．．．．．（）第5頁共20頁

C．訪問百度公司的主頁D．用戶在IE中自定義的主頁41.網絡瀏覽器通常使用的協議是HTTP，該協議在服務器上使用的默認端口號為....（）A．21B．25C．80D．2342.如下圖所示，計算機A向計算機B發送數據包，過程為：計算機A通過網絡1向路由器C發送數據包1；路由器C通過網絡2向路由器D發送數據包2；路由器D通過網絡3向計算機B發送數據包3。計算機及路由器的關鍵參數已經在鄰近位置給出。問：在數據包傳輸過程中，封裝在數據包2中的目的IP地址和目的MAC地址是.......．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）A．0和03.ca.39.a0.01.75B．00和02.ba.83.34.ab.9eC．0和02.ba.83.34.ab.9eD．00和03.ca.39.a0.01.7543.Unix是一種網絡操作系統，可以安裝運行TCP/IP協議。有一臺計算機安裝了Unix操作系統和TCP/IP協議，下列說法中錯誤的是．．．．．．．．．．．．．．．．．．．．．（）A．該計算機在聯網后具有所在網絡唯一的IP地址。B．該計算機網絡參數中可以設置網關參數。C．該計算機不能訪問安裝Windows網絡操作系統的計算機網絡。D．該計算機可以按域名訪問互聯網網站。44.下列關于UDP協議的描述中正確的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）A．不可靠B．傳輸過程不透明C．面向連接D．有序傳送數據包45.在TCP/IP協議體系中，ARP協議的作用是．．．．．．．．．．．．．．．．．．．．．．．．．（）A．解析端口和服務類型的對應關系B．解析MAC地址和端口的對應關系C．解析IP地址和域名的對應關系D．解析IP地址和MAC地址的對應關系46.在OSI網絡參考模型中，能夠確定網絡接頭及其電器性能標準的是．．．．（）A．傳輸層協議B．網絡層協議C．數據鏈路層協議D．物理層協議47.為了提高網絡安全性、防止網絡服務器遭受黑客攻擊，目前經常采用的技術是．．．（）A.雙機熱備份技術B.生物特征識別技術C．數據加密技術D．防火墻技術48.在下列網絡調試命令中，可以用來測試兩臺機器之間是否有物理通路的是（）A．netstatB.i．piconfigCngD．telnet49.IP地址0屬于下列哪類IP地址．．．．．．．．．．．．．．．．．．．．．．．（）A．D類地址B．C類地址C．B類地址D．A類地址50.若干計算機使用交換機和雙絞線、應用TCP/IP協議組成了一個局域網，并通過一臺路由器與互聯網連接。在為計算機設置網絡參數時，下列哪個網絡參數沒有必要進行設置．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）A．DNS服務器B．IP地址C．WINS服務器D．默認網關A003.ca.39.a0.01.75000.fa.89.a4.01.90網絡1數據包2第6頁共20頁

0001.6a.75.66.0f.110網絡3網絡20002.ba.83.34.ab.9eB00數據包3數據包1路由器C路由器D第Ⅱ卷（非選擇題共140分）二、判斷題（本大題14小題，每小題1分，共14分。將答案填涂在機讀卡上，正確的填涂“√”格，錯誤的填涂“×”格）1．計算機能夠進行邏輯判斷，并根據判斷的結果選擇相應的處理。這說明計算機具有自動控制能力。（）2．計算機斷電后，RAM存儲的信息不會丟失，ROM存儲的信息會丟失。（）3.在WindowsXP中，回收站容量大小是固定的，不能調整。（）4.在WindowsXP中，任務欄可以放在桌面的四個邊的任意邊上。（）5．在Word2003中，如果需要對插入的圖片作精確定位，那么圖片與文字的環繞方式應該選擇“浮于文字上”方。（）6.在Word2003中，使用“查找”命令時，可以區分全角和半角字符，也可以區分大小寫字母。（）7．在Excel2003中，分類匯總的關鍵字段可以是多個字段。（）8.在Excel2003中，選中單元格按Delete持不變。（）9.在VisualBasic中，可以用LoadPicture函數清除其中的圖片。（）10．在VisualFoxPro使用查詢設計器創建的是一個包文本文件。（）11．從技術上看，可以將普通交換機視為一種多端口的網路層。（）12．由于網絡使用了分層結構，所以當某層的實現技術發生變化時，與其相鄰的層次必須進行相應變化，才能保證網絡功能的正常實現。（）13．網絡服務器上的DHCP服務，其主要功能是進行IP地址和域名之間的相互轉換。（）14．工作在數據所在層次的地址標識。（）三、填空題（本大題共13小題，每小題2分，共26分。紙上）1．進位計數制允許選用的基本數鍵，則單元格的內容被刪除而格式保函數給圖片框加載圖片，但不能用此中，含SQL的SELECT語句的橋，該設備工作在數據鏈鏈路層和網絡層的設備都具有所在網絡的唯一地址標識或能夠判識請將答案填寫在答題碼的個數稱為。第7頁共20頁

2．馮·諾依曼計算機體系中，中央處理器包含和。3．計算機中所有信息都是以形式存儲的。4．在WindowsXP中，是內存的一塊區域，用于各個應用程序之間相互交換信息。5．在Word2003中，包含有最近使用過文檔列表的是菜單。6．在Excel2003中，單元格E4中有公式“=$C$3+D4”，將公式復制到E6單元格中，單元格E6中的公式為。7.在VisualBasic中，文本框的默認屬性是。8.在VisualBasic中，代數式1323xx的算術表達式是。9．在VisualFoxPro中，要屏蔽系統菜單，使用命令。10.在VisualFoxPro中，一個表只能建立一個的是索引。11.在OSI網絡參考模型中，傳輸層傳送信息的組織單位是。12.用來代表本機IP地址的第一個字段的值是（請填寫十進制數）。13.（請填寫設備名稱）可以按不同的網絡協議完成數據包格式的轉換，從而將環型網絡和總線型網絡進行互連。四、根據已知的環境與題意，寫出相應的VisualFoxPro求每小題用一條命令或語句完成（本大題共5小題，每小題4分，共20分，請填寫在答題紙上）。操作命令或SQL語句，要現有數據庫“HETONG.DBC”，其中包含表“TAB_HETONG.DBF”，該表有以下字段：編號(C,10)、供方(C,50)、合同編號(C,10)、簽訂地點(C,50)、數量(N,10,0)，需方(C,50)。相應的數據庫和表已打開，寫出實現下述功能的命令(注意：每個命令只能寫一條語句，多于一條不得分)。1.以“合同編號”為關鍵字建立降序的候選索引，索引名為“HT”,復合索引文件名為HTBH.CDX。（用VisualFoxPro命令）2.將所有“供方”為“陽春白雪集團”的所有記錄的“簽訂地點”改為“金陽大廈”（用VisualFoxPro命令）3.查詢統計“TAB_HETONG”表中不同需方“數量”的最大值，并將結果從打印機上打印出來。（用SQL語句）計算機專業理論試題第頁共13頁74．修改表“TAB_HETONG”的結構，刪除“合同編號”字段的默認值。（用SQL語句）5.刪除“TAB_HETONG”表中“供方”為“百得公司”或“數量”小于500的記錄。（用SQL語句）五、程序分析（本大題共2小題，每小題5分，共10分，讀程序并分析結果，請填寫在答題紙上）1．閱讀下面的VisualBasic程序，循環體中的語句s=s+2共執行了次。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger第8頁共20頁DimiAsInteger,sAsIntegera=5:b=2:c=2:s=0DoWhileb<=aForj=1To200Stepcs=s+2Nextjb=b+cLoopPrintsEndSub2．有數據表JY.DBF的內容如下：（注：日期格式為“月/日/年”）Record#借書證號借書日期1001002/01/162000701/01/163000611/03/154001002/17/16數據表JYR.DBF的內容如下：Record#借書證號姓名職稱10006孟小梅教授20010鄭財勇講師30007王志軍助教有VisualForPro程序TX.prg如下:CLEARSTORE12TOTASTORE18TOTBSTORE0TOTC,TSDOJSWITHTA,TB,TC,TSSELECT1USEJYRINDEXON借書證號TAGGYROFGYRYSELECT2USEJYH=1DOWHILE.NOT.EOF()TE=DATE()-借書日期IFTE>(TS-TA*2)*10SELECT1SEEKB.借書證號IFTE>(TS-27)*10OR職稱<>'教授'?姓名+'同志，您借的書已過期，請歸還'H=H+1ENDIFSELECT2ENDIF第9頁共20頁

SKIPENDDORETURNPROCEDUREJSPARAMETERSTA,TB,TC,TSTC=MAX(TA,TB)DOWHILETC<=TA*TBIFTC%TA=0ANDTC%TB=0TS=TCEXITENDIFTC=TC+1計算機專業理論試題第頁共13頁8ENDDORETURNENDPROCEDURE請分析職稱為“教授”和其它不是“教授”的教師借書的最多天數分別是和。設系統的當前日期為2016年3月19日，程序將顯示（填姓名）教師的還書信息。六、寫出下列程序的運行結果（本大題共5小題，每小題5分，共25分，請填寫在答題紙上）1．分析下面VisualBasic程序段。窗體中有一命令按鈕（名稱為B6）。PrivateSubB6_Click()Dimnum1AsIntegerDimnum2AsIntegerDimnumAsIntegerDimiAsInteger,kAsIntegernum1=InputBox("num1=")num2=InputBox("num2=")num=1：i=2Ifnum1>num2Thenk=num2Elsek=num1DoWhilei<=kIfnum1Modi=0Andnum2Modi=0Thennum=iEndIfi=i+1LoopPrintnumEndSub窗體啟動后單擊命令按鈕，分別給num1和num2賦值為18和27，輸出變量num的值為。2．分析下面VisualBasic程序段,如圖所示，界面中左側是列表框（名稱List1），，右側從上向下分別是文本框1（名稱Text1），文本框2（名稱Text2），顯示省份名稱第10頁共20頁

命令按鈕（名稱Command1）。PrivateSubCommand1_Click()DimiAsIntegerFori=0ToList1.ListCount-1IfTrim(Text1.Text)=List1.List(i)AndList1.SeText2.Text=Mid(List1.List(List1.ListIndex),1,ExitForElseText2.Text="其它"EndIfNextiEndSubPrivateSubForm_Load()List1.AddItem"河北省"List1.AddItem"河南省"List1.AddItem"湖北省"List1.AddItem"山東省"List1.AddItem"湖南省"EndSub窗體啟動后，選中列表框中“湖北省”項目，并在文本框1中輸入“湖北省”，單擊命令按鈕，文本框2顯示的內容是。3．有VisualForPro程序如下:CLEARINPUT"請輸入數據："TOAXB?CAS(AXB,1)FUNCTIONCASPARAMETERSnAmount,IsDWnDZS=CDE(RTRIM(LTRIM(STR(nAmount,18,2))),".","")cHZDX="零壹貳叁肆伍陸柒捌玖"cDW="分角元拾佰仟萬拾佰仟億拾佰仟萬拾佰仟億"cRMBDX=""nCd=LEN(nDZS)FORI=1TOLEN(nDZS)cNumbers=SUBSTR(cHZDX,INT(VAL(SUBSTR(nDZS,I,1))*計算機專業理論試題第頁共13頁9IFIsDW=1cDWs=SUBSTR(cDW,nCd*2-1,2)第11頁共20頁ELSEcDWs=SPACE(0)ENDIFcRMBDX=cRMBDX+cNumbers+cDWSnCd=nCd-1ENDFORFORI=LEN(nDZS)+1TO7cNumbers=SUBSTR(cHZDX,INT(VAL(SUBSTR(nDZS,I,1))*IFIsDW=1cDWs=SUBSTR(cDW,I*2-1,2)ENDIFcRMBDX=cNumbers+cDWS+cRMBDXENDFORRETURNcRMBDXFUNCTIONCDEPARAMETERSnAmountY,nDot,nREPcRMBDE=""FORI=1TOLEN(nAmountY)IFSUBSTR(nAmountY,I,1)<>"."cRMBDE=cRMBDE+SUBSTR(nAmountY,I,1)ENDIFENDFORRETURNcRMBDE運行上面的程序，輸入123.4，顯示的結果為4.現有2個表，分別是“JSB.DBF”、“KCB.DBF”。其中“JSB”表的結構為：樓號(N,2,0)、教室名(C，5)、容納人數(N,4,0)，是否占用(L)；“KCB”表的結構為：課程名(C,20)、選課人數(N,3,0),各表中數據如下：JSB.DBF記錄號樓號教室名容納人數是否占用111-304120.T.211-20580.T.322-10370.T.422-20480.F.533-10330.T.633-10465.F.733-201100.F.KCB.DBF記錄號課程名選課人數1計算機基礎352操作系統60有如下VisualFoxPro程序：DIMEJIZHI(1,1)SELECT樓號,教室名,容納人數,是否占用FROMJSBINTOTABLELINSHIALTERTABLELINSHIADDCHAZHIN(3,0)第12頁共20頁

USEACCEPT"請輸入課程名："TOKCMSELECT1USEKCBINDEXON課程名TAGABCSEEKKCMSELECT2USELINSHIREPLACEALLCHAZHIWITH容納人數-A.選課人數DELETEALLFORCHAZHI<0OR是否占用=.T.PACKSELECTMIN(CHAZHI)FROMLINSHIINTOARRAYJIZHIGOTOPJIEGUO=""DOWHILENOTEOF()IFCHAZHI=JIZHI(1,1)JIEGUO=JIEGUO+A.課程名+STR(樓號)+""+教室名ENDIFSKIP計算機專業理論試題第頁10共13頁ENDDO?JIEGUO運行上面的程序，輸入“操作系統”，顯示的結果是：5.現有數據庫文件WATER.DBC，包含2個表，分別是WATERMETER.DBF和USEB.DBF。其中WATERMETER表的結構為：水表編號(C,8)、本月讀數(N,10,2)、上月讀數(N,10,2)、使用數(N,10,2)；USEB表的結構為：戶主姓名(C,10)、房間編號(C,6)、水表編號(C,8)。其表中數據如下：WATERMETER.DBF記錄號水表編號本月讀數上月讀數使用數13-1001-A235.67201.3423-1002-B678.34450.0032-0101-A289.23200.43USEB.DBF記錄號戶主姓名房間編號水表編號1張斌3-10013-1001-A2王陽新3-10023-1002-B3馬國慶2-01012-0101-A新建一個表單，表單的Name屬性為Form1，程序運行時的界面如下圖所示：表單中，有一個標簽，其Name屬性為Label1，Caption屬性為“戶主姓名：”；有兩個文本框，其Name屬性分別為Text1和Text2；一個命令按鈕，其Name屬性為Command1，Caption屬性為“計算”；有一個選項按鈕組，其Name屬性為Optiongroup1，其中包含兩個單選按鈕，一個的Name屬性為Option1、Caption屬性為“1-9樓”，另一個的Name屬性為Option2、Caption屬性為“10樓以上”。Command1的Click事件代碼如下：（代碼中行末的分號為邏輯行連接符）第13頁共20頁

OPENDATABASEWATERUPDATEWATERMETERSET使用數=本月讀數-上月讀數SELECT(MAX(使用數)+MIN(使用數))/2ASABFROMWATERMETERINTOTAUSEMABGOTOPXAB=ABXM=TRIM(THISFORM.TEXT1.TEXT)SELECT水表編號,使用數FROMWATERMETERWHERE水表編號IN(SELECT；水表編號FROMUSEBWHERE戶主姓名=XM)IFTHISFORM.OPTIONGROUP1.OPTION1.VALUE=1IF使用數>XABJIEGUO=XAB*3.5+(使用數-XAB)*10ELSEJIEGUO=使用數*3.5ENDIFELSEIF使用數>XABJIEGUO=XAB*3.5+(使用數-XAB)*10+50ELSEJIEGUO=使用數*3.5+50ENDIFENDIFTHISFORM.TEXT2.VALUE=XM+""+"應收金額="+STR(JIEGUO)運行上面的表單，在Text1中輸入顯示的是：七、VisualBasic程序改錯(本大題共2小題，每題5分，共10分，誤行，請在答題紙上寫出錯誤行代碼和對應的正確代碼，改對一處得一處分，改錯不減“王陽新”，選擇單選按鈕“10樓以上”，單擊“計算”選鈕，則在Text2中每個程序有兩個錯分。注：要把整行寫完整)1．下面的程序是利用隨機函數產生10個1到30之間的隨機整數，然后把產生的這計算機專業理論試題第頁11共13頁些整數放入數組b中，并按一定規則放入數組a中。存放數組a中的規則是：（1）如果產生的是1到9之間（含1和9）的數，則直接放入數組a中。（2）如果產生的是大于9的數，則按如下方法存放：偶數則把十位數放字入數組a中，奇數則把個位數放字入數組a中。如：假設產生的整數是：22，17，18，9，10，24，1，23，25，22。放入數組a中的數是字：2，7,1,9,1,，3,，2。5,1程序中有兩處錯誤，請將錯誤行和相應的正確行寫在答題紙橫線上。OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimb(10)AsIntegerDimiAsIntegerDimnumAsIntegerFori=1To10第14頁共20頁

num=Int(Rnd*30)b(i)=numIfnum>=1Andnum<10Thenb(i)=numElseIfnumMod2=0Thena(i)=num\10Elsea(i)=numMod10EndIfEndIfNextiFori=1To10Printb(i);NextiPrintFori=1To10Printa(i);"";NextiEndSub2．以下程序的功能是：產生一個3行4列的數組并賦值，再用Inputbox函數輸入一個列號，然后對數組中的該列進行由小到大排列。如產生的數組是：2217192217189輸入一個列號3，則排序后為10241231024223252218132522213程序中有兩處錯誤,請將錯誤行和相應的正確行寫在答題紙橫線上。OptionBase1PrivateSubCommand1_Click()Dima(3,4)AsIntegerDimiAsInteger,jAsIntegerDimcolAsIntegerDimtAsIntegerFori=1To3Forj=1To4a(i,j)=20+Int(Rnd*30)Printa(i,j);NextjPrintNexticol=InputBox("col=")Fori=1To3Forj=2To4Ifa(i,col)>a(j,col)Then第15頁共20頁t=a(i,col)a(i,col)=a(j,col)a(j,col)=tEndIfNextjNextiPrintFori=1To3Forj=1To4Printa(i,j);NextjPrintNextiEndSub八、程序填空（本大題共7個空，每空5分，共35分，按程序要求在答題紙上填入相應的內容，使程序完整正確）1．(VisualBasic題)下面的程序是輸入偶數個字符的字符串給變量c，然后從字符串兩端分別截取字符賦給c1和c2，每次截取一個。如果是數字字符，則按“前端截取放前、后端截取放后”的方法存入數組a中；如果是其它字符，則不存放。然后依次分別截取下一個字符，并用同樣的方法處理，直到所有字符處理完為止。如輸入的字符為12AB34C56D78，存入數組a中的順序為1,8,2,7,6,3,5,4。最后顯示出來。請在空白位置填寫正確的代碼。OptionBase1PrivateSubCommand1_Click()DimcAsStringDimc1AsStringDimc2AsStringDima(20)AsIntegerDimiAsIntegerDimjAsIntegerDimkAsIntegerc=InputBox("c=")j=Len(c):i=1k=1DoWhilei<jc1=Mid(c,i,1):c2=Mid(c,j,1)Ifc1>="0"Andc1<="9"Thena(k)=Val(c1):Ifc2>="0"Andc2<="9"Thena(k)=Val(c2):i=i+1:(1)______________________LoopPrintcFori=1To(2)_____________________________Printa(i);Nexti第16頁共20頁

EndSub2．(VisualBasic試題)窗體(運行后如圖所示)中有一個標簽(名稱為Label1)，用Value值，滾動條（名稱為HS1）最小值和最大值分別是于顯示其下方滾動條的1和5。滾動條下方是組合框（名稱為Combo1），顯示內容如圖及程序。滾動條右側是列表框（名稱為List1），顯示內容如圖及程序。列表框下方是文本框（名稱為Text1），用于顯示列表框中的某項內容，有一定時器控件，初始設置Timer1.Enabled為True，，定時器的Timer1_TimerValue屬性；（2）標簽顯示當前滾動條的值；（3）文本框顯示與組合Load事件是給組合框中添加1到A到E，組合框顯示第一項內容1。請在空白位置填寫正確的代碼。timer1.Interval=1000事件功能是：（1）把組合框選定的值賦給滾動條的框中位置一致的列表框中的內容。窗體的5，給列表框中添加PrivateSubForm_Load()Combo1.AddItem"1"Combo1.AddItem"2"Combo1.AddItem"3"Combo1.AddItem"4"Combo1.AddItem"5"List1.AddItem"A"List1.AddItem"B"List1.AddItem"C"List1.AddItem"D"List1.AddItem"E"Combo1.Text=Combo1.(3)___________________