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

裝 訂 線 內(nèi) 不 要 答 題計(jì)算機(jī)專業(yè)理論試題（A）注意事項(xiàng)：1本試卷共八道大題?？偡?40分。2第I卷“一、選擇題”、第II卷“二、判斷題”的答案填涂在機(jī)讀卡上，其余各題答案寫在答題紙上，答在試卷上不得分。用藍(lán)黑鋼筆、碳素筆或圓珠筆答題。3答題前將密封線內(nèi)項(xiàng)目填寫清楚。第卷（選擇題 共100分）一、選擇題（本大題共50小題，每小題2分，共100分。在每小題所給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求，將正確選項(xiàng)填涂在機(jī)讀卡上計(jì)算機(jī)專業(yè)理論試題A 第15頁(yè) 共 13頁(yè) 1計(jì)算機(jī)處理數(shù)據(jù)過(guò)程中，是將存儲(chǔ)介質(zhì)上的數(shù)據(jù)調(diào)入到下列哪種硬件中進(jìn)行數(shù)據(jù)處理.（A） A內(nèi)存 B硬盤 C光盤 D軟盤 2按照電子器件更新劃分，大規(guī)模集成電路計(jì)算機(jī)是第幾代. .（D ） A一 B二 C三 D四 3關(guān)于計(jì)算機(jī)軟件描述錯(cuò)誤的是.（D ） AWindows 98是操作系統(tǒng)，屬于系統(tǒng)軟件 B. Office2003是辦公軟件，屬于應(yīng)用軟件 C圖像處理軟件是處理圖像工具，屬于應(yīng)用軟件 D. DOS是操作系統(tǒng)，屬于應(yīng)用軟件4二進(jìn)制數(shù)小數(shù)0.1B轉(zhuǎn)換成十六進(jìn)制數(shù)的結(jié)果是.（D ） A0.1 B0.4 C0.6 D0.85下列關(guān)于計(jì)算機(jī)病毒防治敘述錯(cuò)誤的是.（D ） A計(jì)算機(jī)要經(jīng)常更新殺毒軟件病毒庫(kù)并定期查殺 B計(jì)算機(jī)要安裝軟件防火墻，防止病毒侵入 C來(lái)歷不明的郵件文件不要打開(kāi)，防止郵件中攜帶病毒 D計(jì)算機(jī)鼠標(biāo)、鍵盤要定期清洗，防止計(jì)算機(jī)病毒侵入6計(jì)算機(jī)最早應(yīng)用于彈道運(yùn)算屬于.（A ） A科學(xué)計(jì)算 B輔助技術(shù) C數(shù)據(jù)處理 D人工智能7A文件長(zhǎng)度為512KB，B文件長(zhǎng)度是2MB，B文件長(zhǎng)度是A文件多少倍.（D ） A8 B2 C.3 D48同一臺(tái)計(jì)算機(jī)能夠安裝不同位數(shù)的操作系統(tǒng)，通常情況下，數(shù)據(jù)處理速度最慢的操作系統(tǒng)是.（D ）A64位 B16位 C8位 D32位9在Windows XP中，當(dāng)用鼠標(biāo)左鍵在不同驅(qū)動(dòng)器之間拖動(dòng)文件時(shí)，系統(tǒng)默認(rèn)的操作是.（C ） A移動(dòng) B. 創(chuàng)建快捷方式 C.復(fù)制 D.無(wú)任何操作10在Windows XP中，利用“搜索”窗口查找文件時(shí)，不能用于文件查找的選項(xiàng)是. （D ） A文件名 B文件修改日期 C文件大小 D文件讀寫的權(quán)限屬性11在Windows XP的“控制面板”中不能設(shè)置的項(xiàng)目是. （ D） A日期和時(shí)間 B.添加或刪除程序 C輸入法 D.Outlook電子郵件賬戶12在Word2003編輯狀態(tài)下，編輯化學(xué)反應(yīng)方程式Fe+2HClFeCl2+H2,必須使用的命令是.（B ）A編輯-查找 B字體-下標(biāo) C插入-圖示 D格式-段落13在Word2003中，哪個(gè)命令不會(huì)出現(xiàn)在“表格”菜單里. .（C ）A公式 B排序 C插入 D自動(dòng)套用格式14在Word2003文檔中，選中“使用通配符”，在“多”與“體”之間只有一個(gè)字符，將所有“多”與“體”之間字符都替換為“媒”，最優(yōu)的方法是.（A ）A查找“多?體”，替換成“多媒體”B查找“多體”，替換成“多媒體” C分別查找中間字符，替換成“媒”D查找“多*體”，替換成“多媒體”15在Excel2003文檔中，對(duì)分?jǐn)?shù)進(jìn)行高級(jí)篩選，如果條件是“語(yǔ)文、數(shù)學(xué)、外語(yǔ)僅一門不及格”，則下述條件區(qū)域表示正確的是.（ D）語(yǔ)文數(shù)學(xué)外語(yǔ)6060A B語(yǔ)文數(shù)學(xué)外語(yǔ)606060 C D 語(yǔ)文數(shù)學(xué)外語(yǔ)606060語(yǔ)文數(shù)學(xué)外語(yǔ)=60=60=60=60=60=60 C. D. -30下列關(guān)于Visual FoxPro中報(bào)表的敘述，正確的是.（ D ）A在報(bào)表設(shè)計(jì)器中每個(gè)帶區(qū)的大小是不可以改變的B報(bào)表數(shù)據(jù)源只能是數(shù)據(jù)庫(kù)表C如果報(bào)表需要按照某一字段值的大小順序輸出，則相應(yīng)的表或視圖必須按該關(guān)鍵字段索引D. 報(bào)表的“頁(yè)標(biāo)頭”帶區(qū)的內(nèi)容每條記錄打印一次 31在Visual FoxPro中，以下關(guān)于視圖的描述中正確的是.（ A ）A. 視圖和查詢的最大區(qū)別在于視圖可以對(duì)源表中的數(shù)據(jù)進(jìn)行更新B. 視圖文件的擴(kuò)展名為 .pqrC. 視圖只能從一個(gè)表派生出來(lái)D. 視圖不能檢查更新的合法性32在Visual FoxPro中，項(xiàng)目文件的默認(rèn)擴(kuò)展名為.（B ）A. .SCR B. .PJX C. .MPR D. .MNX33在Visual FoxPro中，關(guān)于查詢的敘述錯(cuò)誤的是.（ B ）A. 在查詢?cè)O(shè)計(jì)器中的“雜項(xiàng)”選項(xiàng)卡中可以指定是否包含重復(fù)記錄以及列在前面的記錄個(gè)數(shù)或百分比B. 查詢結(jié)果保存在數(shù)據(jù)庫(kù)中C. 在查詢?nèi)ハ蛑?，臨時(shí)表是將查詢結(jié)果保存在一個(gè)臨時(shí)表中，關(guān)閉表時(shí)自動(dòng)清除D. 查詢?cè)O(shè)計(jì)器中，“篩選”選項(xiàng)卡的作用是指定查詢記錄的條件34在Visual FoxPro中，建立索引的INDEX命令的參數(shù)中，表示建立唯一索 引的是.（ D ）ACANDIDATE B. ASCENDING C. DISTINCT D. UNIQUE35在Visual FoxPro中，下列表達(dá)式中運(yùn)算結(jié)果為“good”的是.（ D ）ASUBSTR(mygoodfriend,AT(good,mygoodfriend)B. SUBSTR(mygoodfriend,2,4)C. RIGHT(LEFT(mygoodfriend,6),4)D. LEFT(RIGHT(mygoodfriend,AT(good,mygoodfriend),4)36以下各項(xiàng)中哪個(gè)是數(shù)據(jù)通訊系統(tǒng)的主要技術(shù)指標(biāo).（C ） A. 壓縮率 B. 分辨率 C. 傳輸速率 D. 時(shí)鐘主頻37下列計(jì)算機(jī)網(wǎng)絡(luò)拓?fù)浣Y(jié)構(gòu)中，一般不在局域網(wǎng)中使用的是. （D ） A. 總線型結(jié)構(gòu) B. 星型結(jié)構(gòu) C. 環(huán)型結(jié)構(gòu) D. 分布式結(jié)構(gòu)38在通信系統(tǒng)中，把來(lái)自許多信號(hào)源的信號(hào)組合起來(lái)，再通過(guò)一條傳輸線路同時(shí)發(fā)送的技術(shù)稱為. . （B ） A. 多路分解 B. 多路復(fù)用 C. 并行通信 D. 同步傳輸39在TCP/IP傳輸層的協(xié)議數(shù)據(jù)首部，依據(jù)下列哪個(gè)字段來(lái)確定通信雙方主機(jī)內(nèi)發(fā)送或接收數(shù)據(jù)的應(yīng)用進(jìn)程. . . （D ） A. 序號(hào) B. 確認(rèn)號(hào) C. IP地址 D. 端口號(hào)40OSI參考模型中，數(shù)據(jù)鏈路層處理的協(xié)議數(shù)據(jù)單元為. . （ D） A. 數(shù)據(jù)段 B. 比特 C. 報(bào)文 D. 數(shù)據(jù)幀41下列關(guān)于TCP/IP協(xié)議描述錯(cuò)誤的是.（D ） A. 起源于ARPANET B. 是目前Internet事實(shí)上的國(guó)際標(biāo)準(zhǔn)和工業(yè)標(biāo)準(zhǔn) C. TCP/IP協(xié)議的發(fā)展是先定義完整理論框架，再實(shí)現(xiàn)相應(yīng)協(xié)議 D. 網(wǎng)際層只提供無(wú)連接的數(shù)據(jù)報(bào)服務(wù)42下面關(guān)于TCP協(xié)議的特性描述錯(cuò)誤的是. （D） A. 面向連接 B. 提供數(shù)據(jù)傳輸?shù)目煽啃员ＷC C. 具有差錯(cuò)檢驗(yàn)和流量控制功能 D. 提供數(shù)據(jù)格式轉(zhuǎn)換功能43在電子郵件服務(wù)中，郵件服務(wù)器之間轉(zhuǎn)發(fā)郵件使用的協(xié)議是.（B ） AHTTP BSMTP CPOP3 DIMAP44網(wǎng)絡(luò)操作系統(tǒng)的基本任務(wù)是.（D ） A. 屏蔽本地資源與網(wǎng)絡(luò)資源之間的差異 B. 管理網(wǎng)絡(luò)系統(tǒng)的共享資源 C. 為用戶提供基本的網(wǎng)絡(luò)服務(wù)功能 D. 以上全是45. 在以太網(wǎng)中，設(shè)備之間使用非屏蔽雙絞線進(jìn)行連接，則設(shè)備的硬件接口是 .（B ） A. RJ-11接口 B. RJ-45接口 C. BNC接口 D. AUI接口46. 以下網(wǎng)絡(luò)設(shè)備中，在OSI參考模型工作層次和網(wǎng)橋相同的是. （A ） A. 交換機(jī) B. 路由器 C. 集線器 D. 中繼器47. WWW服務(wù)器的域名為，文件file1.rar放置在服務(wù)器的根目 錄下，服務(wù)器的主目錄為D:dir，則使用Internet Explorer瀏覽器訪問(wèn)該文件 使用的URL為.（B） A/dir/file1.rar B/file1.rar C/file1.rar D/dir/file1.rar48“非對(duì)稱數(shù)字用戶線路”的簡(jiǎn)稱是.（B ） AISBN BADSL CDDN DATM49校園網(wǎng)內(nèi)的一臺(tái)計(jì)算機(jī)訪問(wèn)外部網(wǎng)絡(luò)的服務(wù)器時(shí)，使用域名訪問(wèn)失敗，而使用IP 地址訪問(wèn)成功，造成這種故障的原因可能是.（ C ） A該計(jì)算機(jī)的網(wǎng)絡(luò)斷開(kāi) B被訪問(wèn)的外部服務(wù)器網(wǎng)絡(luò)斷開(kāi) C該計(jì)算機(jī)的DNS服務(wù)器設(shè)置有誤 D該計(jì)算機(jī)與DNS服務(wù)器不在同一子網(wǎng)50當(dāng)前Internet流行的P2P（peer-to-peer，對(duì)等網(wǎng)絡(luò)）模式的網(wǎng)絡(luò)應(yīng)用淡化了計(jì) 算機(jī)網(wǎng)絡(luò)服務(wù)提供者與服務(wù)使用者的界限。和傳統(tǒng)的C/S模式的網(wǎng)絡(luò)應(yīng)用不同，P2P 模式以“非中心化”的方式使得更多的用戶計(jì)算機(jī)同時(shí)身兼客戶機(jī)與服務(wù)器的雙重 身份，將互聯(lián)網(wǎng)推向了一個(gè)新的階段。使用P2P模式進(jìn)行通信的網(wǎng)絡(luò)主機(jī)節(jié)點(diǎn)之間 使用對(duì)等的方式，通過(guò)直接交換信息來(lái)共享計(jì)算機(jī)資源。以下網(wǎng)絡(luò)應(yīng)用使用P2P模 式的是.（C ） ADNS BWeb CBitTorrent DFTP第卷（非選擇題 共140分）二、判斷題（本大題14小題，每小題1分，共14分。將答案填涂在機(jī)讀卡上，正確的填涂“”格，錯(cuò)誤的填涂“”格）1一般情況下，光盤比硬盤讀取速度慢。 （ T ）2計(jì)算機(jī)處理數(shù)據(jù)快慢和CPU主頻無(wú)關(guān)。 （ F ）3在Windows XP中，如果希望某個(gè)文件不能被刪除，可將它的屬性設(shè)置為“只讀”。 （ T ）4在Windows XP中，鼠標(biāo)右鍵單擊不同的對(duì)象，彈出的快捷菜單都是相同的。 （ F ）5在Word2003編輯狀態(tài)下，可以對(duì)文字進(jìn)行動(dòng)態(tài)效果設(shè)置。 （ T ）6在Word2003打印對(duì)話框中，打印“8頁(yè)至18頁(yè)與25頁(yè)”，在頁(yè)碼范圍輸入“8-18；25”。 （ F ）7在Excel2003文檔中，工作表刪除后能夠通過(guò)“撤銷”操作恢復(fù)工作表。（ F ）8在Excel2003工作表中，不可以對(duì)沒(méi)有合并過(guò)的單元格進(jìn)行拆分。 （ F ） 9在Visual Basic中，不同模塊中的變量可以重名。 （ T ）10在Visual FoxPro中，使用PACK命令將刪除當(dāng)前表中全部記錄。 （ F ）11全雙工通信方式中，信息可以向兩個(gè)相反方向傳送，但是不能同時(shí)進(jìn)行。 （ F ）12計(jì)算機(jī)網(wǎng)絡(luò)中，通信雙方的對(duì)等層必須使用相同的協(xié)議。 （ F ）13決定局域網(wǎng)性能的三要素是：網(wǎng)絡(luò)拓?fù)洹鬏斀橘|(zhì)和介質(zhì)訪問(wèn)控制方法。 （ T ）14在數(shù)據(jù)通信中，將數(shù)字信號(hào)變換為模擬信號(hào)的過(guò)程稱為解調(diào)。 （ F ）三、填空題（本大題共13小題，每小題2分，共26分。請(qǐng)將答案填寫在答題紙上）1按照計(jì)算機(jī)所處理的信號(hào)進(jìn)行分類，可以分為模擬式計(jì)算機(jī)和 數(shù)字 式計(jì)算機(jī)。2中央處理器（CPU）包括運(yùn)算器和 控制 器。3把二進(jìn)制數(shù)10100100101B轉(zhuǎn)換成十六進(jìn)制為 525 H。 4如果需要設(shè)置Windows XP中窗口的色彩方案、字體大小等屬性，可用鼠標(biāo)右鍵單擊桌面空白處，在快捷菜單中選擇“屬性”選項(xiàng)打開(kāi)“顯示 屬性”對(duì)話框后，點(diǎn)擊 外觀 標(biāo)簽進(jìn)行設(shè)置。5在Word2003中，如果對(duì)表格中的數(shù)值進(jìn)行計(jì)算，則需要點(diǎn)擊“表格”下 的 排序 。 6在Excel2003表格中，A1=2,B1=3,C1=4,D1=5,E1=6,A2=7,B2=8,C2=9,D2=10, E2=11,A3=2,B3=3,C3=4,D3=5,E3=6，則sum（A1：D2,B2：E3）結(jié)果為 。7在Visual Basic中，當(dāng)設(shè)置文本框的PasswordChar屬性為*,程序運(yùn)行后在 文本框中輸入123，則用Print輸出文本框的內(nèi)容時(shí)顯示的是 123 。（填寫結(jié)果時(shí)不要加雙引號(hào)）8Visual Basic表達(dá)式(10 8) Or (5 4) And (-3 6,1,-1) 的輸出是 -1 。 11計(jì)算機(jī)網(wǎng)絡(luò)協(xié)議的三要素中，用于定義每部分控制信息和數(shù)據(jù)所代表含義的 是 語(yǔ)義 。 12標(biāo)準(zhǔn)的B類IP地址的網(wǎng)絡(luò)地址部分為 16 位二進(jìn)制值。 13用戶使用Windows XP接入Internet，需要配置的TCPIP主要參數(shù)是IP地 址、 子網(wǎng)掩碼 、默認(rèn)網(wǎng)關(guān)和DNS。四、根據(jù)已知的環(huán)境與題意，寫出相應(yīng)的Visual FoxPro操作命令或SQL語(yǔ)句，要求每小題用一條命令或語(yǔ)句完成（本大題共5小題，每小題4分，共20分，請(qǐng)?zhí)顚懺诖痤}紙上）?，F(xiàn)有數(shù)據(jù)庫(kù)BOOKGL.DBC，其中包含表“books.dbf”，“books.dbf”結(jié)構(gòu)為：圖書(shū)編號(hào)(C,4)、書(shū)名(C,30)、出版社(C,20)、出版日期(D)、價(jià)格(N,8,2)、作者(C,10)，頁(yè)數(shù)（N,4）。在相應(yīng)數(shù)據(jù)庫(kù)和表已打開(kāi)的前提下，寫出完成下述功能的命令。1邏輯刪除所有出版社為“清華大學(xué)出版社”、價(jià)格大于35的記錄。（用Visual FoxPro命令） 2. 以“圖書(shū)編號(hào)”為關(guān)鍵字建立降序的候選索引，索引名為BH。(用Visual FoxPro命令） 3將“books.dbf”中所有“頁(yè)數(shù)”大于300的圖書(shū)“價(jià)格”增加10。（用SQL語(yǔ)句） 4在數(shù)據(jù)庫(kù)BOOKGL.DBC中建立表AUTHORS.DBF（作者編號(hào)（C,4)，作者姓名(C,10)，所在城市（C,20），聯(lián)系電話（C,15），作者性別(C,2)），設(shè)置“作者編號(hào)”字段為主索引，并對(duì)“作者性別”字段的輸入值限制為只能是“男”或“女”，否則提示“性別輸入錯(cuò)誤！”（用SQL語(yǔ)句） 5查詢books.dbf表中 “價(jià)格”大于28的記錄，包括“書(shū)名”、“出版社”，“價(jià)格” 字段內(nèi)容，按“價(jià)格”字段降序排列，結(jié)果保存到文本文件GAO.txt中（用SQL語(yǔ)句） 五、程序分析（本大題共2小題，每小題5分，共10分，讀程序并分析結(jié)果，請(qǐng)?zhí)顚懺诖痤}紙上）1運(yùn)行下面的Visual Basic程序，輸出結(jié)果中有幾個(gè)偶數(shù)_6_Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerDim num As IntegerFor i = 0 To 10 num = 10 + Int(11 * Rnd) For j = 0 To i If num = a(j) Then Exit For Next j If j i Then a(i) = num Else i = i - 1Next iFor i = 0 To 10 Print a(i);Next i End Sub2有Visual ForPro程序如下:程序的功能是計(jì)算用數(shù)學(xué)表達(dá)式描述 CLEARSS=0AA=0BB=0FOR I=1 TO 10 FL=0 J=2 DO WHILE J=SQRT(I) AND FL=0 IF I % J=0 FL=1 ELSE J=J+1 ENDIF ENDDO IF FL=0 DO MM WITH AA,I SS=SS-1/AA ELSE DO MM WITH AA,I DO MM WITH BB,I-1 SS=SS+BB/AA ENDIFENDFOR?SSPROCEDURE MM PARAMETERS S,N X=1 P=1 DO WHILE X=N P=P*X X=X+1 ENDDO S=P RETURNENDPROC六、寫出下列程序的運(yùn)行結(jié)果（本大題共5小題，每小題5分，共25分，請(qǐng)?zhí)顚懺诖痤}紙上）1分析下面Visual Basic程序段。窗體中有一命令按鈕（名稱為C6_1）。(5分)Private Sub C6_1_Click()Dim i As IntegerDim j As IntegerDim w As Integera = Array(1, 2, 3, 4)b = Array(5, 6, 7, 8)For i = 0 To 3w = w + fu(a(i), b(i)w = w + a(i)Next iPrint wEnd SubPrivate Function fu(ByVal x As Integer, ByVal y As Integer)Static k As Integerk = k + 1x = x + yy = x - yx = x - yfu = kEnd Function窗體啟動(dòng)后單擊命令按鈕，輸出w的值為 20 。2下面Visual Basic程序段，是對(duì)順序文件進(jìn)行操作。(5分)Open c6_2.txt For Output As #1Print #1, k1; k2; k3Print #1, 12; 34; 56Print #1, p1; p2; p3Print #1, 88; 99; 77Close #1Open c6_2.txt For Input As #1Seek #1, 10Line Input #1, scorePrint scoreClose #1程序運(yùn)行后，Print score輸出結(jié)果是 23456 。3在Visual FoxPro的表單上添加兩個(gè)文本框，一個(gè)Name屬性為：Text1，另一個(gè)Name屬性為：Text2，添加一個(gè)命令按鈕，其Name屬性為：Command1，Caption屬性為：確定。Command1的Click事件代碼如下：xa=VAL(TRIM(ThisForm.Text1.value)n=LEN(TRIM(ThisForm.Text1.value)DIMENSION aa(n)DIMENSION bb(n)FOR i=n TO 1 step -1 aa(i)=xa % 10 xa=INT(xa/10)ENDFORnm=0FOR i=1 TO n IF aa(i) % 20 nm=nm+1 bb(nm)=aa(i) ENDIFENDFOR FOR i=1 TO nm bb(i)=bb(i)+5 bb(i)=bb(i) % 10ENDFORFOR i=1 TO INT(nm/2) t=bb(i) bb(i)=bb(nm-i+1) bb(nm-i+1)=tENDFORt=0FOR i=1 TO nm t=t*10+bb(i)ENDFORThisForm.Text2.value=STR(t)運(yùn)行上面的表單，在Text1文本框中輸入：23456789，單擊“確定“按鈕，在Text2文本框中顯示的是 4208 。第4、5題使用下面的數(shù)據(jù)庫(kù)設(shè)有數(shù)據(jù)庫(kù)文件BGGL.DBC，包含3個(gè)表，分別是KEFANG、RUZHU、KEHU。其中KEFANG的結(jié)構(gòu)為：客房號(hào)(C，4)、類型(C，10)、價(jià)格(N，4，0)，RUZHU的結(jié)構(gòu)為：客房號(hào)(C，4)、客戶號(hào)(C，4)、入住日期(D)，退房日期（D）,KEHU的結(jié)構(gòu)為：客戶號(hào)(C，4)、姓名(C，8)、性別(C，2)、工作單位（C，20）；各表中數(shù)據(jù)如下：KEFANG.DBF記錄號(hào)客房號(hào)類型價(jià)格1 1101 普通客房 2802 1102 貴賓客房 5003 1201 總統(tǒng)套房 20004 1202 總統(tǒng)套房 15005 1301 普通客房 2806 1302 貴賓客房 600RUZHU.DBF記錄號(hào)客房號(hào) 客戶號(hào) 入住日期 退房日期1 1101 1001 03/25/05 03/28/052 1102 1002 03/27/05 03/29/053 1201 1003 03/28/05 04/05/054 1202 2001 03/27/05 03/31/055 1301 2002 03/23/05 04/01/05 KEHU.DBF記錄號(hào)客戶號(hào) 姓名 性別 工作單位1 1001 王林 男 AA商貿(mào)公司2 1002 劉月明 女 BB電子公司3 1003 姚曉敏 女 CC農(nóng)產(chǎn)品公司4 2001 肖敏 女 DD商貿(mào)公司5 2002 黃小兵 男 EE電子公司4. 有如下Visual FoxPro程序： OPEN DATABASE BGGLUSE KEHUACCEPT 請(qǐng)輸入客戶姓名： TO XMINDEX ON 姓名 TAG XMH OF XMSEEK XMKEHUH=客戶號(hào)SELECT 1USE RUZHUGO TOPDO WHILE NOT EOF() IF 客戶號(hào)=KEHUH KEFANGH=客房號(hào) NM=退房日期-入住日期+1 SELECT 2 USE KEFANG DO WHILE NOT EOF() IF 客房號(hào)=KEFANGH S=價(jià)格*NM EXIT ENDIF SKIP ENDDO EXIT ENDIF SKIPENDDO?S運(yùn)行上面的程序，輸入“姚曉敏”，顯示的結(jié)果是： 18000 。5. 有如下Visual FoxPro程序：（代碼中行末的分號(hào)為邏輯行連接符）OPEN DATABASE BGGLACCEPT 請(qǐng)輸入客房類型名： TO KFLXSELECT 客房號(hào) FROM KEFANG WHERE 類型=KFLX INTO DBF KFALTER TABLE KF ADD XX C(8)ALTER TABLE KF ADD TH N(3,0)SELECT RUZHU.客房號(hào) AS 客房號(hào),KEHU.姓名 AS 姓名,(RUZHU.退房日期;-RUZHU.入住日期+1) AS 天數(shù) FROM RUZHU,KEHU WHERE RUZHU.客戶號(hào)=;KEHU.客戶號(hào) INTO DBF KHUSE KHDO WHILE NOT EOF() KFH=客房號(hào) XM=姓名 TSH=天數(shù) UPDATE KF SET XX=XM,TH=TSH WHERE 客房號(hào)=KFH SKIPENDDOSELECT KEFANG.類型,KEFANG.客房號(hào),KF.XX,TH*KEFANG.價(jià)格 AS TJ;FROM KEFANG,KF WHERE KEFANG.客房號(hào)=KF.客房號(hào) INTO DBF JGUSE JGDO WHILE NOT EOF() ?客房號(hào),XX,TJ SKIPENDDO1101 王林 840運(yùn)行上面的程序，輸入“普通客房”，顯示的結(jié)果是： 1301 黃小兵 2520 。 七、Visual Basic程序改錯(cuò)(本大題共有兩個(gè)小題，每題5分，共10分，每個(gè)程序有兩個(gè)錯(cuò)誤行，請(qǐng)?jiān)诖痤}紙上寫出錯(cuò)誤行和對(duì)應(yīng)的正確行，改對(duì)一處得一處分，改錯(cuò)不扣分) 1下面的程序是利用隨機(jī)函數(shù)產(chǎn)生10個(gè)10到100之間的隨機(jī)整數(shù)，并按由小到大的順序放入數(shù)組a中。(提示：題目中的語(yǔ)句Goto x是轉(zhuǎn)移到標(biāo)號(hào)x位置執(zhí)行)程序中有兩處錯(cuò)誤，請(qǐng)將錯(cuò)誤行和相應(yīng)的正確行寫在答題紙橫線上。 Dim a(10) As IntegerDim num As IntegerDim i As IntegerDim j As IntegerDim k As IntegerFor i = 1 To 10 k = i num = 10 + Int(Rnd * 91) For j = 1 To i-1 If num a(j) Then GoTo 20 Next j a(i) = num10:Next iGoTo 3020:For m = k To j M=K TO J-1 STEP -1 a(m + 1) = a(m) A（M）=A（M-1）Next ma(j) = num GoTo 1030:For i = 1 To 10 Print a(i);Next iPrint 2窗體中（如圖所示）有一個(gè)定時(shí)器控件（名稱Timer1），有三個(gè)標(biāo)簽（Caption屬性分別是滾動(dòng)條、組合框、列表框），一個(gè)滾動(dòng)條（名稱HS1，Min和Max的屬性初值分別為0和5，Value初值為0），一個(gè)組合框（名稱Combo1），一個(gè)列表框（名稱List1），組合框和列表框初始為空，一個(gè)框架，框架中有兩個(gè)復(fù)選框（名稱分別為Check1和Check2，Caption屬性如圖所示）。程序的功能是：窗體啟動(dòng)后，定時(shí)器開(kāi)始工作，工作時(shí)每隔3秒鐘觸發(fā)一次事件，Timer事件中完成4項(xiàng)工作：（1）滾動(dòng)條的值加1；（2）往組合框中添加滾動(dòng)條的Value值；（3）調(diào)用Combo1_Change過(guò)程；（4）當(dāng)滾動(dòng)條的值為5時(shí)定時(shí)器停止工作。在Combo1_Change過(guò)程中，要將滾動(dòng)條當(dāng)前值加上復(fù)選框中當(dāng)時(shí)所有選中項(xiàng)的標(biāo)題添加到列表框中，Combo1_Change過(guò)程中只給出了部分程序，省略的程序都是正確的。程序中有兩處錯(cuò)誤, 請(qǐng)將錯(cuò)誤行和相應(yīng)的正確行寫在答題紙橫線上。 Private Sub Combo1_Change()List1.AddItem HS1.ValueIf Check1.Value = True Then 1List1.List(HS1.Value - 1) = List1.List(HS1.Value - 1) + Check1.CaptionEnd IfEnd SubPrivate Sub Timer1_Timer()HS1.Value = HS1.Value + 1Combo1.AddItem HS1.ValueCombo1_ChangeIf HS1.Value = 5 Then Timer1.Visible = False ENABLEEnd Sub八、程序填空（本大題共7個(gè)空，每空5分，共35分，按程序要求在答題紙上填入相應(yīng)的內(nèi)容，使程序完整正確）1下面程序運(yùn)行時(shí)輸入長(zhǎng)度少于20個(gè)字符的字符串，以“#”結(jié)束，然后對(duì)字符串從左端進(jìn)行處理。處理方式：把數(shù)字和非數(shù)字內(nèi)容分別放入兩個(gè)數(shù)組，數(shù)組a存放數(shù)字，數(shù)組b存放非數(shù)字，存放時(shí)把相鄰的數(shù)字或非數(shù)字內(nèi)容作為一個(gè)整體進(jìn)行存放，如輸入的字符串為“12abc3d456ef#”,則12、3、456分別存放到數(shù)組a的前三個(gè)元素中，”abc”中，”abc”、”d”、”ef”分別存放到數(shù)組b的前三個(gè)元素中。請(qǐng)?zhí)羁铡?Visual Basic題)Dim a(20) As IntegerDim b(20) As StringDim c As StringDim i As IntegerDim j As IntegerDim w1 As StringDim w2 As StringDim m As IntegerDim n As Integerc = InputBox(請(qǐng)輸入c$=, 輸入數(shù)據(jù))c = Trim(c)w1 = Left(c, 1)c = Mid(c, 2)Do While w1 # If w1 = 0 And w1 = 0 And w2 = 9 And w2 # w1 = w1 * 10 + w2 w2 = Mid(c, 1, 1) c = Mid(c, 2) Loop a(i) = w1 i = i + 1 (1)_W1=W2_ w2 = Left(c, 1) c = Mid(c, 2) Do While Not (w2 = 0 And w2 = 9) And w2 # w1 = w1 + w2 w2 = Left(c, 1) c = Mid(c, 2) Loop b(j) = w1 j = j + 1 End If w1 = w2LoopIf w1 = 0 And w1 = 0 And w2 = 9)_ Then b(j) = w1 j = j + 1 En