1、裝 訂 線 內 不 要 答 題計算機專業理論試題（A）注意事項：1本試卷共八道大題?？偡?40分。2第I卷“一、選擇題”、第II卷“二、判斷題”的答案填涂在機讀卡上，其余各題答案寫在答題紙上，答在試卷上不得分。用藍黑鋼筆、碳素筆或圓珠筆答題。3答題前將密封線內項目填寫清楚。第卷（選擇題 共100分）一、選擇題（本大題共50小題，每小題2分，共100分。在每小題所給出的四個選項中，只有一個符合題目要求，將正確選項填涂在機讀卡上 1計算機處理數據過程中，是將存儲介質上的數據調入到下列哪種硬件中進行數據處理.（A） A內存 B硬盤 C光盤 D軟盤 2按照電子器件更新劃分，大規模集成電路計算機是第幾代

2、. .（D ） A一 B二 C三 D四 3關于計算機軟件描述錯誤的是.（D ） AWindows 98是操作系統，屬于系統軟件 B. Office2003是辦公軟件，屬于應用軟件 C圖像處理軟件是處理圖像工具，屬于應用軟件 D. DOS是操作系統，屬于應用軟件4二進制數小數0.1B轉換成十六進制數的結果是.（D ） A0.1 B0.4 C0.6 D0.85下列關于計算機病毒防治敘述錯誤的是.（D ） A計算機要經常更新殺毒軟件病毒庫并定期查殺 B計算機要安裝軟件防火墻，防止病毒侵入 C來歷不明的郵件文件不要打開，防止郵件中攜帶病毒 D計算機鼠標、鍵盤要定期清洗，防止計算機病毒侵入6計算機最早應

3、用于彈道運算屬于.（A ） A科學計算 B輔助技術 C數據處理 D人工智能7A文件長度為512KB，B文件長度是2MB，B文件長度是A文件多少倍.（D ） A8 B2 C.3 D48同一臺計算機能夠安裝不同位數的操作系統，通常情況下，數據處理速度最慢的操作系統是.（D ）A64位 B16位 C8位 D32位9在Windows XP中，當用鼠標左鍵在不同驅動器之間拖動文件時，系統默認的操作是.（C ） A移動 B. 創建快捷方式 C.復制 D.無任何操作10在Windows XP中，利用“搜索”窗口查找文件時，不能用于文件查找的選項是. （D ） A文件名 B文件修改日期 C文件大小 D文件讀寫

4、的權限屬性11在Windows XP的“控制面板”中不能設置的項目是. （ D） A日期和時間 B.添加或刪除程序 C輸入法 D.Outlook電子郵件賬戶12在Word2003編輯狀態下，編輯化學反應方程式Fe+2HClFeCl2+H2,必須使用的命令是.（B ）A編輯-查找 B字體-下標 C插入-圖示 D格式-段落13在Word2003中，哪個命令不會出現在“表格”菜單里. .（C ）A公式 B排序 C插入 D自動套用格式14在Word2003文檔中，選中“使用通配符”，在“多”與“體”之間只有一個字符，將所有“多”與“體”之間字符都替換為“媒”，最優的方法是.（A ）A查找“多?體”，替

5、換成“多媒體”B查找“多×體”，替換成“多媒體” C分別查找中間字符，替換成“媒”D查找“多*體”，替換成“多媒體”15在Excel2003文檔中，對分數進行高級篩選，如果條件是“語文、數學、外語僅一門不及格”，則下述條件區域表示正確的是.（ D）語文數學外語<60>60>60A B語文數學外語>60>60<60 C D 語文數學外語<60<60<60語文數學外語<60>=60>=60>=60<60>=60>=60>=60<6016打開Excel2003工作簿，在單元格中輸入內

6、容 2013-4-1，要在其下面單元格內連續出現“日”的遞增,不正確的操作是.（B ）A選中內容單元格及要填充的區域，點擊編輯菜單，選擇填充-序列，選中按日期-日-確定B選中內容單元格，按住Ctrl鍵，然后拖動向下填充句柄進行填充C選中內容單元格，直接拖動向下填充句柄進行填充 D選中內容單元格，在下面填寫“2013-4-2”，選中“2013-4-1”、 “2013-4-2” 兩個單元格，拖動填充句柄進行填充17在Excel2003中，下列哪種操作不能輸入條件表達式.（C ）A高級篩選 B自動篩選 C分類匯總 D條件格式18在Visual Basic中，Print Len("ABab河

7、北")的值是.（B ） A4 B. 6 C. 8 D.1219在Visual Basic中，當窗體被裝載時觸發的事件是.（ C） AUnload B.Click C.Load D.DblClick20Visual Basic中決定對象是否可見的屬性是.（ D）AEnabled BSee C. Name D.Visible21 Visual Basic中聲明數組 Dim A(1 to 100,-3 to 4),則Ubound(A,2)的值是（D ）A. 1 B. 100 C. -3 D422關于Visual Basic中控件屬性的說法不正確是.（D ） A控件都有Name屬性 B有些控

8、件有相同的屬性C每個控件規定了一個默認屬性，在對控件的這個屬性進行操作時可不寫屬性名 D同一窗體中的同類控件，它們的屬性值都一樣23在Visual Basic中，關于對象的說法正確的是.（D ） A.程序運行時所有對象的位置不能改變 B.所有對象的大小都是可以改變的 C.對象在程序運行時都是可見的 D.有些對象中還可以包含其它對象24在Visual Basic中，語句Print Mid("ABCDEFG", 2, 3) = "123"的輸出結果 是.（A ） A. False B. True CA123EFG D. 12325.下面Visual Basi

9、c表達式不合法的是.（C ） A. "12"+12 B. "ab"+"12" C."ab"+12 D.Now+126在Visual Basic程序運行過程中可以用來輸入文本的函數是. .（B ） A. Msgbox B. Inputbox C. Rnd D. 文本框27執行下面Visual Basic程序，最后輸出s的值是 D Dim a As Integer, i As Integer Dim b As Integer, j As Integer Dim s As Integer a = 5 b = 10 s =

10、 0 For i = 1 To a b = 5 For j = 1 To b s = s + b b = b - 1 Next j Next i Print sA. 15 B. 30 C. 45 D. 7528在Visual FoxPro中，以下關于關系模型的敘述錯誤的是.（B ）A構成關系模型的二維表中不允許有重復的字段名 B構成關系模型的二維表中同一列數據可以有不同的數據類型C構成關系模型的二維表中不允許有完全相同的記錄D在關系模型中數據被組織成二維表29在Visual FoxPro中，定義菜單標題，設置菜單訪問鍵時，需要在訪問鍵代表字母前加字符.（ A ）A. - B. > C.

11、< D. -30下列關于Visual FoxPro中報表的敘述，正確的是.（ D ）A在報表設計器中每個帶區的大小是不可以改變的B報表數據源只能是數據庫表C如果報表需要按照某一字段值的大小順序輸出，則相應的表或視圖必須按該關鍵字段索引D. 報表的“頁標頭”帶區的內容每條記錄打印一次 31在Visual FoxPro中，以下關于視圖的描述中正確的是.（ A ）A. 視圖和查詢的最大區別在于視圖可以對源表中的數據進行更新B. 視圖文件的擴展名為 .pqrC. 視圖只能從一個表派生出來D. 視圖不能檢查更新的合法性32在Visual FoxPro中，項目文件的默認擴展名為.（B ）A. .SC

12、R B. .PJX C. .MPR D. .MNX33在Visual FoxPro中，關于查詢的敘述錯誤的是.（ B ）A. 在查詢設計器中的“雜項”選項卡中可以指定是否包含重復記錄以及列在前面的記錄個數或百分比B. 查詢結果保存在數據庫中C. 在查詢去向中，臨時表是將查詢結果保存在一個臨時表中，關閉表時自動清除D. 查詢設計器中，“篩選”選項卡的作用是指定查詢記錄的條件34在Visual FoxPro中，建立索引的INDEX命令的參數中，表示建立唯一索 引的是.（ D ）ACANDIDATE B. ASCENDING C. DISTINCT D. UNIQUE35在Visual FoxPro

13、中，下列表達式中運算結果為“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以下各項中哪個是數據通訊系統的主要技術指標.（

14、C ） A. 壓縮率 B. 分辨率 C. 傳輸速率 D. 時鐘主頻37下列計算機網絡拓撲結構中，一般不在局域網中使用的是. （D ） A. 總線型結構 B. 星型結構 C. 環型結構 D. 分布式結構38在通信系統中，把來自許多信號源的信號組合起來，再通過一條傳輸線路同時發送的技術稱為. . （B ） A. 多路分解 B. 多路復用 C. 并行通信 D. 同步傳輸39在TCP/IP傳輸層的協議數據首部，依據下列哪個字段來確定通信雙方主機內發送或接收數據的應用進程. . . （D ） A. 序號 B. 確認號 C. IP地址 D. 端口號40OSI參考模型中，數據鏈路層處理的協議數據單元為. .

15、 （ D） A. 數據段 B. 比特 C. 報文 D. 數據幀41下列關于TCP/IP協議描述錯誤的是.（D ） A. 起源于ARPANET B. 是目前Internet事實上的國際標準和工業標準 C. TCP/IP協議的發展是先定義完整理論框架，再實現相應協議 D. 網際層只提供無連接的數據報服務42下面關于TCP協議的特性描述錯誤的是. （D） A. 面向連接 B. 提供數據傳輸的可靠性保證 C. 具有差錯檢驗和流量控制功能 D. 提供數據格式轉換功能43在電子郵件服務中，郵件服務器之間轉發郵件使用的協議是.（B ） AHTTP BSMTP CPOP3 DIMAP44網絡操作系統的基本任務

16、是.（D ） A. 屏蔽本地資源與網絡資源之間的差異 B. 管理網絡系統的共享資源 C. 為用戶提供基本的網絡服務功能 D. 以上全是45. 在以太網中，設備之間使用非屏蔽雙絞線進行連接，則設備的硬件接口是 .（B ） A. RJ-11接口 B. RJ-45接口 C. BNC接口 D. AUI接口46. 以下網絡設備中，在OSI參考模型工作層次和網橋相同的是. （A ） A. 交換機 B. 路由器 C. 集線器 D. 中繼器47. WWW服務器的域名為，文件file1.rar放置在服務器的根目 錄下，服務器的主目錄為D:dir，則使用Internet Explorer瀏覽器訪問該文件 使用的U

17、RL為.（B） 48“非對稱數字用戶線路”的簡稱是.（B ） AISBN BADSL CDDN DATM49校園網內的一臺計算機訪問外部網絡的服務器時，使用域名訪問失敗，而使用IP 地址訪問成功，造成這種故障的原因可能是.（ C ） A該計算機的網絡斷開 B被訪問的外部服務器網絡斷開 C該計算機的DNS服務器設置有誤 D該計算機與DNS服務器不在同一子網50當前Internet流行的P2P（peer-to-peer，對等網絡）模式的網絡應用淡化了計 算機網絡服務提供者與服務使用者的界限。和傳統的C/S模式的網絡應用不同，P2P 模式以“非中心化”的方式使得更多的用戶計算機同時身兼客戶機與服務器

18、的雙重 身份，將互聯網推向了一個新的階段。使用P2P模式進行通信的網絡主機節點之間 使用對等的方式，通過直接交換信息來共享計算機資源。以下網絡應用使用P2P模 式的是.（C ） ADNS BWeb CBitTorrent DFTP第卷（非選擇題 共140分）二、判斷題（本大題14小題，每小題1分，共14分。將答案填涂在機讀卡上，正確的填涂“”格，錯誤的填涂“×”格）1一般情況下，光盤比硬盤讀取速度慢。 （ T ）2計算機處理數據快慢和CPU主頻無關。 （ F ）3在Windows XP中，如果希望某個文件不能被刪除，可將它的屬性設置為“只讀”。 （ T ）4在Windows XP中，

19、鼠標右鍵單擊不同的對象，彈出的快捷菜單都是相同的。 （ F ）5在Word2003編輯狀態下，可以對文字進行動態效果設置。 （ T ）6在Word2003打印對話框中，打印“8頁至18頁與25頁”，在頁碼范圍輸入“8-18；25”。 （ F ）7在Excel2003文檔中，工作表刪除后能夠通過“撤銷”操作恢復工作表。（ F ）8在Excel2003工作表中，不可以對沒有合并過的單元格進行拆分。 （ F ） 9在Visual Basic中，不同模塊中的變量可以重名。 （ T ）10在Visual FoxPro中，使用PACK命令將刪除當前表中全部記錄。 （ F ）11全雙工通信方式中，信息可以向

20、兩個相反方向傳送，但是不能同時進行。 （ F ）12計算機網絡中，通信雙方的對等層必須使用相同的協議。 （ F ）13決定局域網性能的三要素是：網絡拓撲、傳輸介質和介質訪問控制方法。 （ T ）14在數據通信中，將數字信號變換為模擬信號的過程稱為解調。 （ F ）三、填空題（本大題共13小題，每小題2分，共26分。請將答案填寫在答題紙上）1按照計算機所處理的信號進行分類，可以分為模擬式計算機和 數字 式計算機。2中央處理器（CPU）包括運算器和 控制 器。3把二進制數 525 H。 4如果需要設置Windows XP中窗口的色彩方案、字體大小等屬性，可用鼠標右鍵單擊桌面空白處，在快捷菜單中選擇

21、“屬性”選項打開“顯示 屬性”對話框后，點擊 外觀 標簽進行設置。5在Word2003中，如果對表格中的數值進行計算，則需要點擊“表格”下 的 排序 。 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）結果為 。7在Visual Basic中，當設置文本框的PasswordChar屬性為"*",程序運行后在 文本框中輸入"123"，則用Print輸出文本框的內容時顯示的是 123 。（

22、填寫結果時不要加雙引號）8Visual Basic表達式(10 < 8) And (10 > 8) Or (5 > 4) And (-3 < 3)的值 是 True 。9在Visual FoxPro中，用于指定組合框中數據來源的屬性是 rowsouce 。 10在Visual FoxPro中，? IIF(len(rtrim("my " -"book")>6,1,-1) 的輸出是 -1 。 11計算機網絡協議的三要素中，用于定義每部分控制信息和數據所代表含義的 是 語義 。 12標準的B類IP地址的網絡地址部分為 16 位二進

23、制值。 13用戶使用Windows XP接入Internet，需要配置的TCPIP主要參數是IP地 址、 子網掩碼 、默認網關和DNS。四、根據已知的環境與題意，寫出相應的Visual FoxPro操作命令或SQL語句，要求每小題用一條命令或語句完成（本大題共5小題，每小題4分，共20分，請填寫在答題紙上）。現有數據庫BOOKGL.DBC，其中包含表“books.dbf”，“books.dbf”結構為：圖書編號(C,4)、書名(C,30)、出版社(C,20)、出版日期(D)、價格(N,8,2)、作者(C,10)，頁數（N,4）。在相應數據庫和表已打開的前提下，寫出完成下述功能的命令。1邏輯刪除

24、所有出版社為“清華大學出版社”、價格大于35的記錄。（用Visual FoxPro命令） 2. 以“圖書編號”為關鍵字建立降序的候選索引，索引名為BH。(用Visual FoxPro命令） 3將“books.dbf”中所有“頁數”大于300的圖書“價格”增加10。（用SQL語句） 4在數據庫BOOKGL.DBC中建立表AUTHORS.DBF（作者編號（C,4)，作者姓名(C,10)，所在城市（C,20），聯系電話（C,15），作者性別(C,2)），設置“作者編號”字段為主索引，并對“作者性別”字段的輸入值限制為只能是“男”或“女”，否則提示“性別輸入錯誤！”（用SQL語句） 5查詢books.

25、dbf表中 “價格”大于28的記錄，包括“書名”、“出版社”，“價格” 字段內容，按“價格”字段降序排列，結果保存到文本文件GAO.txt中（用SQL語句） 五、程序分析（本大題共2小題，每小題5分，共10分，讀程序并分析結果，請填寫在答題紙上）1運行下面的Visual Basic程序，輸出結果中有幾個偶數_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

26、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程序如下:程序的功能是計算用數學表達式描述 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 WIT

27、H 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六、寫出下列程序的運行結果（本大題共5小題，每小題5分，共25分，請填寫在答題紙上）1分析下面Visual Basic程序段。窗體中有一命令按鈕（名稱為C6_1）。(5分)Private Sub C6_1_Click()Dim i As IntegerDim

28、 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窗體啟動后單擊命令按鈕，輸出w的值為 20 。2下面Visu

29、al Basic程序段，是對順序文件進行操作。(5分)Open "c6_2.txt" For Output As #1Print #1, "k1" "k2" "k3"Print #1, "12" "34" "56"Print #1, "p1" "p2" "p3"Print #1, "88" "99" "77"Close #1Open &q

30、uot;c6_2.txt" For Input As #1Seek #1, 10Line Input #1, scorePrint scoreClose #1程序運行后，Print score輸出結果是 23456 。3在Visual FoxPro的表單上添加兩個文本框，一個Name屬性為：Text1，另一個Name屬性為：Text2，添加一個命令按鈕，其Name屬性為：Command1，Caption屬性為：確定。Command1的Click事件代碼如下：xa=VAL(TRIM(ThisForm.Text1.value)n=LEN(TRIM(ThisForm.Text1.value

31、)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) % 2<>0 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)

32、ENDFORThisForm.Text2.value=STR(t)運行上面的表單，在Text1文本框中輸入：23456789，單擊“確定“按鈕，在Text2文本框中顯示的是 4208 。第4、5題使用下面的數據庫設有數據庫文件BGGL.DBC，包含3個表，分別是KEFANG、RUZHU、KEHU。其中KEFANG的結構為：客房號(C，4)、類型(C，10)、價格(N，4，0)，RUZHU的結構為：客房號(C，4)、客戶號(C，4)、入住日期(D)，退房日期（D）,KEHU的結構為：客戶號(C，4)、姓名(C，8)、性別(C，2)、工作單位（C，20）；各表中數據如下：KEFANG.DBF記錄號

33、客房號類型價格1 1101 普通客房 2802 1102 貴賓客房 5003 1201 總統套房 20004 1202 總統套房 15005 1301 普通客房 2806 1302 貴賓客房 600RUZHU.DBF記錄號客房號 客戶號 入住日期 退房日期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記錄號客戶號 姓名 性別 工作單位1

34、 1001 王林 男 AA商貿公司2 1002 劉月明 女 BB電子公司3 1003 姚曉敏 女 CC農產品公司4 2001 肖敏 女 DD商貿公司5 2002 黃小兵 男 EE電子公司4. 有如下Visual FoxPro程序： OPEN DATABASE BGGLUSE KEHUACCEPT "請輸入客戶姓名：" TO XMINDEX ON 姓名 TAG XMH OF XMSEEK XMKEHUH=客戶號SELECT 1USE RUZHUGO TOPDO WHILE NOT EOF() IF 客戶號=KEHUH KEFANGH=客房號 NM=退房日期-入住日期+1 SE

35、LECT 2 USE KEFANG DO WHILE NOT EOF() IF 客房號=KEFANGH S=價格*NM EXIT ENDIF SKIP ENDDO EXIT ENDIF SKIPENDDO?S運行上面的程序，輸入“姚曉敏”，顯示的結果是： 18000 。5. 有如下Visual FoxPro程序：（代碼中行末的分號為邏輯行連接符）OPEN DATABASE BGGLACCEPT "請輸入客房類型名：" TO KFLXSELECT 客房號 FROM KEFANG WHERE 類型=KFLX INTO DBF KFALTER TABLE KF ADD XX C(

36、8)ALTER TABLE KF ADD TH N(3,0)SELECT RUZHU.客房號 AS 客房號,KEHU.姓名 AS 姓名,(RUZHU.退房日期;-RUZHU.入住日期+1) AS 天數 FROM RUZHU,KEHU WHERE RUZHU.客戶號=;KEHU.客戶號 INTO DBF KHUSE KHDO WHILE NOT EOF() KFH=客房號 XM=姓名 TSH=天數 UPDATE KF SET XX=XM,TH=TSH WHERE 客房號=KFH SKIPENDDOSELECT KEFANG.類型,KEFANG.客房號,KF.XX,TH*KEFANG.價格 AS

37、TJ;FROM KEFANG,KF WHERE KEFANG.客房號=KF.客房號 INTO DBF JGUSE JGDO WHILE NOT EOF() ?客房號,XX,TJ SKIPENDDO1101 王林 840運行上面的程序，輸入“普通客房”，顯示的結果是： 1301 黃小兵 2520 。 七、Visual Basic程序改錯(本大題共有兩個小題，每題5分，共10分，每個程序有兩個錯誤行，請在答題紙上寫出錯誤行和對應的正確行，改對一處得一處分，改錯不扣分) 1下面的程序是利用隨機函數產生10個10到100之間的隨機整數，并按由小到大的順序放入數組a中。(提示：題目中的語句Goto x是

38、轉移到標號x位置執行)程序中有兩處錯誤，請將錯誤行和相應的正確行寫在答題紙橫線上。 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)

39、 = a(m) A（M）=A（M-1）Next ma(j) = num GoTo 1030:For i = 1 To 10 Print a(i);Next iPrint 2窗體中（如圖所示）有一個定時器控件（名稱Timer1），有三個標簽（Caption屬性分別是滾動條、組合框、列表框），一個滾動條（名稱HS1，Min和Max的屬性初值分別為0和5，Value初值為0），一個組合框（名稱Combo1），一個列表框（名稱List1），組合框和列表框初始為空，一個框架，框架中有兩個復選框（名稱分別為Check1和Check2，Caption屬性如圖所示）。程序的功能是：窗體啟動后，定時器開始工作，

40、工作時每隔3秒鐘觸發一次事件，Timer事件中完成4項工作：（1）滾動條的值加1；（2）往組合框中添加滾動條的Value值；（3）調用Combo1_Change過程；（4）當滾動條的值為5時定時器停止工作。在Combo1_Change過程中，要將滾動條當前值加上復選框中當時所有選中項的標題添加到列表框中，Combo1_Change過程中只給出了部分程序，省略的程序都是正確的。程序中有兩處錯誤, 請將錯誤行和相應的正確行寫在答題紙橫線上。 Private Sub Combo1_Change()List1.AddItem HS1.ValueIf Check1.Value = True Then 1

41、List1.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個空，每空5分，共35分，按程序要求在答題紙上填入相應的內容，使程序完整正確）1下面程序運行時輸入長度少于20個字符的

42、字符串，以“#”結束，然后對字符串從左端進行處理。處理方式：把數字和非數字內容分別放入兩個數組，數組a存放數字，數組b存放非數字，存放時把相鄰的數字或非數字內容作為一個整體進行存放，如輸入的字符串為“12abc3d456ef#”,則12、3、456分別存放到數組a的前三個元素中，”abc”中，”abc”、”d”、”ef”分別存放到數組b的前三個元素中。請填空。(Visual Basic題)Dim a(20) As IntegerDim b(20) As StringDim c As StringDim i As IntegerDim j As IntegerDim w1 As StringDi

43、m w2 As StringDim m As IntegerDim n As Integerc = InputBox("請輸入c$=", "輸入數據")c = Trim(c)w1 = Left(c, 1)c = Mid(c, 2)Do While w1 <> "#" If w1 >= "0" And w1 <= "9" Then w2 = Left(c, 1) c = Mid(c, 2) Do While w2 >= "0" And w2 <

44、;= "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 <= "9" Then a(i) = w1 i = i + 1Else If_(2) Not (w2 >= "0" And w2 <= "9")_ Then b(j) = w1 j = j + 1 End IfEnd IfFor m = 0 To i - 1 Print a(m);Next mF