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

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

3、MB的磁盤空間大約可以存放的漢字數目是.（ ） A240萬 B30萬 C60萬 D120萬7某微機主要技術參數為“P4/1.7G/128M/60G/”，其中1.7G的含義為（ ） ACPU 的運算速度為1.7GMIPS BCPU 的時鐘主頻為1.7GHz CCPU 的內存為1.7GDCPU 與內存間的數據交換速率是1.7GB/S8在Windows XP中，按住Ctrl鍵的同時，用鼠標左鍵將選定的文件拖放到另一個文件夾，系統進行的操作是.（ ）A無論源文件夾和目的文件夾是否在同一磁盤內，均實現復制B無論源文件夾和目的文件夾是否在同一磁盤內，均實現移動C若源文件夾和目的文件夾在同一磁盤內，將實現移

4、動D若源文件夾和目的文件夾不在同一磁盤內，將實現移動9在Windows XP中，同一磁盤上.（ ）A允許同一文件夾中的文件同名，也允許不同文件夾中的文件同名B不允許同一文件夾中的文件同名，也不允許不同文件夾中的文件同名C允許同一文件夾中的文件同名，不允許不同文件夾中的文件同名D不允許同一文件夾中的文件同名，允許不同文件夾中的文件同名10在 Windows XP 中，卸載應用程序的正確方法是進入.（ ）A我的電腦 B資源管理器 C控制面板 D注冊表11對于Windows XP的回收站，下列敘述正確的是.（ ）A“回收站”中可以存放所有外存儲器中被刪除的文件或文件夾 B“回收站”是硬盤中的一塊區域

5、C“回收站”的大小是固定的，不能調整D在“回收站”圖標上點右鍵可以還原所有文件12在Word2003的編輯狀態，有關查找操作的敘述中，正確的是. （ ）A查找時，可以無格式進行、也可以帶格式進行、還可以查找一些特殊的非打印字符 B查找時，只能帶格式進行 C查找時，只能在整個文檔范圍內進行 D查找時，可以無格式進行、也可以帶格式進行，但不能查找一些特殊的非打印字符13在Word2003中，若插入的表格中，內外框線都是實的，想要將其改變為虛線，應選擇的命令是.（ ）A“表格”菜單中的“顯示虛框” B“表格”菜單中的“繪制表格” C“表格”菜單中的“表格自動套用格式” D“表格”菜單中的“表格屬性”

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

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

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

9、od 2 * 4的值是（ ）A. 1 B. 2 C. 3 D422關于Visual Basic中列表框屬性的說法不正確的選項是.（ ）A列表框既有添加列表項的方法，也有刪除列表項的方法B列表框中列表項個數無法統計C向列表框中添加項目時可以插入在列表項之間D列表框中的每個列表項都有一個索引位置23執行下面Visual Basic程序，數組a中元素值是w的數據經過一系列位置變化后，其最終位置的下標是哪個選項.（ ）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中，語句Print InStr(2, "abcdeabfg", "ab")的輸出結果是( ) A. 0 B. 1 C5 D. 625下面關于Visual Bas

11、ic中工程的說法正確的是.（ ）A. 每個工程中只能包含一類文件B. 工程中的啟動窗體是不能改的C. 工程中的窗體當創建以后是不能被刪除掉的D. 工程也是有屬性的26Visual Basic中，關于屬性、事件、方法、對象說法正確的是.（ ）A. 可以通過改變對象的屬性值來改變對象的特性B. 事件必須在鼠標單擊或雙擊對象后觸發C. Visual Basic中，所有對象都設置了相同的方法D. 窗體不是對象，按鈕是對象27執行下面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中，創建報表的命令是.（ ）A. MODIFY REPORTB. CREATE REPORTC. SET REPORT D. PREVIEW REPORT29在Visual FoxPro中，菜單文件的擴展名為.（ ）A. .mnx B. .mpr C. .pqr D. .scr30在Visual FoxPro中,假設表單上有一個命令按鈕，如果單擊命令按鈕可以實現關閉表單的功能，則應在該按鈕的Click事件過程中寫入

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

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

15、對多的永久關系，要求主表的索引類型必須為.（ ）A主索引 B. 主索引或候選索引C. 主索引、候選索引或唯一索引 D. 可以不建立索引36在物理拓樸結構為總線結構的局域網中，聯網的主機間進行通信通常采用的機制是 （ ）AATM BCDMA CFTTB+LAN DCSMA/CD37在下列關于網絡數據交換的敘述中不正確的是（ ）A線路數據交換面向連接B分組交換比報文交換具有更好的網絡響應速度C分組交換有存儲轉發過程D報文交換無存儲轉發過程38計算機網絡的拓撲結構主要取決于它的.（ ）A通信子網 B資源子網 C通信介質 D路由器連接方式39在使用TCP/IP協議的網絡中，屬于同一個子網絡的主機的網絡

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

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

18、B不同速率的用戶之間可以直接進行數據交換C數據信號在線路上進行傳輸時無衰損D可以把一個報文同時發送到多個目標節點中48在OSI/RM網絡參考模型中，網絡接口卡（NIC）所屬的層次為.（ ）A物理層 B數據鏈路層 C網絡層 D運輸層49在數字通信中廣泛采用CRC循環冗余碼進行差錯校驗，這是因為CRC可以（ ）A檢測出一位差錯B檢測出多位突發性差錯C檢測并糾正一位差錯D檢測并糾正多位突發性差錯50. 網絡中的計算機可以分為服務器和客戶機，其中的網絡服務器是指.（ ）A具有通信功能的高檔計算機B64位總線結構的高檔計算機C帶有容量大、傳輸速度快的硬盤的計算機D為網絡提供共享資源，并對這些資源進行管理

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

20、（ ）6在Word2003中，文本可以轉換成表格，但表格不可以轉換成文本。 （ ）7在Excel2003中，執行“格式”菜單中的“排序”命令，可以實現對工作表數據的排序功能。 （ ）8在 Excel2003 中，當數據源發生變化時，相應的圖表將自動跟隨變化。（ ） 9在Visual Basic中，控件的屬性在任何狀態下都可以修改。 （ ）10在Visual FoxPro中，選擇當前未使用的最小編號工作區的命令是SELECT 0。 （ ）11在TCP/IP協議組中，DNS（域名服務系統）的組織結構是層次模型。（ ）12只有服務器上的軟件系統和軟件應用可以作為共享資源，由服務器向網絡中其他計算機提

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

22、放的內容為全班30名同學的數學成績，若要在單元格D32中統計不及格同學的人數，則在D32中輸入= 。7在Visual Basic中，對于數組 A(2 To 3, 4 To 6)，它的第二維的下界為_。8. Visual Basic的表達式(10 > 8) And (-3 < 3) And (10 < 8) Or (5 > 14)的結果是_。9在Visual FoxPro中，運行表單“login”的命令為 。10在Visual FoxPro中，用命令DIMENSION X(2,5)定義了一個數組X，則該數組中數組元素個數是 。11計算機接入Internet時，可以通過公共

23、電話網進行連接。以這種方式連接并在連接時分配到一個臨時的IP地址，此時通常使用的連接協議是 。12一個家庭有三臺計算機，連接到一個微型路由器上共用一條線路連入Internet。已知路由器的內網IP地址為，子網掩碼為55.0，則三臺計算機的網絡地址應設置為 。13在OSI/RM模型的不同層次使用不同格式的地址，這些分層存在的地址按一定的協議建立起對應關系。在網絡層使用的地址稱為 地址。四、根據已知的環境與題意，寫出相應的Visual FoxPro操作命令或SQL語句，要求每小題用一條命令或語句完成（本大題共5小題，每小題4分，共20分，請填寫在答題紙上）。現有數據庫“GZGL.DBC”，其中包含

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

25、SQL語句） 5查詢統計“gzb.dbf”表中每個部門（職工號的前3位）職工基本工資的平均值。（用SQL語句） 五、程序分析（本大題共2小題，每小題5分，共10分，讀程序并分析結果，請填寫在答題紙上）1閱讀下面的Visual Basic程序，程序運行后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 "請輸入X=" TO XINPUT "請輸入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該程序的功能是計算S=（寫出包含X和Y的表達式）六、寫出下列程序的運行結果（本大題共5小題，每小題5分，共25分，請填寫在答題紙上）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窗體啟動后單擊命令按

29、鈕，輸出w的值為_。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程序執行后，

30、輸出語句Print st執行結果是_。3有Visual ForPro程序如下:CLEARINPUT "請輸入數據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 運行上面的程序，輸入16，顯示的結果為 第4、5題使用下面的數據庫設有數據庫文件“學生管理.DBC”，包含3個表，分別是“課程設置”、“學生檔案”、“學生成績”。其中“課程設置”表的結構為：課程編號(C，4)、課程名稱(C，20)、學時(N，3，0)，學分(N，3,1)；“學生檔案”表的結構為：學號(C，6)、姓名(C，10)、班級(C，20)，院系(C，20),“學生成績”表的結構為：學號(C，6)、課程(C，20)、成績(N，5，1)。各表中數據如下：課程設置.DBF記錄號 課程編號課程名稱 學時 學分1 0001 數據結構 64 3.52 0002 操作系統 54 3.03 00

32、03 軟件工程 46 2.5學生檔案.DBF記錄號學號 姓名 班級 院系1 100101 龍繼坤 機電1班 機電系2 100102 王玉玉 機電1班 機電系3 100204 李玉紅 機電2班 機電系4 200101 楊彬彬 工商管理1班 工商管理系5 200102 梁洪波 工商管理1班 工商管理系6 200301 李繼華 工商管理3班 工商管理系學生成績.DBF記錄號 學號 課程 成績 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程序：（代碼中行末的分號為邏輯行連接符）CLEAROPEN DATABASE 學生管理SELECT * FROM 學生成績 WHERE 學號 IN(SELECT 學號 FROM;學生檔案) INTO DBF KECHENGUSEADD TABLE KECHENGSELECT 學號,課程,MAX(成績) AS CHENGJI FROM KECHENG GROUP BY;課程 ORDER BY CHENGJI ASC INTO DBF HZSELECT HZ.學號,HZ.課程,HZ.

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

35、TABASE 學生管理CREATE TABLE TJS(X1 C(20),X2 N(5,1)SELECT DISTINCT 院系 AS Y1,SUBSTR(學號,1,2) AS Y2 FROM;學生檔案 ORDER BY Y2 INTO DBF JTSUSESELECT 1USE JTSGO TOPSELECT 2USE學生成績GO TOPSELECT 1DO WHILE NOT EOF() ZHI=0 SHU=0 SELECT 2 GO TOP DO WHILE NOT EOF() IF SUBSTR(學號,1,2)=JTS.Y2 ZHI=ZHI+成績 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 運行上面的程序，顯示的結果是： 七、Visual Basic程序改錯(本大題共有兩個小題，每題5分，共10分，每個程序有兩個錯誤行，請在答題紙上寫出錯誤行代碼和對應的正確代碼，改對一處得一處分，改錯不減分。注：要把整行寫完整) 1有兩個數組a = Array("zhao", "qian&quo

37、t;, "sun", "li", "zhou", "wu")b = Array(20, 31, 82, 73, 44, 25)數組a表示的是六個人的姓名，數組b表示的是與數組a中對應位置人的年齡，而且年齡中的個位數與他們在數組中的位置一致，年齡段在10到99之間。下面程序的功能是輸入一個年齡，首先查找輸入的年齡在數組b中是否存在；如果存在，則顯示其姓名，如果不存在，則程序直接結束。程序如下：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("請輸入查詢人的年齡")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窗體中（運行狀態如圖所示）有一定時器控件（名稱Timer1，初始狀態Enabled為False），有三個標簽用于顯示控件名稱，一滾動條（名稱HS1,最大值10，最小值0），一列表框（名稱List1，初始狀態為空），一文本框（名稱為Text1，初值為9876543210，）,一命令按鈕（名稱Command1，Caption屬性值為啟動）。啟動按鈕完成操作是：（1）計時器開始工作；（2）設置滾動條的value、max和min屬性值。定時器工作時每隔一定時間觸發一次事件，Timer事件中完成4項工作：（1）從文本框值右邊位置取若干個字符放文本框中；（2）把文本框中的內容添加到

40、列表框中；（3)滾動條的值減1；（4）當滾動條的值為0時計時器停止工作。程序中的兩處錯誤分布在每個事件中。（請結合程序認真看窗體運行界面，不能改變程序行數，不能增加函數）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個空，每空5分，共35分，按程序要求在答題卡上填入相應的內容，使程序完整正確）1(Visual Basic試題)下面程序的功能是從鍵盤輸入長度小于20個字符的字符串，以“#”結束，然后對字符串從左端進行處理。處理方法：把字符串中數字內容放入數組a的元素中，存放時要求每個元素放一個兩位數字，最后如果剩一個一位數字則單獨存放。如輸入的字符串為“12abc3d456e7f#”,則12、34、56、7分別存放到數組a的前四個元素中。請填空。Private Sub Command1_Click()Dim a(1

42、0) As IntegerDim c As StringDim w1 As String 從字符串中取的一個字符Dim w2 As String 用來存放存入數組中的數據Dim flag As Integer 表示每次已經獲取了幾位數字Dim i As Integeri = 0: w2 = 0c = InputBox("請輸入字符串，以#結束：")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)。窗體啟動時的Load事件代碼已給出。當每次單擊開始命令按鈕時

44、將把列表框中選擇的條目內容添加到數組，并把列表框中選擇的條目刪除，然后把數組中的元素值添加到文本框中（如圖,圖中上方控件為列表框，下方控件為文本框）。請在空白位置寫出正確的內容。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”數據庫