電大《VisualBasic程序設(shè)計(jì)》形考作業(yè)任務(wù)01-06網(wǎng)考試題及答案

1、最新電大（VisualBasic程序設(shè)計(jì)形考作業(yè)任務(wù)01-06網(wǎng)考試題及答案100%通過(guò)考試說(shuō)明：VisualBasic程序設(shè)計(jì)形考共有6個(gè)任務(wù)。任務(wù)1至任務(wù)2是客觀題，其它為主觀題。任務(wù)1至任務(wù)6 需在考試中多次抽取試卷，直到出現(xiàn)01任務(wù)_0001> 02任務(wù)_0001、03任務(wù)_000R 04任務(wù)_0004、05任務(wù)_0001、06 任務(wù)_0001試卷，就可以按照該套試卷答案答題。做考題時(shí)，利用本文檔中的查找工具，把考題中的關(guān)鍵字輸?shù)讲檎夜?具的查找內(nèi)容框內(nèi)，就可迅速查找到該題答案。本文庫(kù)還有其他教學(xué)考一體化答案，敬請(qǐng)查看。01任務(wù)01 任務(wù) _0001一、單項(xiàng)選擇題（共25道試題，

2、共50分。）1. 啟動(dòng)VB后，就意味著要建立一個(gè)新（）。A. 窗體B. 程序C. 文件D. 工程2. 應(yīng)用程序打包后，其包文件的后綴為（）。A. . exeB. . cabC. . txtD. . ocx3. 當(dāng)一個(gè)工程中含有多個(gè)窗體時(shí)，其中的啟動(dòng)窗體是（）。A. 啟動(dòng)VB時(shí)創(chuàng)建的第一個(gè)窗體B. 第一個(gè)添加的窗體C. 最后一個(gè)添加的窗體D. 在“工程屬性”對(duì)話框中指定的窗體4. 下列說(shuō)法中錯(cuò)誤的是（）oA. 應(yīng)用程序的界而是窗體B. 應(yīng)用程序的界面是對(duì)象C. 每個(gè)應(yīng)用程序都要生成一個(gè)工程D. 一個(gè)應(yīng)用程序由若干個(gè)VisualBasic文件組成5. 每建立一個(gè)窗體，工程管理器窗口中就會(huì)增加一個(gè)（

3、）oA. 工程文件B. 窗體文件C. 標(biāo)準(zhǔn)模塊文件D. 類模塊文件6. 當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的（）事件過(guò)程。A. LoadB. ClickC. UnloadD. GotFocus7. VB集成開(kāi)發(fā)環(huán)境中，提供控件的窗口是（）。A. 工具欄B. 工具箱C. 屬性窗口D. 工程管理器8. 確定一個(gè)窗體或控件的大小的屬性是（）oA. Top 或 LoftB. Top 和 LoftC. Width 或 HeightD. Width 和 Height9. 下列關(guān)于窗體的說(shuō)法不正確的是（）。A. 窗體的標(biāo)題由Caption屬性確定B. 窗體的Name屬性與Caption屬性相同C. 窗體的背

4、景圖片由其Picture屬性設(shè)定D. 通過(guò)設(shè)置Icon屬性可使窗體獲得最小花時(shí)的圖標(biāo)10. 在VB中，要想快速獲得某個(gè)相關(guān)控件或語(yǔ)句的幫助信息，一般可首先選中該控件或語(yǔ)句，然后按的鍵是（）A. HelpB. FlC. F10D. Enter11. 下列關(guān)于屬性設(shè)置的敘述錯(cuò)誤的是（）。A. 一個(gè)控件具有什么屬性是VisualBasic預(yù)先設(shè)計(jì)好的, 用戶不能改變B. 一個(gè)控件具有什么屬性是VisualBasic預(yù)先設(shè)計(jì)好的， 用戶可以改變C. 一個(gè)控件的屬性既可以在屬性窗口中設(shè)置，也可以用程 序代碼設(shè)置D. 一個(gè)控件的屬性在屬性窗口中設(shè)置后，還可以利用程序 代碼為其設(shè)置新值12. 在界面設(shè)計(jì)時(shí)，

5、雙擊窗體中的對(duì)象后，VisualBasic 將顯示的窗口是（）。A. 立即窗口B. 屬性窗口C. 代碼窗口D. 工程資源管理器窗口13. 當(dāng)使用上下文相關(guān)的幫助時(shí)，選擇要幫助的內(nèi)容，然 后按（）鍵，就可出現(xiàn)MSDN窗口直接顯示所需的幫助信 息。A. HelpB. F10C. EscD. Fl14. 如果想讓文本框中的內(nèi)容在運(yùn)行時(shí)不能編輯，需將文 本框的（）屬性設(shè)置為True。A. LockedB. MultiLineC. TabStopD. Visible15. 在VB6.0集成開(kāi)發(fā)環(huán)境中，可以（）。A. 編輯、調(diào)試、運(yùn)行程序，但不能生成可執(zhí)行文件B. 編輯、生成可執(zhí)行文件，運(yùn)行程序，但不能調(diào)

6、試程序C. 編輯、調(diào)試、生成可執(zhí)行文件，但不能運(yùn)行程序D. 編輯、調(diào)試、運(yùn)行程序，也能生成可執(zhí)行文件16. VisualBasic應(yīng)用程序處于執(zhí)行模式時(shí)，這時(shí)（）。A. 既不能設(shè)計(jì)界而，也不能編寫代碼B. 可以編輯代碼，不能設(shè)計(jì)界面C. 可以設(shè)計(jì)界而，不能編輯代碼D. 既能設(shè)計(jì)界面，也能編寫代碼17. 要改變控件的寬度，應(yīng)該修改控件的（）屬性。A. TopB. LeftC. WidthD. Height18. Tinier控件只有一個(gè)事件，該事件的名稱是（）A. LoadB. TimerC. ClickD. Run19. 要在命令按紐上顯示圖形，應(yīng)首先設(shè)置的屬性是（）A. EnabledB.

7、StyleC. CaptionD. Icon20. 后綴為.fm的文件表示VB的（）。A. 窗體文件B. 類模塊文件C. 工程文件D. 標(biāo)準(zhǔn)類模塊文件21. 無(wú)論何種控件，共同具有的屬性是（）A. TextB. NameC. CaptionD. ForeColor22. 多窗體程序是由多個(gè)窗體組成，在缺省情況下，VB在 應(yīng)用程序執(zhí)行時(shí)，總是把（）指定為啟動(dòng)窗體。A. 不包含任何控件的窗體B. 設(shè)計(jì)時(shí)的第一個(gè)窗體C. 包含控件最多的窗體D. 命名為Frml的窗體23. 要改變控件的高度，應(yīng)該修改控件的()屬性。A. TopB. LeftC. WidthD. Height24. VisualBas

8、ic是一種而向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，構(gòu)成 對(duì)象的三要素是()oA. 屬性、控件和方法B. 屬性、事件和方法C. 窗體、控件和過(guò)程D. 控件、過(guò)程和模塊25. 對(duì)于定時(shí)器(Timer)控件，設(shè)置其定時(shí)是否開(kāi)啟的屬 性是()A. IndexB. TagC. EnabledD. Left二、作品題(共2道試題，共50分。)1.設(shè)計(jì)一個(gè)簡(jiǎn)單的倒計(jì)時(shí)程序，要求：新5力IT無(wú)(1) 在文本框中輸入倒計(jì)時(shí)的分鐘數(shù)后，單擊開(kāi)始按紐 就開(kāi)始倒計(jì)時(shí)，倒計(jì)時(shí)結(jié)束時(shí)，彈出“時(shí)間到”的信息框。程序運(yùn)行界而如圖5所示：(2) 將應(yīng)用程序打包，并安裝運(yùn)行。注意：存盤時(shí)保存在以學(xué)號(hào)或姓名命名的文件夾下，工程 文件名為vbxkl

9、-05. vbp,窗體文件名為vbxkl-05. frm, 文件夾名為vbxkl-05o參考答案：程序代碼如下：DimttAsIntegerPr i vat eSubCommand 1_C lickOLabel 1. Caption=/現(xiàn)在開(kāi)始倒計(jì)時(shí)Command1. Visible=FalseTimerl. Enabled=Truett=Val(Textl)*60EndSubPrivateSubTimerl_Timer()tt=tt-lTextl=ttIftt=0Thena二MsgBox(時(shí)間到! , vbOKOnly,"倒計(jì)時(shí)")Command1. Visible=Tr

10、ueTimerl. Enabled=FalseEndlfEndSub2.在名稱為Forml的窗體上畫兩個(gè)文本框，其名稱分別為 Textl和Text2,它們的高、寬分別為300、2400和1200、 2400o窗體的標(biāo)題為“窗口”。請(qǐng)通過(guò)屬性窗口設(shè)置適當(dāng) 的屬性滿足以下要求：1) Text2可以顯示多行文本，且有垂直和水平兩個(gè)滾動(dòng) 條；2) 運(yùn)行時(shí)在Textl中輸入的字符都顯示為“*” o 運(yùn)行后的窗體如圖1所示。注意：存盤時(shí)保存在以學(xué)號(hào)或姓名命名的文件夾下，工程 文件名為vbxkl-01. vbp,窗體文件名為vbxkl-01. frm, 文件夾名為vbxkl-01 o參考答案：程序代碼如下：

11、PrivateSubTextl_MouseDown(ButtonAsInteger, ShiftAs Integer, XAsSingle, YAsSingle)IfButton=2ThenPopupMenuFormatEndlfEndSubPrivateSubMl_Click()Textl. FontBold=TrueEndSubPrivateSubM2_Click()Textl. FontItalic=TrueEndSubPrivateSubM3_Click()Textl. FontUnder1ine=TrueEndSub02任務(wù)02 任務(wù)_0001一、單項(xiàng)選擇題(共25道試題，共50分。

12、)1. 能夠?qū)崿F(xiàn)“窗體總在最前端”界面效果的API函數(shù)是()oA. SetWindowPosB. SetWindowAPID.DeclareAPI2. 在窗體上畫兩個(gè)文本框（其Name屬性分別為Textl和Texl2）和一個(gè)命令按鈕（其Name屬性為Command 1），然 后編寫如下事件過(guò)程：PrivateSubCommandl_Click（）x=l:n=0DoWhilex<100x=x*10n=n+lLoopTextl. Text二Str （n）Text2. Text二Str （x）EndSub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分 別為（）。A. 10 和 0B. 2

13、和 100C. 3 和 50D. 4 和 1683. 下而程序段的循環(huán)結(jié)構(gòu)執(zhí)行后，i的輸出結(jié)果是（）。Fori=lTolOStep2y=y+iNextiPrintiA. 25B. 10C. 11D. 因?yàn)閥的初值不知道，所以不確定4. 把字符串型轉(zhuǎn)換為數(shù)值型需要使用的函數(shù)是（）。A. VaiB. StrC. SetWindowShapeD. ChrC. Asc5. 以下可以作為VisualBasic變量名的是()。A. SINB. C01C. COS (X)D. X (-1)6. 可通過(guò)設(shè)置一普通窗體的何種屬性，將它轉(zhuǎn)變成MDI子窗體()。A. MDIChild=TrueB. WindowSt

14、ate=NormalC. MDIChild=FalseD. WindowState=Maximized7. 下列關(guān)于過(guò)程敘述不正確的是()oA. 過(guò)程的傳值調(diào)用是將實(shí)參的具體值傳遞給形參B. 過(guò)程的傳址調(diào)用是將實(shí)參在內(nèi)存的地址傳遞給形參C. 過(guò)程的傳值調(diào)用參數(shù)是單向傳遞的，過(guò)程的傳址調(diào)用參 數(shù)是雙向傳遞的D. 無(wú)論過(guò)程傳值調(diào)用還是過(guò)程傳址調(diào)用,參數(shù)傳遞都是雙 向的8. 數(shù)學(xué)式子Sin30°寫成VB表達(dá)式是()。A. Sin30B. Sin (30)C. SIN (30° )D. Sin (30*3. 14/180)9. “x是小于80的非負(fù)數(shù)”，用VB表達(dá)式表示正確的是 (

15、)oA. 0£x<80B. 0<=x<80C. 0<=xAndx<80D. 0<=x0rx<8010. 下而正確的賦值語(yǔ)句是()oA. x+y=30B. y二p*r*rC. y=x+30D. 3y=x11 .事件的名稱()。A. 都要由用戶定義B. 有的由用戶定義，有的由系統(tǒng)定義C. 都是由系統(tǒng)預(yù)先定義D. 是不固定的12. 如果要在窗體代碼編輯器的“通用”部分定義私有Sub過(guò)程，則正確的語(yǔ)句是()。A. PublicSubB. PrivateSubC. PublicFunctionD. PrivateFunction13. 如果僅需要得到當(dāng)

16、前系統(tǒng)時(shí)間，則可以使用哪個(gè)函數(shù)( )。A. TimeB. YearC. NowD. Date14. 賦值語(yǔ)句：a=123+MID( "123456”，3,2)執(zhí)行后，a 變 量中的值是()。A. 123B. 34C. 12334D. 15715. DimA(lTo6, 6)AsString定義的數(shù)組包含的元素個(gè)數(shù)是 ()oA. 36B. 49C. 42D. 5016. VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的3種基本結(jié)構(gòu)，這3種基 本結(jié)構(gòu)是()oA. 遞歸結(jié)構(gòu)，選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)B. 選擇結(jié)構(gòu)，過(guò)程結(jié)構(gòu)，順序結(jié)構(gòu)C. 過(guò)程結(jié)構(gòu)，輸入、輸出結(jié)構(gòu)，轉(zhuǎn)向結(jié)構(gòu)D. 選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)，順序結(jié)構(gòu)17. 要退

17、出DoLoop循環(huán)，可使用的語(yǔ)句是()語(yǔ)句。A. ExitB. ExitForC. EndDoD. ExitDo18. 如果希望以模態(tài)方式顯示窗體Forml,下列正確的語(yǔ) 句是O。A. Forml. ShowOB. Forml. ShowC. Forml. ShowlD. Forml. ShowO, 119. 表達(dá)式6+10Mod4*2+l的值是()。A. 9B. 11C. 1D. 320. 下列4項(xiàng)中合法的變量名是()。A. 45xyzB. SingleC. x-yzD. x_yz21. 在窗體上按下鼠標(biāo)左鍵時(shí)產(chǎn)生的事件是()A. KeyDownB. MouseUpC. MouseMoveD

18、. MouseDown22. 關(guān)于語(yǔ)句行，下列說(shuō)法正確的是()。A. 一行只能寫一條語(yǔ)句B. 一條語(yǔ)句可以分多行書寫C. 每行的首字符必須大寫D. 長(zhǎng)度不能超過(guò)255個(gè)字符23. 可通過(guò)何種屬性判斷List列表框控件的項(xiàng)目總數(shù)目 ()oA. ListindexB. ListCountC. ListTextD. Lisltem24.以下程序段的輸出結(jié)果為()。x=ly=4DoUntily>4x二x*yy=y+lLoopPrintxA. 1B. 4C. 8D. 2024. 把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是()oA. VaiB. StrC. AscD. Chr二、作品題(共2道試題，共5

19、0分。)1.創(chuàng)建一個(gè)多功能計(jì)算器程序，程序運(yùn)算界而如圖2-6所 示。要求：(1) 用控件數(shù)組設(shè)計(jì)數(shù)字按鈕(2) 用API函數(shù)實(shí)現(xiàn)“總在前而效果” 注意：存盤時(shí)保存在以學(xué)號(hào)或姓名命名的文件夾下，工程 文件名為vbxk203. vbp,窗體文件名為vbxk2-03. frm, 文件夾名為vbxk2-03o參考答案：程序代碼如下：OptionExplicitDimi(ITolOO)AslntegerPr i vat eSubCmd1_C1i ck()DimjAsIntegerOpenApp. Path&z，in. txtz/ForInputAs#lForj=lTolOOInputttl, i

20、(j)Textl. Text=Textl. Text&i(j)&Space(5)NextClosettlEndSubPrivateSubCmd2_Click()DimjAsIntegerDimkAsIntegerDimtempAsIntegerDimflagAsBooleanForj=lTolOOflag=FalseFork=lTolOO-jIfi(k)<i(k+l)Thentemp=i(k)i(k)=i(k+l)i (k+l)=tempflag=TrueEndlfNextIfNotflagThenExitForEndlfNextTextl. Text二Forj=lTol

21、OOTextl. Text=Textl. Text&i(j)&Space(5)Nextputdatai, 100EndSub2.編寫某市公用電話收費(fèi)程序，程序運(yùn)行界而如圖2-10所 示。收費(fèi)標(biāo)準(zhǔn)為：通話時(shí)間在3分鐘以下，收費(fèi)0.5元； 3分鐘以上,則每超過(guò)一分鐘加收0. 15元;在7:0019:00 之間通話，按上述收費(fèi)標(biāo)準(zhǔn)全價(jià)收費(fèi)，在其它時(shí)間通話者， 一律按收費(fèi)標(biāo)準(zhǔn)的半價(jià)收費(fèi)。要求程序運(yùn)行后，點(diǎn)擊“開(kāi)始通話”按鈕，在文本框textl 中以hh:mm:ss的形式顯示通話開(kāi)始的時(shí)間，點(diǎn)擊"結(jié)束 通話”按鈕，在文本框text2中，以hh:mm:ss的形式顯 示通話結(jié)束的時(shí)

22、間，點(diǎn)擊“計(jì)費(fèi)”按鈕，在text3中顯示 通話的分鐘數(shù)，在text4中顯示通話的費(fèi)用，點(diǎn)擊“清楚” 按鈕，清楚全部數(shù)據(jù)。注意：存盤時(shí)保存在以學(xué)號(hào)或姓名命名的文件夾下，工程 文件名為vbxk2-07. vbp,窗體文件名為vbxk207. frm, 文件夾名為vbxk2-07o參考答案：程序代碼如下：PrivateSubOptionl_Click()Textl. Alignment=0EndSubPr i vat eSubOpt i on2_Cli ck()Textl. Alignment=2EndSubPrivateSubOption3_Click()Textl. Alignment=lEnd

23、SubPrivateSubOption4_Click()Textl. FontName=，/宋體EndSubPrivateSubOption5_Click()Textl. FontName=/黑體"EndSub03任務(wù) 03 任務(wù)_00011. 在窗體上建立一個(gè)驅(qū)動(dòng)器列表框、目錄列表框、文件列 表框、圖片框、文本框。要求程序運(yùn)行后，驅(qū)動(dòng)器列表框 Drivel的默認(rèn)驅(qū)動(dòng)器設(shè)置為D盤，選擇Filel中所列的 圖片文件(*. bmp, *. gif和*. jpg),則相應(yīng)的圖片顯示在 圖片框Picturel中，文件的路徑顯示在文木框中。程序 運(yùn)行結(jié)果如圖3-1所示。91 Ai注意：存盤時(shí)保

24、存在以學(xué)號(hào)或姓名命名的文件夾下，工程文件名為vbxk301. vbp,窗體文件名為vbxk3-01. frm,文件夾名為vbxk3-01o參考答案：程序代碼如下：PrivateSubFilel_Click()IfFilel. ListCount>OThen'Command1. Enabled=TrueTextl. Text=Filel. Path+Filel. FileNameDimobjPicAsPictureSetobjPic=LoadPicture(Textl. Text)Picturel. Picture=objPicEndSubPr i vat eSubForm_Loa

25、d()Drivel. Drive=d:"Dirl. Path="d:Drivel. DriveDirl. RefreshFilel. Pattern二* jpg;*, bmp;*. gif (*. bmp, * gif, * jPg)Filel. Path=Dirl. PathEndSubPr i vat eSubDr i vel_Change()Dirl. Path二Drivel. DriveEndSubPr i vat eSubD i r1_Change()Filel. Path=Dirl. PathEndSub2. 利用文件系統(tǒng)控件編寫一個(gè)Word文件查找顯示程序，程

26、序運(yùn)行界而如圖3-2所示。要求：(1) 在文件列表框中只顯示后綴為.doc的文件。(2) 新創(chuàng)建一個(gè)標(biāo)準(zhǔn)工程，并通常“工程一部件”菜單 項(xiàng)引入"MicrosoftRichTextBoxControl6.0 ” ,將 RichTextBox控件添加到工具箱中，用這個(gè)控件顯示RTF 格式的Word文件。(3) 單擊打開(kāi)按鈕，在文本框中顯示RTF格式的Word文 件。Endlf注意：存盤時(shí)保存在以學(xué)號(hào)或姓名命名的文件夾下，工程 文件名為vbxk3-02. vbp,窗體文件名為vbxk302. frm, 文件夾名為vbxk3-02o參考答案：程序代碼如下：PrivateSubCommandl

27、_Click()DimwdAppAsNewWord. ApplicationDimwdDocAsWord. DocumentDimstrFileNameAsStringwdApp. Visible=FalsestrFileName二Filel. Path+Filel FileNameSetwdDoc=wdApp. Documents. Open(strFileName)wdDoc. SaveAsC: 臨時(shí)文件.rtf”, 6wdDoc.ClosewdApp. QuitRichTextBoxl. FileName=C: 臨時(shí)文件.rtf”Kill'c:臨時(shí)文件.rtf”EndSubPr

28、i vat eSu bD i rl_Change()Filel.Path=Dirl. PathEndSubPr i vat eSubDr i vel_Change()Dirl. Path=Drivel. DriveEndSub04任務(wù)04 任務(wù)_0004一、作品題(共1道試題，共100分。)1.開(kāi)發(fā)一個(gè)如圖4-1所示指針式時(shí)鐘程序。要求：(1)要求用Shap控件、Line控件和Label控件設(shè) 計(jì)表盤，用圖形方法動(dòng)態(tài)生成指針，用時(shí)鐘控件控制時(shí)鐘 的轉(zhuǎn)動(dòng)。(2)圓形表盤在窗體的中央，其直徑要求與窗體的高度 和寬度相等。注意：存盤時(shí)保存在以學(xué)號(hào)或姓名命名的文件夾下，工程文件名為vbxk4-01.

29、vbp,窗體文件名為vbxk402. frm,文件夾名為vbxk4-01o4-1程序運(yùn)行界面參考答案：程序代碼如下：Constpi=3. 141592653Pr i vat eSubForm_Load()Forml. Scale (-14,14)-(14, -14)EndSubPrivateSubTimerl_Timer() DimxAsInteger DimyAsIntegerDimsec, min, hrAsInteger sec=Second(Time) min=Minute(Time) hr=Hour(Time)Forml. CisForml. DrawWidth=2 x=9*Sin(

30、sec*pi/30) y=9*Cos (sec*pi/30)Forml. Line (0, 0)-(x, y), vbRedForml. DrawWidth=3 x=7*Sin(min*pi/30) y=7*Cos(min*pi/30)Forml. Line (0, 0)-(x, y) Forml. DrawWidth=4 hr=hr+min/60 x=6*Sin(hr*pi/6) y=6*Cos(hr*pi/6)Forml. Line (0, 0)-(x, y) EndSub05任務(wù)05 任務(wù)_0001一、作品題(共1道試題，共100分。)1.開(kāi)發(fā)一個(gè)成績(jī)查詢數(shù)據(jù)庫(kù)應(yīng)用程序。它具有數(shù)據(jù)增加

31、(Insert )> 修改(Update)、刪除(Delete )和查詢(Select) 功能。開(kāi)發(fā)步驟及要求：1 .準(zhǔn)備工作建立名稱為“vbxk5成績(jī)查詢”文件夾，在該文件夾下， 建立“圖標(biāo)”文件夾，在其中存入界面設(shè)計(jì)時(shí)所用圖標(biāo)。 開(kāi)發(fā)過(guò)程中的全部文件存放在“vbxk5 成績(jī)查詢”文件 夾中。2.建立成績(jī)查詢數(shù)據(jù)庫(kù)用MicrosoftAccess或SQLServer創(chuàng)建一個(gè)名稱為“成績(jī)” 的數(shù)據(jù)庫(kù)，其中包含三張數(shù)據(jù)表，即學(xué)生成績(jī)表、學(xué)生情 況表、課程情況表，如表5 3、表54、表55>表5 6所參考答案：程序代碼如下：一創(chuàng)建數(shù)據(jù)庫(kù)；createdatabasestudent; g

32、o-使用數(shù)、數(shù) 據(jù)庫(kù) usestudent; go 創(chuàng)建成績(jī)表 createtablestudentScore(stuidvarchar(10)primaryke y,學(xué)號(hào) cidvarchar (10),課程號(hào) socrevarchar (20)一 成績(jī))go 創(chuàng)建學(xué)生情況表 createtablestudentStatus(stuidvarchar(10)primaryk ey,stuNamevarchar(20) go- 創(chuàng)建課程情況表 createtablecurriculum(cidvarchar(10), cNamevarchar (50) go 添 加 記 錄 insertint

33、ostudentStatusvalues(' 001',' 張 紅 ')goinsertintostudentStatusvalues(' 002',' 李 強(qiáng) ')goinsertintostudentStatusvalues(' 003*,' 王 麗 ')goinsertintocurriculumvalues(* 001','數(shù)據(jù)庫(kù)原理 ')goinsertintocurriculum.06任務(wù)06 任務(wù)_0001一、作品題(共1道試題，共100分。)1.程序調(diào)試參考答案：程序

34、代碼如下：(1)根據(jù)如下所給程序代碼進(jìn)行程序調(diào)試Privat eSubCommand1_Click()Listl. AddltemText. TextEndSub排序按鈕的Click事件PrivateSubCommand2_Click()Dimi, jAsInteger'定義數(shù)組，以Listl的項(xiàng)目個(gè)數(shù)為數(shù)組維數(shù)DimstrList(Listl. ListCount)Aslnteger'定義中間臨時(shí)變量，用于數(shù)據(jù)交換DimstrTmpAsInteger'將Listl中的項(xiàng)目導(dǎo)入到strList數(shù)組中Fori=0ToListi. ListCountstrList(i)=L

35、istl. List(i)Nexti'按“冒泡”算法完成排序工作Fori=0ToUBound(strList)Forj=i+lToUBound(strList)IfstrList(i)>strList(j)ThenstrTmp=strList(i)strList(i)=strList(j)strList (j)=strTmpEndlfNext jNexti'將排序結(jié)果輸出到List2中Fori=OToUBound(strList)List2. AddltemstrList(i)NextiEndSub(2) 運(yùn)行程序，在Textl文本框中輸入一個(gè)整數(shù)，比如 1,然后點(diǎn)擊“添加”按鈕，此時(shí)會(huì)出現(xiàn)如圖6-5所示的 錯(cuò)誤提示。(3) 點(diǎn)擊“調(diào)試”