1、Visual Basic程序設計（開放本科補修）課程期末復習一、單項選擇題1. 如果要設置窗體的標題欄，應選擇（ B ）屬性。AVisibleBCaptionCNameDText2. 要使命令按鈕不響應用戶生成的事件，應設置命令按鈕的（ D ）屬性。AVisibleBCaptionCEnableDEnabled3. 要使標簽能透出窗體的背景，應設置標簽的（ A ）屬性。ABackStyleBBorderStyleCAppearanceDBackColor4. 以下控件中，（ A ）控件不會影響到界面設計效果。A計時器B文本框C標簽DLine控件5. 在Visual Basic中，一般（ B ）

2、屬性用來設置字體的顏色。AFontColorBForeColorCBackColorDShowColor6. 在VB中斷模式下，可用調試窗口監視表達式和變量的值，其中在（ A ）窗口中可以直接鍵入命令以顯示命令所請求的信息。A立即B.監視C.本地D.中斷7. 某計時器控件的interval屬性為0時，表示（ A ）。A計時器關閉計時CTimer事件的間隔時間為0毫秒BTimer事件的間隔時間為0秒D計時器啟動計時8. 在窗體Form1的Click事件過程中有以下語句：Label1.Caption="Visual Basic"若本語句執行之前，標簽控件的Caption屬性為默

3、認值，則標簽控件的Name屬性和Caption屬性在執行本語句之前的值分別為（ B ）。ALabel和Label BLabel1和Label1CLabel1和Visual BasicDLabel和Caption9. （ C ）控件不具有Caption屬性。ALabelBFormCTextBoxDCommandButton10. 改變控件在窗體中的上下位置，應設置控件的（ A ）屬性。ATopBLeftCWidthDRight11. 文本框中選定的內容，由下列（ C ）屬性反映。ATextBCaptionCSeltextDSelLenght12. 在Visual Basic中，變量的默認類型是（

4、 D ）。AStringBIntegerCDoubleDVariant13. 假設已定義Integer變量x、y，則以下賦值語句正確的是（ C ）。Ax + 1 = yBx := yCy = x + yD1 = x14. 、/、Mod、*四個算術運算符中，優先級別最低的是（ C ）。AB/CModD*15. 下列哪組語句可以將變量A、B值互換（ B ）。AA=C : C=B : B=A BA=A+B : B=AB: A=ABCA=B : B=ADA=(A+B)/2 : B=(A - B)/216. 以下語句的輸出結果是（ C ）。Print Format (32548.5,“000,000.0

5、0”)A32548.5B32,548.5C032,548.50D32,548.5017. 表達式4+5 6 * 7 / 8 Mod 9 的值是 （ B ）。A4 B5C6D718. 函數Int(Rnd*10)是在（ C ）范圍內的整數。 A（0, 10）B(0,10C0, 10）D0, 1019. 下面（ A ）運算符是算術運算符。 AModBLikeCAndDNot20. 已知三個變量A、B、C，判斷A、B、C能否構成三角形的邏輯表達式為（ B ）。AA >= B And B >= C And A >= C BA + C >= B And A + B >= C

6、And B + C >= ACA + C >= B Or A + B >= C Or B + C >= ADA + C >= B And A + B >= C Or B + C >= A21. 下面程序段運行后，顯示的結果是（ B ）。Dim intX As Integer If intX ThenPrint intX ElsePrint intX + 1End IfA0B1C2D不一定22. 以下程序的輸出結果是（ C ）。Dim a, i%, sum%a = Array(4, 3, 2, 1)For i = 0 To 3sum = sum + a(

7、i)Next iPrint sumA4B6C10D不一定23. 在過程中定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應使用（ D ）關鍵字在過程中定義局部變量。ADimBPublicCPrivateDStatic24. 能通過（ D ）來刪除列表框中的選擇項。AList屬性BText屬性CClear方法DRemoveItem方法25. ListBox中若沒有任何條目選中，其ListIndex屬性值為（ A ）。A-1B0C1D任意26. 可通過（ C ）屬性判斷ListBox列表框控件的項目總數目。AListIndexBListTextCListcountD隨機數27. 列

8、表框的（ B ）屬性用于返回或設置列表框中各列表項的文本。ASelectedBListCTextDCaption28. 設List1為列表框控件，List1.Clear中的Clear是（ A ）。A方法B對象C屬性D事件29. 以下（ D ）語句將刪除列表框List1中的最后一項。AList1.RemoveItem List1.ListCount BList1.ClearCList1.List(List1.ListCount-1)= "" DList1.RemoveItem List1.ListCount-130. 若要把“XXX”添加到列表框List1中的第三項，則可執行

9、語句（ B ）。AList1.AddItem "XXX", 3BList1.AddItem "XXX", 2CList1.AddItem 3,"XXX"DList1.AddItem 2,"XXX"31. 用戶可以通過設置菜單項的（ C ）屬性值為False來使該菜單項失效。AHideBVisibleCEnabledDChecked32. 用戶可以通過設置菜單項的（ B ）屬性值設置為False來使該菜單項不可見。AHideBVisibleCEnabled DChecked33. 菜單編輯器中，同層次的（ B ）屬性

10、值設置為相同，才可以設置索引值。ACaptionBNameCIndexDShortCut34. 每創建一個頂級菜單，它的下面最多可以有（ C ）級子菜單。A1B3C5D635. 在設計菜單時，為了創建分隔欄，要在（ B ）中輸入字符（-）。A名稱欄B標題欄C索引欄D顯示區36. 如果要在程序中顯示一個彈出菜單，需調用（ D ）方法。APrintBMoveCRefreshDPopupMenu37. 當單擊工具欄上的按鈕，會觸發的事件是（ A ）。AButtonClickBChangeCLoadDKeyPress38. 下列可以用來存儲圖像可以供其它控件使用的控件是（ C ）。AToolBarBS

11、tatursBarC ImageListDTreeView39. 在Visual Basic中按文件的訪問方式不同，可以將文件分為（ B ）。A文本文件和數據文件B順序文件、隨機文件和二進制文件CASCII文件和二進制文件D數據文件和可執行文件40. 檢測文件是否結束的函數是（ C ）。ALOF()BLen()CEOF()DChr()41. 要讀出C盤根目錄下的順序文件stud.txt中的內容，下列打開方式中（ C ）是正確的。AOpen " C:stud.txt" For Append As #1BOpen " C:stud.txt" For Rand

12、om As #1COpen " C:stud.txt" For Input As #1DOpen " C:stud.txt" For Output As #142. 隨機文件使用（ C ）語句寫數據。AInput#BWrite #CPutDGet43. 隨機文件使用（ D ）語句讀數據。AInput#BWrite #CPutDGet44. 程序運行時，驅動器列表框下列（ A ）屬性能返回磁盤驅動器的名稱。ADriveBDriveNameCChgdriveDDrives45. 要用通用對話框控件顯示標準的“字體”對話框，應調用其（ C ）方法。AShowO

13、penBShowColorCShowFontDShowSaveas46. 改變驅動器列表框的Drive屬性值將激活其（ A ）事件。AChangeBScrollCKeyDownDKeyUp47. 使用目錄列表框的（ B ）屬性可以返回或設置當前工作目錄的完整路徑（包括驅動器盤符）。ADriveBPathCDirDListIndex48. 在隨機文件中（ D ）。A記錄的內容是隨機產生的B記錄的長度是任意的C記錄號是通過隨機數產生的D可以通過記錄號隨機讀取記錄49. 執行語句Open "C：Stud.txt" For Input As #2后，系統（ C ）。A將內存數據存放

14、在C盤當前文件夾下名為Stud.txt的文件中B將某個磁盤文件的內容寫入C盤當前文件夾下名為Stud.txt的文件中C打開C盤當前文件夾下名為Stud.txt的文件，用來讀取文件內容D在C盤當前文件夾下建立名為Stud. txt的順序文件50. 下面對象中不能作為容器的是（ B ）。A窗體BImage控件CPictureBox控件DFrame控件51. 要向圖片框picP中加載“d:hainanzhiwu.bmp”圖像文件，應使用語句（ C ）。APicture1.Picture=" d:hainanzhiwu.bmp"BPicture1.Picture=LoadPictu

15、re("d:hainanzhiwu.bmp")CpicP.Picture=LoadPicture("d:hainanzhiwu.bmp")DpicP.Picture=LoadPicture(d:hainanzhiwu.bmp)52. 執行Form1.Scale（0, 10）-（10, -10）語句后，Form1窗體坐標系x軸和y軸的正方向是（ A ）。A向右和向上B向左和向下C向右和向下D向左和向上53. 下列圖形中不能使用Shape控件繪制的是（ B ）。A矩形B三角形C正方形D橢圓54. Line（100，100）-Step（400，400）將在窗體

16、中的（ C ）畫一條直線。A（200，200）到（400，400）B（100，100）到（300，300）C（100，100）到（500，500）D（100，100）到（400，400）55. RGB函數通過紅、綠、藍三基色混合產生某種顏色，若使用三個滾動條分別輸入三種基色，為保證輸入數值有效，則應設置滾動條的（ A ）屬性。AMax和MinBSmallchange和 LargeChangeCScroll和ChangeDValue56. 如果在圖片框上使用繪圖方法繪制一個圓，則圖片框的（ B ）屬性決定了該圓的顏色。ABackColorBForeColorCFillColorDDrawStyl

17、e57. 鍵盤事件的執行順序是（ B ）。AKeyPress，KeyDown，KeyUpBKeyDown，KeyPress，KeyUpCKeyUp，KeyDown，KeyPressDKeyUp，KeyPress，KeyDown58. ADO控件屬于ActiveX控件，使用之前必須加載Microsoft ADO Data Conctrol 6.0（OLE DB），將ADO控件添加到工具箱中。添加ADO控件的菜單為（ B ）。A“工程”“引用”B“工程”“部件”C“工具”“選項”D“工程”“添加文件”59. 利用ADO訪問數據庫，首先要創建一個（ A ）對象，用于建立和數據庫的連接。AConnec

18、tion對象BRecordset對象CCommand對象DObject對象60. SQL語言的Select語句中，用于分組的語句為（ B ）。AwhereBgroup byCorder byDhaving61. 以下四個控件，不屬于數據綁定控件的是（ C ）。AText控件BDataGrid控件COption控件DLabel控件62. 決定系統是否自動檢測多媒體控件（MMControl）各按鈕的狀態的屬性是（ B ）。AEnableBAutoEnableCPlayEnabledD以上答案都不正確63. 將多媒體控件（MMControl）的Frames屬性設為3，則以下敘述正確的是（ A ）。A

19、指定Back或Step命令后退或前進的幀數都為3B只有Back命令后退的幀數為3C只有Step命令前進的幀數為3D后退或前進的幀數都為664. 多媒體控件（MMControl）具有一組執行MCI命令的下壓式按鈕。其中Record按鈕表示為（ B ）。A前一首B錄制C彈出D播放65. 為了使多媒體控件（MMControl）中的錄制按鈕不顯示，應添加代碼（ C ）。AMMControl1.Visible= FalseBMMControl1.Visible= TrueCMMControl1.RecordVisible= FalseDMMControl1.RecordVisible= True66.

20、在多媒體控件（MMControl）中，DeviceType屬性用于設置多媒體設備的類型，如果將要播放的文件是CD歌曲，應將DeviceType屬性設置為（ D ）。ADigitalVideoBWaveAudioCAVIVideoDCDAudio67. Windows Media Player控件的UiMode屬性，表示播放器界面模式，以下選項是播放器模式的屬性值是（ D ）。AFullBMiniCNoneD以上都是 68. 在Windows Media Player控件中，決定播放文件是否全屏的屬性是（ A ）。AFullScreenBFullCScreenDstretchToFit二、填空題

21、1. 數學表達式cox2x+寫成等價的Visual Basic表達式為 cos(x)2+Sqr(x2-y2)/2 。2. 數學表達式寫成等價的Visual Basic表達式為 10(1/2)*cos(50*3.14/180) 或者Sqr(10)*cos(50*3.14/180) 。3. 數學式子對應的Visual Basic運算表達式是 ： Sqr(s*(s-a)*(s-b)*(s-c) 。4. 將1£ x <12寫成Visual Basic邏輯表達式 x>=1 And x<12 。5. 已知a=3,b=4,c=5,表達式a>b and Not c>a

22、Or c>b And c<a+b的值是 True 。6. Left ("abcd",2)函數的返回值是 ab ; Right("abcd",2)函數的返回值是 cd 。7. 在Visual Basic的轉換函數中將數值轉換為字符串的函數是 Str(x) ；將數字字符串轉換為數值的函數是 Val(x) ；將字符轉換為相應的ASCII碼的函數是 Asc(x) 。8. 有變量定義語句“Dim Str1,Str2 As String *10”，其中Str1變量的類型應為 變體型 ，其中Str2變量的類型應為 字符串型 。9. 數組的類型可以是基本數據

23、類型，也可以是用戶自定義的記錄類型。如果省略類型說明，數組會被設置為默認的 變體類型（Variant） 。數組中各個元素在定義時如果是數值類型就被默認初始化為 0 ，如果是字符串類型就被初始化為 空字符串 。10. 在Visual Basic中，數組默認的下標下界是 0 ，如果希望從1開始，可以使用 Option Base n語句 語句來設置。11. 在缺省情況下，用Dim A(5,5)語句聲明二維數組后，數組A的元素共有 36 個。12. 在Visual Basic中，參數通過 按值傳遞 和 按地址傳遞 兩種方式傳送。13. Visual Basic中變量依據其作用域不同可以分為過程級變量（

24、局部變量）、模塊級變量和全局變量3類。過程級變量就是指在事件過程或通用過程內定義的變量，它的作用域就是 其所在的過程 。模塊級變量包括窗體級模塊變量和標準模塊級變量。窗體模塊變量的作用域是 窗體內的所有過程 ，標準模塊變量的作用域是 模塊內的所有過程 。全局變量的作用域是 整個工程中所有的模塊和所有的過程 。14. 基本程序控制結構可以分為順序結構、 選擇 結構和 循環 結構3種。15. 在Visual Basic語言中有三種形式的循環結構。其中，若循環的次數可以事先確定，可使用For循環；若要求先判斷循環進行的條件，可使用 While 循環或 Do 循環。 16. Visual Basic一

25、般用4種類型的文件保存，分別是擴展名為 .frm 的窗體文件，擴展名為 bas 的標準模塊文件，擴展名為 .cls 的類模塊文件和擴展名為 .vbp 的工程文件。17. Visual Basic程序開發有三種模式，即 設計 模式、 運行 模式和 中斷 模式。18. Visual Basic中設置斷點的按鍵是 F9 ，逐語句調試的語句是 F8 。19. Visual Basic中的程序錯誤類型主要有編譯錯誤、 實時錯誤 和 邏輯錯誤 三種。20. Visual Basic應用程序即工程文件通常由三類模塊組成，即窗體模塊、標準模塊和類模塊。窗體模塊包含 窗體 和 代碼 兩部分。 標準模塊 完全由代

26、碼組成，這些代碼不與具體的對象相關聯，一般用來定義全局變量和公用過程和函數。 類模塊 用于自定義類。21. 在Visual Basic中將多重窗體程序中第一個被裝載內存的窗體稱為 啟動窗體 。22. 創建第一個按鈕控件對象時，系統自動為其“Name”屬性分配一個名字，該名字為 Command1 。23. 為了在運行時把當前路徑下的圖形文件picturefile.jpg裝入圖片框Picture1，所使用的語句為 Picture1. Picture = LoadPrcture(“picturefile.jpg”) 。24. 在Visual Basic中，每個菜單項都是一個圖形控件對象，所以它們也有

27、一些與其他控件類似的屬性， 標題 就相當于其他控件的Caption屬性，而 名稱 就相當于Name屬性。25. 在Visual Basic菜單中設置顯示一條分割線的操作是 在【菜單編輯器】的標題欄中，輸入一個“-” 。26. 在Visual Basic中，文件系統控件包括 驅動器列表框（DriveListBox） 、 目錄列表框（DirListBox） 和文件列表框（FileListBox）。三者協同操作可以訪問任意位置的目錄和文件，可以進行文件系統的人機交互管理。27. 每次重新設置驅動器列表框的Drive屬性時，都將引發 Change 事件?？稍谠撌录^程中編寫代碼修改目錄列表框的路徑，使

28、目錄列表框內容隨之發生改變。28. 對驅動器列表框來說，每次重新設置驅動器列表框的 Drive 屬性時，將引發Change事件；對目錄列表框來說，當 Path 屬性值改變時，將引發Change事件；對于文件列表框，重新設置的 Path 屬性，將引發Change事件。29. 執行指令“Line (200,200) Step (500,500)”后，CurrentX 700 。30. 執行指令“Line (200,200) (500,500)”后，CurrentX 500 。31. 將圖片框PictureBox的AutoSize屬性設置成 Ture 時，圖片框能自動調整大小，以適應其中的圖片。32

29、. Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應用程序在窗體中顯示文本信息，可使用 Label 控件；若允許用戶輸入文本，則應使用 TextBox 控件。33. 按文件的存取方式，可將文件分為順序文件、 隨機文件 和 二進制文件 。34. ADO模型中一般可通過Connection對象的 Execute 方法執行增加、刪除、修改操作。使用ADO模型時，建立Recordset和Connection對象連接的屬性是 ActiveConnection 。35. ADO數據模型中一般可通過Connection對象的 Execute 方法對數據庫中的基本表進行增加、刪除、修改等不返回

30、結果集的操作。三、程序閱讀題1. 閱讀以下程序，寫出其功能。Private Sub cmdWhy_Click()' cmdWhy為命令按鈕，lblHelloVB為標簽，txtHelloVB為文本框lblHelloVB .Caption = "為什么學VB" txtHelloVB = "（1）VB簡單易學，開發效率高，通用性強，用途廣泛。" _+ vbCrLf + vbCrLf + "（2）VB是國內外最流行的程序設計語言之一，" _+ "也是學習開發Windows應用程序首選的程序設計語言。"End Sub

31、該程序功能：單擊cmdWhy按鈕，在lblHelloVB標簽顯示“為什么學VB”，在txtHelloVB文本框顯示以下內容：1VB簡單易學，開發效率高，通用性強，用途廣泛。2VB是國內外最流行的程序設計語言之一，也是學習開發Windows應用程序首選的程序設計語言。2. 閱讀以下程序，寫出其功能。Private Sub cmdWhat_Click()' cmdWat為命令按鈕，lblHelloVB為標簽，txtHelloVB為文本框lblHelloVB .Caption = "VB能干什么"txtHelloVB = " VB能快速實現用戶界面的設計、&qu

32、ot; _+ "文字和圖形圖像的處理以及數據庫的使用，能開發多媒體、數據庫、" _+ "網絡和圖形等多方面的應用程序；可以開發個人使用或小組" _+ "使用的小工具、大型企業應用系統以及遍及全球的分布式應用程序。"End Sub該程序功能：單擊cmdWhat按鈕，在lblHelloVB標簽顯示“VB能干什么”，在txtHelloVB文本框顯示以下內容：VB能快速實現用戶界面的設計、文字和圖形圖像的處理以及數據庫的使用，能開發多媒體、數據庫網絡和圖形等多方面的應用程序；可以開發個人使用或小組使用的小工具、大型企業應用系統以及遍及全球的分

33、布式應用程序。3. 閱讀以下程序，寫出其功能。Private Sub cmdHow_Click()' cmdHow為命令按鈕，lblHelloVB為標簽，txtHelloVB為文本框lblHelloVB .Caption = "如何學好VB"txtHelloVB = "（1）從實際應用程序的開發過程中學習VB程序設計。" _+ vbCrLf + vbCrLf + "（2）學會分析問題和解決問題的思路、" _+ "算法設計和實現方法。" + vbCrLf + vbCrLf _+ "（3）學會利用MS

34、DN資源。" + vbCrLf + vbCrLf _+ "（4）養成良好的編程習慣。"End Sub該程序功能：單擊cmdHow按鈕，在lblHelloVB標簽顯示“如何學好VB”，在txtHelloVB文本框顯示以下內容：（1）從實際應用程序的開發過程中學習VB程序設計。（2）學會分析問題和解決問題的思路算法設計和實現方法。（3）學會利用MSDN資源。（4）養成良好的編程習慣。4. 閱讀以下程序，寫出其功能。Sub newQuestion() Dim intOp1 As Integer, intOp2 As Integer, intTemp As Integer

35、Dim strOprator As StringDim intOpratorNum As IntegerRandomizeintOp1 = Int(10 * Rnd + 1) intOp2 = Int(10 * Rnd + 1) intOpratorNum = Int(4 * Rnd + 1) Select Case intOpratorNum Case 1strOprator = "+": intAnswer = intOp1 + intOp2Case 2strOprator = "":If intOp1 < intOp2 Then intTem

36、p = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfintAnswer = intOp1 - intOp2Case 3strOprator = "×": intAnswer = intOp1 * intOp2Case 4strOprator = "÷"If intOp1 < intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfIf intOp1 Mod intOp2 <> 0 The

37、nintOp1 = intOp1 - intOp1 Mod intOp2End IfEnd Select' lblQuestion為標簽lblQuestion.Caption = intOp1 & " " & strOprator & " " & intOp2 & " = " End Sub該程序是一個隨機出題的過程。隨機產生兩個10以內的操作數，隨機產生一個操作符（+、×、÷）。如果是減法和除法時，第一操作數小于第二操作數時交換兩個操作數，且如果是除法則同時減去兩數

38、相除所得的余數。最后在標簽lblQuestion上顯示題目。5. 閱讀以下程序，寫出其功能。Public Function Avg_mark(MarkArray() As Single) As Single Dim sngSum As Single, i As Integer , n As IntegersngSum = 0n = UBound(MarkArray) For i = 0 To nsngSum = sngSum + MarkArray(i) Next iAvg_mark = sngSum / n End Function該程序是一個求平均值的函數。以一個單精度的數組作為參數，先求

39、出數組元素的個數，接著求出數組所有元素的和，最后得出該數組的平均值。6. 閱讀以下程序，寫出其功能。Public Function Max_Mark(MarkArray() As Single) As Single Dim sngMax As Single , i As Integer , n As IntegersngMax = 0n = UBound(MarkArray) For i = 0 To nIf MarkArray(i) > sngMax Then sngMax = MarkArray(i) Next iMax_Mark = sngMax End Function該程序是一

40、個求最大值的函數。以一個單精度的數組作為參數，先求出數組元素的個數，接著逐個比較，求出數組元素的最大值。7. 閱讀以下程序，寫出其功能。Public Function Pass_Mark(MarkArray() As Single) As SingleDim intCount As Integer, i As Integer , n As IntegerintCount = 0n = UBound(MarkArray) For i = 0 To nif MarkArray(i) >= 60 Then intCount = intCount + 1 Next iPass_Mark = in

41、tCount / nEnd Function該函數的功能是求一組數中大于等于60的數的比例。以一個單精度的數組作為參數，先求出數組元素的個數，接著逐個比較，求出數組元素中大于等于60的數的個數，最后求出其比例。8. 閱讀以下程序，寫出其功能。Private Sub Sort_Mark(MarkArray() As Single)Dim sngMtemp As SingleDim i As Integer , n As Integer , k As Integer,j As Integern = UBound(MarkArray) For i = 0 To n 1 k = iFor j = i

42、+ 1 To nIf MarkArray(j) > MarkArray(k) Then k = jNext jsngMtemp = MarkArray(k)MarkArray(k) = MarkArray(i)MarkArray(i) = sngMtempNext iEnd Sub該過程的功能是把一組數按從大到小排序。以一個單精度的數組作為參數，先求出數組元素的個數，接著逐個比較，求出數組元素中的最大值和第一個元素交換位置；求出次大值和第二個元素交換位置；依次類推，完成從大到小排序。9. 閱讀以下程序，寫出其功能。Private Sub changecolor()Dim r As Int

43、eger , g As Integer, b As IntegerDim x As Long' hsbRed、hsbGreen和hsbBlue為水平滾動條hsbRed.Min=0: hsbGreen.Min=0 : hsbBlue.Min=0 hsbRed.Max=255: hsbGreen.Max=255 : hsbBlue.Max=255 r = hsbRed.Value g = hsbGreen.Value b = hsbBlue.Value x = RGB(r, g, b) frmMain.BackColor = x End Sub該過程的功能是用紅色、綠色、藍色三個滾動條調節

44、窗體底色。先把紅色、綠色、藍色三個滾動條的Min屬性設置為0、Max屬性設置為255，接著用取出三個滾動條的Value屬性值，用RGB函數產生一個由紅、綠、藍三個Value屬性值混合而成的新顏色，并作為窗體底色。10. 閱讀以下程序，寫出其功能。Public ADOcn As ConnectionPublic Sub Main()Dim strAccess As StringstrAccess="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d: xs.mdb"If ADOcn Is Nothing ThenSet ADOcn =

45、 New ConnectionADOcn.Open strAccess End IffrmMain.Show ' frmMain為窗體End Sub該段程序的功能是建立數據庫的連接。實現與D盤根目錄下的文件名為xs.mdb 的Access數據庫的連接，同時顯示frmMain窗體。11. 閱讀以下程序，寫出其功能。Public ADOcn As ConnectionPublic ADOrs As New RecordsetPrivate Sub cmdAdd_Click()Dim strSQL As String '文本框txtNo、txtName和組合框cboSex、cboCl

46、ass'分別用來輸入學號、姓名、性別和班級strSQL = "select * from 學生表 where 學號='" + txtNo.Text + "'" ADOrs.Open strSQL, ADOcn If Not ADOrs.EOF ThenMsgBox "該記錄已經存在，不能繼續增加！", vbCritical + vbOKOnlyADOrs.CloseExit SubEnd IfstrSQL = "insert into 學生表(學號,姓名,性別,班級)"strSQL = st

47、rSQL + " values('" + txtNo.Text + "','" + txtName.Text + "'," strSQL = strSQL +"'" + cboSex.Text + "','" txtClass.Text + "')"ADOcn.Execute strSQL End Sub該段程序的功能是把一個學生記錄插入到學生表中。首先查找數據表中是否存在文本框txtNo中輸入的學號，如果存在則

48、不增加；如果不存在，則把該學生的信息記錄插入學生表中。四、程序設計題1. 編寫一個程序。程序初始界面如圖1左圖所示，設“學習目的”、“學習方法”和“退出”命令按鈕的名稱定義為cmdAim、cmdWay和cmdExit，標簽控件的名稱定義為lblContent。單擊“學習目的”按鈕，顯示如圖1的中圖所示；單擊“學習方法”命令按鈕，顯示如圖1的右圖所示；單擊“退出”按鈕時，退出程序。 圖1Private Sub cmdAim_Click() lblContent.Caption = "開發Windows應用程序"End SubPrivate Sub cmdWay_Click()

49、 lblContent.Caption = "從實際應用程序的開發過程中學習VB"End SubPrivate Sub cmdExit_Click() EndEnd Sub2. 設計一個簡單的加法程序，程序界面設計如圖2所示。設第一操作數、第二操作數和計算結果文本框的名稱分別定義為txtFirstNum、txtSecondNum和txtSum，“計算”命令按鈕的名稱定義為cmdSum。 圖2Private Sub cmdSum_Click() txtSum.Text = Val(txtFirstNum.Text) + Val(txtSecondNum.Text)End Su

50、b3. 編寫一個數制轉換程序，運行界面如圖3所示。設三個文本框的名稱框定義分別為TxtDec、TxtHex和TxtOct。實現在第一個文本框中輸入十進制數后，第二個文本框自動顯示該數對應的十六進制數，第三個文本框自動顯示該數對應的八進制數。提示：利用文本框的Change事件和轉換函數Hex、Oct。圖3Private Sub TxtDec_Change() TxtHex.Text = Hex(Val(TxtDec.Text) TxtOct.Text = Oct(Val(TxtDec.Text)End Sub4. 編寫一個猜數字程序。程序產生一個隨機數，由用戶來猜這個數，并提示用戶猜的數是否太大

51、或太小，程序運行界面如4所示，設輸入文本框的名稱框定義為TxtAnswer，神秘的數、評價標簽控件的名稱框定義為lblComment和lblNum，“確定”命令按鈕的名稱定義為cmdOk。 圖4Dim intNum As Integer '用于存放“神秘的數”Dim intCount As Integer '用于猜數計數Private Sub cmdOk_Click() intCount = intCount + 1 '計數 If Val(txtAnswer.Text) = intNum Then '猜對 lblComment.Caption = "猜

52、對了！你一共猜了" & intCount & "次" lblNum.Caption = intNum ElseIf Val(txtAnswer.Text) > intNum Then lblComment.Caption = "太大了！" Else lblComment.Caption = "太小了！" End IfEnd SubPrivate Sub Form_Load() Randomize intNum = Int(Rnd * 1000 + 1)End Sub5. 編寫一個判斷閏年的程序。判斷平年

53、、閏年方法：凡是能被4整除但不能被100整除的年份為閏年，如1980年；凡是能被400整除的年份為閏年，如2000年；除以上兩種情況以外的其余年份都是平年。Private Sub Command1_Click() Dim intYear As Integer '用于存放年份 intYear = InputBox("請輸入年份") If intYear Mod 400 = 0 Or (intYear Mod 4 = 0 And intYear Mod 100 <> 0) Then MsgBox intYear & "年是閏年" Else MsgBox intYear & "年是平年" End IfEnd Sub6. 編寫一個列表框應用程序，程序界面如圖5所示。設“添加”、“刪除”和“修改”按鈕的名稱定義為cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名稱為默認。要求從文本框輸入姓名，然后按“添加”按鈕把姓名添加到列表框中；當選擇列表框中某一項時，按“刪除”按鈕，從列表框中刪除；當選擇列表框中某一項時，按“修改”按鈕，把列表框中選取的項送往文本框且“修改”按鈕變為“修改確認”。在文本框