電大計(jì)算機(jī)本科補(bǔ)修VisualBasic程序設(shè)計(jì)期末復(fù)習(xí)題

1、Visual Basic程序設(shè)計(jì)（開放本科補(bǔ)修）課程期末復(fù)習(xí)一、單項(xiàng)選擇題1. 如果要設(shè)置窗體的標(biāo)題欄，應(yīng)選擇（ B ）屬性。AVisibleBCaptionCNameDText2. 要使命令按鈕不響應(yīng)用戶生成的事件，應(yīng)設(shè)置命令按鈕的（ D ）屬性。AVisibleBCaptionCEnableDEnabled3. 要使標(biāo)簽?zāi)芡赋龃绑w的背景，應(yīng)設(shè)置標(biāo)簽的（ A ）屬性。ABackStyleBBorderStyleCAppearanceDBackColor4. 以下控件中，（ A ）控件不會(huì)影響到界面設(shè)計(jì)效果。A計(jì)時(shí)器B文本框C標(biāo)簽DLine控件5. 在Visual Basic中，一般（ B ）

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

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

4、 D ）。AStringBIntegerCDoubleDVariant13. 假設(shè)已定義Integer變量x、y，則以下賦值語(yǔ)句正確的是（ C ）。Ax + 1 = yBx := yCy = x + yD1 = x14. 、/、Mod、*四個(gè)算術(shù)運(yùn)算符中，優(yōu)先級(jí)別最低的是（ C ）。AB/CModD*15. 下列哪組語(yǔ)句可以將變量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. 以下語(yǔ)句的輸出結(jié)果是（ C ）。Print Format (32548.5,“000,000.0

5、0”)A32548.5B32,548.5C032,548.50D32,548.5017. 表達(dá)式4+5 6 * 7 / 8 Mod 9 的值是 （ B ）。A4 B5C6D718. 函數(shù)Int(Rnd*10)是在（ C ）范圍內(nèi)的整數(shù)。 A（0, 10）B(0,10C0, 10）D0, 1019. 下面（ A ）運(yùn)算符是算術(shù)運(yùn)算符。 AModBLikeCAndDNot20. 已知三個(gè)變量A、B、C，判斷A、B、C能否構(gòu)成三角形的邏輯表達(dá)式為（ 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. 下面程序段運(yùn)行后，顯示的結(jié)果是（ B ）。Dim intX As Integer If intX ThenPrint intX ElsePrint intX + 1End IfA0B1C2D不一定22. 以下程序的輸出結(jié)果是（ C ）。Dim a, i%, sum%a = Array(4, 3, 2, 1)For i = 0 To 3sum = sum + a(

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

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

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

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

11、tatursBarC ImageListDTreeView39. 在Visual Basic中按文件的訪問(wèn)方式不同，可以將文件分為（ B ）。A文本文件和數(shù)據(jù)文件B順序文件、隨機(jī)文件和二進(jìn)制文件CASCII文件和二進(jìn)制文件D數(shù)據(jù)文件和可執(zhí)行文件40. 檢測(cè)文件是否結(jié)束的函數(shù)是（ C ）。ALOF()BLen()CEOF()DChr()41. 要讀出C盤根目錄下的順序文件stud.txt中的內(nèi)容，下列打開方式中（ 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. 隨機(jī)文件使用（ C ）語(yǔ)句寫數(shù)據(jù)。AInput#BWrite #CPutDGet43. 隨機(jī)文件使用（ D ）語(yǔ)句讀數(shù)據(jù)。AInput#BWrite #CPutDGet44. 程序運(yùn)行時(shí)，驅(qū)動(dòng)器列表框下列（ A ）屬性能返回磁盤驅(qū)動(dòng)器的名稱。ADriveBDriveNameCChgdriveDDrives45. 要用通用對(duì)話框控件顯示標(biāo)準(zhǔn)的“字體”對(duì)話框，應(yīng)調(diào)用其（ C ）方法。AShowO

13、penBShowColorCShowFontDShowSaveas46. 改變驅(qū)動(dòng)器列表框的Drive屬性值將激活其（ A ）事件。AChangeBScrollCKeyDownDKeyUp47. 使用目錄列表框的（ B ）屬性可以返回或設(shè)置當(dāng)前工作目錄的完整路徑（包括驅(qū)動(dòng)器盤符）。ADriveBPathCDirDListIndex48. 在隨機(jī)文件中（ D ）。A記錄的內(nèi)容是隨機(jī)產(chǎn)生的B記錄的長(zhǎng)度是任意的C記錄號(hào)是通過(guò)隨機(jī)數(shù)產(chǎn)生的D可以通過(guò)記錄號(hào)隨機(jī)讀取記錄49. 執(zhí)行語(yǔ)句Open "C：Stud.txt" For Input As #2后，系統(tǒng)（ C ）。A將內(nèi)存數(shù)據(jù)存放

14、在C盤當(dāng)前文件夾下名為Stud.txt的文件中B將某個(gè)磁盤文件的內(nèi)容寫入C盤當(dāng)前文件夾下名為Stud.txt的文件中C打開C盤當(dāng)前文件夾下名為Stud.txt的文件，用來(lái)讀取文件內(nèi)容D在C盤當(dāng)前文件夾下建立名為Stud. txt的順序文件50. 下面對(duì)象中不能作為容器的是（ B ）。A窗體BImage控件CPictureBox控件DFrame控件51. 要向圖片框picP中加載“d:hainanzhiwu.bmp”圖像文件，應(yīng)使用語(yǔ)句（ 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. 執(zhí)行Form1.Scale（0, 10）-（10, -10）語(yǔ)句后，F(xiàn)orm1窗體坐標(biāo)系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函數(shù)通過(guò)紅、綠、藍(lán)三基色混合產(chǎn)生某種顏色，若使用三個(gè)滾動(dòng)條分別輸入三種基色，為保證輸入數(shù)值有效，則應(yīng)設(shè)置滾動(dòng)條的（ A ）屬性。AMax和MinBSmallchange和 LargeChangeCScroll和ChangeDValue56. 如果在圖片框上使用繪圖方法繪制一個(gè)圓，則圖片框的（ B ）屬性決定了該圓的顏色。ABackColorBForeColorCFillColorDDrawStyl

17、e57. 鍵盤事件的執(zhí)行順序是（ 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“工具”“選項(xiàng)”D“工程”“添加文件”59. 利用ADO訪問(wèn)數(shù)據(jù)庫(kù)，首先要?jiǎng)?chuàng)建一個(gè)（ A ）對(duì)象，用于建立和數(shù)據(jù)庫(kù)的連接。AConnec

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

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

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

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

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

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

24、局部變量）、模塊級(jí)變量和全局變量3類。過(guò)程級(jí)變量就是指在事件過(guò)程或通用過(guò)程內(nèi)定義的變量，它的作用域就是 其所在的過(guò)程 。模塊級(jí)變量包括窗體級(jí)模塊變量和標(biāo)準(zhǔn)模塊級(jí)變量。窗體模塊變量的作用域是 窗體內(nèi)的所有過(guò)程 ，標(biāo)準(zhǔn)模塊變量的作用域是 模塊內(nèi)的所有過(guò)程 。全局變量的作用域是 整個(gè)工程中所有的模塊和所有的過(guò)程 。14. 基本程序控制結(jié)構(gòu)可以分為順序結(jié)構(gòu)、 選擇 結(jié)構(gòu)和 循環(huán) 結(jié)構(gòu)3種。15. 在Visual Basic語(yǔ)言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以事先確定，可使用For循環(huán)；若要求先判斷循環(huán)進(jìn)行的條件，可使用 While 循環(huán)或 Do 循環(huán)。 16. Visual Basic一

25、般用4種類型的文件保存，分別是擴(kuò)展名為 .frm 的窗體文件，擴(kuò)展名為 bas 的標(biāo)準(zhǔn)模塊文件，擴(kuò)展名為 .cls 的類模塊文件和擴(kuò)展名為 .vbp 的工程文件。17. Visual Basic程序開發(fā)有三種模式，即 設(shè)計(jì) 模式、 運(yùn)行 模式和 中斷 模式。18. Visual Basic中設(shè)置斷點(diǎn)的按鍵是 F9 ，逐語(yǔ)句調(diào)試的語(yǔ)句是 F8 。19. Visual Basic中的程序錯(cuò)誤類型主要有編譯錯(cuò)誤、 實(shí)時(shí)錯(cuò)誤 和 邏輯錯(cuò)誤 三種。20. Visual Basic應(yīng)用程序即工程文件通常由三類模塊組成，即窗體模塊、標(biāo)準(zhǔn)模塊和類模塊。窗體模塊包含 窗體 和 代碼 兩部分。 標(biāo)準(zhǔn)模塊 完全由代

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

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

28、目錄列表框內(nèi)容隨之發(fā)生改變。28. 對(duì)驅(qū)動(dòng)器列表框來(lái)說(shuō)，每次重新設(shè)置驅(qū)動(dòng)器列表框的 Drive 屬性時(shí)，將引發(fā)Change事件；對(duì)目錄列表框來(lái)說(shuō)，當(dāng) Path 屬性值改變時(shí)，將引發(fā)Change事件；對(duì)于文件列表框，重新設(shè)置的 Path 屬性，將引發(fā)Change事件。29. 執(zhí)行指令“Line (200,200) Step (500,500)”后，CurrentX 700 。30. 執(zhí)行指令“Line (200,200) (500,500)”后，CurrentX 500 。31. 將圖片框PictureBox的AutoSize屬性設(shè)置成 Ture 時(shí)，圖片框能自動(dòng)調(diào)整大小，以適應(yīng)其中的圖片。32

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

30、結(jié)果集的操作。三、程序閱讀題1. 閱讀以下程序，寫出其功能。Private Sub cmdWhy_Click()' cmdWhy為命令按鈕，lblHelloVB為標(biāo)簽，txtHelloVB為文本框lblHelloVB .Caption = "為什么學(xué)VB" txtHelloVB = "（1）VB簡(jiǎn)單易學(xué)，開發(fā)效率高，通用性強(qiáng)，用途廣泛。" _+ vbCrLf + vbCrLf + "（2）VB是國(guó)內(nèi)外最流行的程序設(shè)計(jì)語(yǔ)言之一，" _+ "也是學(xué)習(xí)開發(fā)Windows應(yīng)用程序首選的程序設(shè)計(jì)語(yǔ)言。"End Sub

31、該程序功能：?jiǎn)螕鬰mdWhy按鈕，在lblHelloVB標(biāo)簽顯示“為什么學(xué)VB”，在txtHelloVB文本框顯示以下內(nèi)容：1VB簡(jiǎn)單易學(xué)，開發(fā)效率高，通用性強(qiáng)，用途廣泛。2VB是國(guó)內(nèi)外最流行的程序設(shè)計(jì)語(yǔ)言之一，也是學(xué)習(xí)開發(fā)Windows應(yīng)用程序首選的程序設(shè)計(jì)語(yǔ)言。2. 閱讀以下程序，寫出其功能。Private Sub cmdWhat_Click()' cmdWat為命令按鈕，lblHelloVB為標(biāo)簽，txtHelloVB為文本框lblHelloVB .Caption = "VB能干什么"txtHelloVB = " VB能快速實(shí)現(xiàn)用戶界面的設(shè)計(jì)、&qu

32、ot; _+ "文字和圖形圖像的處理以及數(shù)據(jù)庫(kù)的使用，能開發(fā)多媒體、數(shù)據(jù)庫(kù)、" _+ "網(wǎng)絡(luò)和圖形等多方面的應(yīng)用程序；可以開發(fā)個(gè)人使用或小組" _+ "使用的小工具、大型企業(yè)應(yīng)用系統(tǒng)以及遍及全球的分布式應(yīng)用程序。"End Sub該程序功能：?jiǎn)螕鬰mdWhat按鈕，在lblHelloVB標(biāo)簽顯示“VB能干什么”，在txtHelloVB文本框顯示以下內(nèi)容：VB能快速實(shí)現(xiàn)用戶界面的設(shè)計(jì)、文字和圖形圖像的處理以及數(shù)據(jù)庫(kù)的使用，能開發(fā)多媒體、數(shù)據(jù)庫(kù)網(wǎng)絡(luò)和圖形等多方面的應(yīng)用程序；可以開發(fā)個(gè)人使用或小組使用的小工具、大型企業(yè)應(yīng)用系統(tǒng)以及遍及全球的分

33、布式應(yīng)用程序。3. 閱讀以下程序，寫出其功能。Private Sub cmdHow_Click()' cmdHow為命令按鈕，lblHelloVB為標(biāo)簽，txtHelloVB為文本框lblHelloVB .Caption = "如何學(xué)好VB"txtHelloVB = "（1）從實(shí)際應(yīng)用程序的開發(fā)過(guò)程中學(xué)習(xí)VB程序設(shè)計(jì)。" _+ vbCrLf + vbCrLf + "（2）學(xué)會(huì)分析問(wèn)題和解決問(wèn)題的思路、" _+ "算法設(shè)計(jì)和實(shí)現(xiàn)方法。" + vbCrLf + vbCrLf _+ "（3）學(xué)會(huì)利用MS

34、DN資源。" + vbCrLf + vbCrLf _+ "（4）養(yǎng)成良好的編程習(xí)慣。"End Sub該程序功能：?jiǎn)螕鬰mdHow按鈕，在lblHelloVB標(biāo)簽顯示“如何學(xué)好VB”，在txtHelloVB文本框顯示以下內(nèi)容：（1）從實(shí)際應(yīng)用程序的開發(fā)過(guò)程中學(xué)習(xí)VB程序設(shè)計(jì)。（2）學(xué)會(huì)分析問(wèn)題和解決問(wèn)題的思路算法設(shè)計(jì)和實(shí)現(xiàn)方法。（3）學(xué)會(huì)利用MSDN資源。（4）養(yǎng)成良好的編程習(xí)慣。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為標(biāo)簽lblQuestion.Caption = intOp1 & " " & strOprator & " " & intOp2 & " = " End Sub該程序是一個(gè)隨機(jī)出題的過(guò)程。隨機(jī)產(chǎn)生兩個(gè)10以內(nèi)的操作數(shù)，隨機(jī)產(chǎn)生一個(gè)操作符（+、×、÷）。如果是減法和除法時(shí)，第一操作數(shù)小于第二操作數(shù)時(shí)交換兩個(gè)操作數(shù)，且如果是除法則同時(shí)減去兩數(shù)

38、相除所得的余數(shù)。最后在標(biāo)簽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該程序是一個(gè)求平均值的函數(shù)。以一個(gè)單精度的數(shù)組作為參數(shù)，先求

39、出數(shù)組元素的個(gè)數(shù)，接著求出數(shù)組所有元素的和，最后得出該數(shù)組的平均值。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、個(gè)求最大值的函數(shù)。以一個(gè)單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個(gè)數(shù)，接著逐個(gè)比較，求出數(shù)組元素的最大值。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該函數(shù)的功能是求一組數(shù)中大于等于60的數(shù)的比例。以一個(gè)單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個(gè)數(shù)，接著逐個(gè)比較，求出數(shù)組元素中大于等于60的數(shù)的個(gè)數(shù)，最后求出其比例。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該過(guò)程的功能是把一組數(shù)按從大到小排序。以一個(gè)單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個(gè)數(shù)，接著逐個(gè)比較，求出數(shù)組元素中的最大值和第一個(gè)元素交換位置；求出次大值和第二個(gè)元素交換位置；依次類推，完成從大到小排序。9. 閱讀以下程序，寫出其功能。Private Sub changecolor()Dim r As Int

43、eger , g As Integer, b As IntegerDim x As Long' hsbRed、hsbGreen和hsbBlue為水平滾動(dòng)條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該過(guò)程的功能是用紅色、綠色、藍(lán)色三個(gè)滾動(dòng)條調(diào)節(jié)

44、窗體底色。先把紅色、綠色、藍(lán)色三個(gè)滾動(dòng)條的Min屬性設(shè)置為0、Max屬性設(shè)置為255，接著用取出三個(gè)滾動(dòng)條的Value屬性值，用RGB函數(shù)產(chǎn)生一個(gè)由紅、綠、藍(lán)三個(gè)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該段程序的功能是建立數(shù)據(jù)庫(kù)的連接。實(shí)現(xiàn)與D盤根目錄下的文件名為xs.mdb 的Access數(shù)據(jù)庫(kù)的連接，同時(shí)顯示frmMain窗體。11. 閱讀以下程序，寫出其功能。Public ADOcn As ConnectionPublic ADOrs As New RecordsetPrivate Sub cmdAdd_Click()Dim strSQL As String '文本框txtNo、txtName和組合框cboSex、cboCl

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

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

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

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

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

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

52、對(duì)了！你一共猜了" & 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. 編寫一個(gè)判斷閏年的程序。判斷平年

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