2022年電大計算機本科補修VisualBasic程序設(shè)計期末復(fù)習(xí)題

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

2、ntColorBForeColorCBackColorDShowColor在VB中斷模式下，可用調(diào)試窗口監(jiān)視表達式和變量的值，其中在（ A ）窗口中可以直接鍵入命令以顯示命令所請求的信息。A立即B.監(jiān)視C.本地D.中斷某計時器控件的interval屬性為0時，表示（ A ）。A計時器關(guān)閉計時CTimer事件的間隔時間為0毫秒BTimer事件的間隔時間為0秒D計時器啟動計時在窗體Form1的Click事件過程中有以下語句：Label1.Caption=Visual Basic若本語句執(zhí)行之前，標簽控件的Caption屬性為默認值，則標簽控件的Name屬性和Caption屬性在執(zhí)行本語句之前的值分

3、別為（ B ）。ALabel和Label BLabel1和Label1CLabel1和Visual BasicDLabel和Caption（ C ）控件不具有Caption屬性。ALabelBFormCTextBoxDCommandButton改變控件在窗體中的上下位置，應(yīng)設(shè)置控件的（ A ）屬性。ATopBLeftCWidthDRight文本框中選定的內(nèi)容，由下列（ C ）屬性反映。ATextBCaptionCSeltextDSelLenght在Visual Basic中，變量的默認類型是（ D ）。AStringBIntegerCDoubleDVariant假設(shè)已定義Integer變量x、

4、y，則以下賦值語句正確的是（ C ）。Ax + 1 = yBx := yCy = x + yD1 = x、/、Mod、*四個算術(shù)運算符中，優(yōu)先級別最低的是（ C ）。AB/CModD*下列哪組語句可以將變量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)/2以下語句的輸出結(jié)果是（ C ）。Print Format (32548.5,“000,000.00”)A32548.5B32,548.5C032,548.50D32,548.50表達式4+5 6 * 7 / 8 Mod 9 的值是

5、 （ B ）。A4 B5C6D7函數(shù)Int(Rnd*10)是在（ C ）范圍內(nèi)的整數(shù)。 A（0, 10）B(0,10C0, 10）D0, 10下面（ A ）運算符是算術(shù)運算符。 AModBLikeCAndDNot已知三個變量A、B、C，判斷A、B、C能否構(gòu)成三角形的邏輯表達式為（ B ）。AA = B And B = C And A = C BA + C = B And A + B = C And B + C = ACA + C = B Or A + B = C Or B + C = ADA + C = B And A + B = C Or B + C = A下面程序段運行后，顯示的結(jié)果是（

6、B ）。Dim intX As Integer If intX ThenPrint intX ElsePrint intX + 1End IfA0B1C2D不一定以下程序的輸出結(jié)果是（ C ）。Dim a, i%, sum%a = Array(4, 3, 2, 1)For i = 0 To 3sum = sum + a(i)Next iPrint sumA4B6C10D不一定在過程中定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應(yīng)使用（ D ）關(guān)鍵字在過程中定義局部變量。ADimBPublicCPrivateDStatic能通過（ D ）來刪除列表框中的選擇項。AList屬性

7、BText屬性CClear方法DRemoveItem方法ListBox中若沒有任何條目選中，其ListIndex屬性值為（ A ）。A-1B0C1D任意可通過（ C ）屬性判斷ListBox列表框控件的項目總數(shù)目。AListIndexBListTextCListcountD隨機數(shù)列表框的（ B ）屬性用于返回或設(shè)置列表框中各列表項的文本。ASelectedBListCTextDCaption設(shè)List1為列表框控件，List1.Clear中的Clear是（ A ）。A方法B對象C屬性D事件以下（ D ）語句將刪除列表框List1中的最后一項。AList1.RemoveItem List1.Li

8、stCount BList1.ClearCList1.List(List1.ListCount-1)= DList1.RemoveItem List1.ListCount-1若要把“XXX”添加到列表框List1中的第三項，則可執(zhí)行語句（ B ）。AList1.AddItem XXX, 3BList1.AddItem XXX, 2CList1.AddItem 3,XXXDList1.AddItem 2,XXX用戶可以通過設(shè)置菜單項的（ C ）屬性值為False來使該菜單項失效。AHideBVisibleCEnabledDChecked用戶可以通過設(shè)置菜單項的（ B ）屬性值設(shè)置為False來使

9、該菜單項不可見。AHideBVisibleCEnabled DChecked菜單編輯器中，同層次的（ B ）屬性值設(shè)置為相同，才可以設(shè)置索引值。ACaptionBNameCIndexDShortCut每創(chuàng)建一個頂級菜單，它的下面最多可以有（ C ）級子菜單。A1B3C5D6在設(shè)計菜單時，為了創(chuàng)建分隔欄，要在（ B ）中輸入字符（-）。A名稱欄B標題欄C索引欄D顯示區(qū)如果要在程序中顯示一個彈出菜單，需調(diào)用（ D ）方法。APrintBMoveCRefreshDPopupMenu當(dāng)單擊工具欄上的按鈕，會觸發(fā)的事件是（ A ）。AButtonClickBChangeCLoadDKeyPress下列可

10、以用來存儲圖像可以供其它控件使用的控件是（ C ）。AToolBarBStatursBarC ImageListDTreeView在Visual Basic中按文件的訪問方式不同，可以將文件分為（ B ）。A文本文件和數(shù)據(jù)文件B順序文件、隨機文件和二進制文件CASCII文件和二進制文件D數(shù)據(jù)文件和可執(zhí)行文件檢測文件是否結(jié)束的函數(shù)是（ C ）。ALOF()BLen()CEOF()DChr()要讀出C盤根目錄下的順序文件stud.txt中的內(nèi)容，下列打開方式中（ C ）是正確的。AOpen C:stud.txt For Append As #1BOpen C:stud.txt For Random

11、 As #1COpen C:stud.txt For Input As #1DOpen C:stud.txt For Output As #1隨機文件使用（ C ）語句寫數(shù)據(jù)。AInput#BWrite #CPutDGet隨機文件使用（ D ）語句讀數(shù)據(jù)。AInput#BWrite #CPutDGet程序運行時，驅(qū)動器列表框下列（ A ）屬性能返回磁盤驅(qū)動器的名稱。ADriveBDriveNameCChgdriveDDrives要用通用對話框控件顯示標準的“字體”對話框，應(yīng)調(diào)用其（ C ）方法。AShowOpenBShowColorCShowFontDShowSaveas改變驅(qū)動器列表框的Dr

12、ive屬性值將激活其（ A ）事件。AChangeBScrollCKeyDownDKeyUp使用目錄列表框的（ B ）屬性可以返回或設(shè)置當(dāng)前工作目錄的完整路徑（包括驅(qū)動器盤符）。ADriveBPathCDirDListIndex在隨機文件中（ D ）。A記錄的內(nèi)容是隨機產(chǎn)生的B記錄的長度是任意的C記錄號是通過隨機數(shù)產(chǎn)生的D可以通過記錄號隨機讀取記錄執(zhí)行語句Open C：Stud.txt For Input As #2后，系統(tǒng)（ C ）。A將內(nèi)存數(shù)據(jù)存放在C盤當(dāng)前文件夾下名為Stud.txt的文件中B將某個磁盤文件的內(nèi)容寫入C盤當(dāng)前文件夾下名為Stud.txt的文件中C打開C盤當(dāng)前文件夾下名為S

13、tud.txt的文件，用來讀取文件內(nèi)容D在C盤當(dāng)前文件夾下建立名為Stud. txt的順序文件下面對象中不能作為容器的是（ B ）。A窗體BImage控件CPictureBox控件DFrame控件要向圖片框picP中加載“d:hainanzhiwu.bmp”圖像文件，應(yīng)使用語句（ C ）。APicture1.Picture= d:hainanzhiwu.bmpBPicture1.Picture=LoadPicture(d:hainanzhiwu.bmp)CpicP.Picture=LoadPicture(d:hainanzhiwu.bmp)DpicP.Picture=LoadPicture(d

14、:hainanzhiwu.bmp)執(zhí)行Form1.Scale（0, 10）-（10, -10）語句后，F(xiàn)orm1窗體坐標系x軸和y軸的正方向是（ A ）。A向右和向上B向左和向下C向右和向下D向左和向上下列圖形中不能使用Shape控件繪制的是（ B ）。A矩形B三角形C正方形D橢圓Line（100，100）-Step（400，400）將在窗體中的（ C ）畫一條直線。A（200，200）到（400，400）B（100，100）到（300，300）C（100，100）到（500，500）D（100，100）到（400，400）RGB函數(shù)通過紅、綠、藍三基色混合產(chǎn)生某種顏色，若使用三個滾動條分別輸

15、入三種基色，為保證輸入數(shù)值有效，則應(yīng)設(shè)置滾動條的（ A ）屬性。AMax和MinBSmallchange和 LargeChangeCScroll和ChangeDValue如果在圖片框上使用繪圖方法繪制一個圓，則圖片框的（ B ）屬性決定了該圓的顏色。ABackColorBForeColorCFillColorDDrawStyle鍵盤事件的執(zhí)行順序是（ B ）。AKeyPress，KeyDown，KeyUpBKeyDown，KeyPress，KeyUpCKeyUp，KeyDown，KeyPressDKeyUp，KeyPress，KeyDownADO控件屬于ActiveX控件，使用之前必須加載Mi

16、crosoft ADO Data Conctrol 6.0（OLE DB），將ADO控件添加到工具箱中。添加ADO控件的菜單為（ B ）。A“工程”“引用”B“工程”“部件”C“工具”“選項”D“工程”“添加文件”利用ADO訪問數(shù)據(jù)庫，首先要創(chuàng)建一個（ A ）對象，用于建立和數(shù)據(jù)庫的連接。AConnection對象BRecordset對象CCommand對象DObject對象SQL語言的Select語句中，用于分組的語句為（ B ）。AwhereBgroup byCorder byDhaving以下四個控件，不屬于數(shù)據(jù)綁定控件的是（ C ）。AText控件BDataGrid控件COption控

17、件DLabel控件決定系統(tǒng)是否自動檢測多媒體控件（MMControl）各按鈕的狀態(tài)的屬性是（ B ）。AEnableBAutoEnableCPlayEnabledD以上答案都不正確將多媒體控件（MMControl）的Frames屬性設(shè)為3，則以下敘述正確的是（ A ）。A指定Back或Step命令后退或前進的幀數(shù)都為3B只有Back命令后退的幀數(shù)為3C只有Step命令前進的幀數(shù)為3D后退或前進的幀數(shù)都為6多媒體控件（MMControl）具有一組執(zhí)行MCI命令的下壓式按鈕。其中Record按鈕表示為（ B ）。A前一首B錄制C彈出D播放為了使多媒體控件（MMControl）中的錄制按鈕不顯示，應(yīng)

18、添加代碼（ C ）。AMMControl1.Visible= FalseBMMControl1.Visible= TrueCMMControl1.RecordVisible= FalseDMMControl1.RecordVisible= True在多媒體控件（MMControl）中，DeviceType屬性用于設(shè)置多媒體設(shè)備的類型，如果將要播放的文件是CD歌曲，應(yīng)將DeviceType屬性設(shè)置為（ D ）。ADigitalVideoBWaveAudioCAVIVideoDCDAudioWindows Media Player控件的UiMode屬性，表示播放器界面模式，以下選項是播放器模式的屬

19、性值是（ D ）。AFullBMiniCNoneD以上都是 在Windows Media Player控件中，決定播放文件是否全屏的屬性是（ A ）。AFullScreenBFullCScreenDstretchToFit二、填空題數(shù)學(xué)表達式cox2x+寫成等價的Visual Basic表達式為 cos(x)2+Sqr(x2-y2)/2 。數(shù)學(xué)表達式寫成等價的Visual Basic表達式為 10(1/2)*cos(50*3.14/180) 或者Sqr(10)*cos(50*3.14/180) 。數(shù)學(xué)式子對應(yīng)的Visual Basic運算表達式是 ： Sqr(s*(s-a)*(s-b)*(s-

20、c) 。將1 x =1 And xb and Not ca Or cb And ca+b的值是 True 。Left (abcd,2)函數(shù)的返回值是 ab ; Right(abcd,2)函數(shù)的返回值是 cd 。在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) 。有變量定義語句“Dim Str1,Str2 As String *10”，其中Str1變量的類型應(yīng)為 變體型 ，其中Str2變量的類型應(yīng)為 字符串型 。數(shù)組的類型可以是基本數(shù)據(jù)類型，也可以是用戶自定義的記

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

22、過程或通用過程內(nèi)定義的變量，它的作用域就是 其所在的過程 。模塊級變量包括窗體級模塊變量和標準模塊級變量。窗體模塊變量的作用域是 窗體內(nèi)的所有過程 ，標準模塊變量的作用域是 模塊內(nèi)的所有過程 。全局變量的作用域是 整個工程中所有的模塊和所有的過程 ?；境绦蚩刂平Y(jié)構(gòu)可以分為順序結(jié)構(gòu)、 選擇 結(jié)構(gòu)和 循環(huán) 結(jié)構(gòu)3種。在Visual Basic語言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以事先確定，可使用For循環(huán)；若要求先判斷循環(huán)進行的條件，可使用 While 循環(huán)或 Do 循環(huán)。 Visual Basic一般用4種類型的文件保存，分別是擴展名為 .frm 的窗體文件，擴展名為 bas 的標

23、準模塊文件，擴展名為 .cls 的類模塊文件和擴展名為 .vbp 的工程文件。Visual Basic程序開發(fā)有三種模式，即 設(shè)計 模式、 運行 模式和 中斷 模式。Visual Basic中設(shè)置斷點的按鍵是 F9 ，逐語句調(diào)試的語句是 F8 。Visual Basic中的程序錯誤類型主要有編譯錯誤、 實時錯誤 和 邏輯錯誤 三種。Visual Basic應(yīng)用程序即工程文件通常由三類模塊組成，即窗體模塊、標準模塊和類模塊。窗體模塊包含 窗體 和 代碼 兩部分。 標準模塊 完全由代碼組成，這些代碼不與具體的對象相關(guān)聯(lián)，一般用來定義全局變量和公用過程和函數(shù)。 類模塊 用于自定義類。在Visual

24、Basic中將多重窗體程序中第一個被裝載內(nèi)存的窗體稱為 啟動窗體 。創(chuàng)建第一個按鈕控件對象時，系統(tǒng)自動為其“Name”屬性分配一個名字，該名字為 Command1 。為了在運行時把當(dāng)前路徑下的圖形文件picturefile.jpg裝入圖片框Picture1，所使用的語句為 Picture1. Picture = LoadPrcture(“picturefile.jpg”) 。在Visual Basic中，每個菜單項都是一個圖形控件對象，所以它們也有一些與其他控件類似的屬性， 標題 就相當(dāng)于其他控件的Caption屬性，而 名稱 就相當(dāng)于Name屬性。在Visual Basic菜單中設(shè)置顯示一條

25、分割線的操作是 在【菜單編輯器】的標題欄中，輸入一個“-” 。在Visual Basic中，文件系統(tǒng)控件包括 驅(qū)動器列表框（DriveListBox） 、 目錄列表框（DirListBox） 和文件列表框（FileListBox）。三者協(xié)同操作可以訪問任意位置的目錄和文件，可以進行文件系統(tǒng)的人機交互管理。每次重新設(shè)置驅(qū)動器列表框的Drive屬性時，都將引發(fā) Change 事件?？稍谠撌录^程中編寫代碼修改目錄列表框的路徑，使目錄列表框內(nèi)容隨之發(fā)生改變。對驅(qū)動器列表框來說，每次重新設(shè)置驅(qū)動器列表框的 Drive 屬性時，將引發(fā)Change事件；對目錄列表框來說，當(dāng) Path 屬性值改變時，將引發(fā)

26、Change事件；對于文件列表框，重新設(shè)置的 Path 屬性，將引發(fā)Change事件。執(zhí)行指令“Line (200,200) Step (500,500)”后，CurrentX 700 。執(zhí)行指令“Line (200,200) (500,500)”后，CurrentX 500 。將圖片框PictureBox的AutoSize屬性設(shè)置成 Ture 時，圖片框能自動調(diào)整大小，以適應(yīng)其中的圖片。Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本信息，可使用 Label 控件；若允許用戶輸入文本，則應(yīng)使用 TextBox 控件。按文件的存取方式，可將文件分為順序文件

27、、 隨機文件 和 二進制文件 。ADO模型中一般可通過Connection對象的 Execute 方法執(zhí)行增加、刪除、修改操作。使用ADO模型時，建立Recordset和Connection對象連接的屬性是 ActiveConnection 。ADO數(shù)據(jù)模型中一般可通過Connection對象的 Execute 方法對數(shù)據(jù)庫中的基本表進行增加、刪除、修改等不返回結(jié)果集的操作。三、程序閱讀題閱讀以下程序，寫出其功能。Private Sub cmdWhy_Click() cmdWhy為命令按鈕，lblHelloVB為標簽，txtHelloVB為文本框lblHelloVB .Caption = 為什

28、么學(xué)VB txtHelloVB = （1）VB簡單易學(xué)，開發(fā)效率高，通用性強，用途廣泛。 _+ vbCrLf + vbCrLf + （2）VB是國內(nèi)外最流行的程序設(shè)計語言之一， _+ 也是學(xué)習(xí)開發(fā)Windows應(yīng)用程序首選的程序設(shè)計語言。End Sub該程序功能：單擊cmdWhy按鈕，在lblHelloVB標簽顯示“為什么學(xué)VB”，在txtHelloVB文本框顯示以下內(nèi)容：1VB簡單易學(xué)，開發(fā)效率高，通用性強，用途廣泛。2VB是國內(nèi)外最流行的程序設(shè)計語言之一，也是學(xué)習(xí)開發(fā)Windows應(yīng)用程序首選的程序設(shè)計語言。閱讀以下程序，寫出其功能。Private Sub cmdWhat_Click()

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

30、發(fā)多媒體、數(shù)據(jù)庫網(wǎng)絡(luò)和圖形等多方面的應(yīng)用程序；可以開發(fā)個人使用或小組使用的小工具、大型企業(yè)應(yīng)用系統(tǒng)以及遍及全球的分布式應(yīng)用程序。閱讀以下程序，寫出其功能。Private Sub cmdHow_Click() cmdHow為命令按鈕，lblHelloVB為標簽，txtHelloVB為文本框lblHelloVB .Caption = 如何學(xué)好VBtxtHelloVB = （1）從實際應(yīng)用程序的開發(fā)過程中學(xué)習(xí)VB程序設(shè)計。 _+ vbCrLf + vbCrLf + （2）學(xué)會分析問題和解決問題的思路、 _+ 算法設(shè)計和實現(xiàn)方法。 + vbCrLf + vbCrLf _+ （3）學(xué)會利用MSDN資源。

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

32、m 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 intTemp = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfintA

33、nswer = intOp1 - intOp2Case 3strOprator = : intAnswer = intOp1 * intOp2Case 4strOprator = If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfIf intOp1 Mod intOp2 0 ThenintOp1 = intOp1 - intOp1 Mod intOp2End IfEnd Select lblQuestion為標簽lblQuestion.Caption = intOp1 & & strOp

34、rator & & intOp2 & = End Sub該程序是一個隨機出題的過程。隨機產(chǎn)生兩個10以內(nèi)的操作數(shù)，隨機產(chǎn)生一個操作符（+、）。如果是減法和除法時，第一操作數(shù)小于第二操作數(shù)時交換兩個操作數(shù)，且如果是除法則同時減去兩數(shù)相除所得的余數(shù)。最后在標簽lblQuestion上顯示題目。閱讀以下程序，寫出其功能。Public Function Avg_mark(MarkArray() As Single) As Single Dim sngSum As Single, i As Integer , n As IntegersngSum = 0n = UBound(MarkArray) For

35、 i = 0 To nsngSum = sngSum + MarkArray(i) Next iAvg_mark = sngSum / n End Function該程序是一個求平均值的函數(shù)。以一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù)，接著求出數(shù)組所有元素的和，最后得出該數(shù)組的平均值。閱讀以下程序，寫出其功能。Public Function Max_Mark(MarkArray() As Single) As Single Dim sngMax As Single , i As Integer , n As IntegersngMax = 0n = UBound(MarkArray) F

36、or i = 0 To nIf MarkArray(i) sngMax Then sngMax = MarkArray(i) Next iMax_Mark = sngMax End Function該程序是一個求最大值的函數(shù)。以一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù)，接著逐個比較，求出數(shù)組元素的最大值。閱讀以下程序，寫出其功能。Public Function Pass_Mark(MarkArray() As Single) As SingleDim intCount As Integer, i As Integer , n As IntegerintCount = 0n = UBoun

37、d(MarkArray) For i = 0 To nif MarkArray(i) = 60 Then intCount = intCount + 1 Next iPass_Mark = intCount / nEnd Function該函數(shù)的功能是求一組數(shù)中大于等于60的數(shù)的比例。以一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù)，接著逐個比較，求出數(shù)組元素中大于等于60的數(shù)的個數(shù)，最后求出其比例。閱讀以下程序，寫出其功能。Private Sub Sort_Mark(MarkArray() As Single)Dim sngMtemp As SingleDim i As Integer ,

38、n As Integer , k As Integer,j As Integern = UBound(MarkArray) For i = 0 To n 1 k = iFor j = i + 1 To nIf MarkArray(j) MarkArray(k) Then k = jNext jsngMtemp = MarkArray(k)MarkArray(k) = MarkArray(i)MarkArray(i) = sngMtempNext iEnd Sub該過程的功能是把一組數(shù)按從大到小排序。以一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組元素的個數(shù)，接著逐個比較，求出數(shù)組元素中的最大值和第一個元

39、素交換位置；求出次大值和第二個元素交換位置；依次類推，完成從大到小排序。閱讀以下程序，寫出其功能。Private Sub changecolor()Dim r As Integer , 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 = hs

40、bBlue.Value x = RGB(r, g, b) frmMain.BackColor = x End Sub該過程的功能是用紅色、綠色、藍色三個滾動條調(diào)節(jié)窗體底色。先把紅色、綠色、藍色三個滾動條的Min屬性設(shè)置為0、Max屬性設(shè)置為255，接著用取出三個滾動條的Value屬性值，用RGB函數(shù)產(chǎn)生一個由紅、綠、藍三個Value屬性值混合而成的新顏色，并作為窗體底色。閱讀以下程序，寫出其功能。Public ADOcn As ConnectionPublic Sub Main()Dim strAccess As StringstrAccess=Provider=Microsoft.Jet.O

41、LEDB.4.0;Data Source=d: xs.mdbIf ADOcn Is Nothing ThenSet ADOcn = New ConnectionADOcn.Open strAccess End IffrmMain.Show frmMain為窗體End Sub該段程序的功能是建立數(shù)據(jù)庫的連接。實現(xiàn)與D盤根目錄下的文件名為xs.mdb 的Access數(shù)據(jù)庫的連接，同時顯示frmMain窗體。閱讀以下程序，寫出其功能。Public ADOcn As ConnectionPublic ADOrs As New RecordsetPrivate Sub cmdAdd_Click()Dim

42、 strSQL As String 文本框txtNo、txtName和組合框cboSex、cboClass分別用來輸入學(xué)號、姓名、性別和班級strSQL = select * from 學(xué)生表 where 學(xué)號= + txtNo.Text + ADOrs.Open strSQL, ADOcn If Not ADOrs.EOF ThenMsgBox 該記錄已經(jīng)存在，不能繼續(xù)增加！, vbCritical + vbOKOnlyADOrs.CloseExit SubEnd IfstrSQL = insert into 學(xué)生表(學(xué)號,姓名,性別,班級)strSQL = strSQL + values(

43、 + txtNo.Text + , + txtName.Text + , strSQL = strSQL + + cboSex.Text + , txtClass.Text + )ADOcn.Execute strSQL End Sub該段程序的功能是把一個學(xué)生記錄插入到學(xué)生表中。首先查找數(shù)據(jù)表中是否存在文本框txtNo中輸入的學(xué)號，如果存在則不增加；如果不存在，則把該學(xué)生的信息記錄插入學(xué)生表中。四、程序設(shè)計題編寫一個程序。程序初始界面如圖1左圖所示，設(shè)“學(xué)習(xí)目的”、“學(xué)習(xí)方法”和“退出”命令按鈕的名稱定義為cmdAim、cmdWay和cmdExit，標簽控件的名稱定義為lblContent。

44、單擊“學(xué)習(xí)目的”按鈕，顯示如圖1的中圖所示；單擊“學(xué)習(xí)方法”命令按鈕，顯示如圖1的右圖所示；單擊“退出”按鈕時，退出程序。 圖1Private Sub cmdAim_Click() lblContent.Caption = 開發(fā)Windows應(yīng)用程序End SubPrivate Sub cmdWay_Click() lblContent.Caption = 從實際應(yīng)用程序的開發(fā)過程中學(xué)習(xí)VBEnd SubPrivate Sub cmdExit_Click() EndEnd Sub設(shè)計一個簡單的加法程序，程序界面設(shè)計如圖2所示。設(shè)第一操作數(shù)、第二操作數(shù)和計算結(jié)果文本框的名稱分別定義為txtFir

45、stNum、txtSecondNum和txtSum，“計算”命令按鈕的名稱定義為cmdSum。 圖2Private Sub cmdSum_Click() txtSum.Text = Val(txtFirstNum.Text) + Val(txtSecondNum.Text)End Sub編寫一個數(shù)制轉(zhuǎn)換程序，運行界面如圖3所示。設(shè)三個文本框的名稱框定義分別為TxtDec、TxtHex和TxtOct。實現(xiàn)在第一個文本框中輸入十進制數(shù)后，第二個文本框自動顯示該數(shù)對應(yīng)的十六進制數(shù)，第三個文本框自動顯示該數(shù)對應(yīng)的八進制數(shù)。提示：利用文本框的Change事件和轉(zhuǎn)換函數(shù)Hex、Oct。圖3Private

46、Sub TxtDec_Change() TxtHex.Text = Hex(Val(TxtDec.Text) TxtOct.Text = Oct(Val(TxtDec.Text)End Sub編寫一個猜數(shù)字程序。程序產(chǎn)生一個隨機數(shù)，由用戶來猜這個數(shù)，并提示用戶猜的數(shù)是否太大或太小，程序運行界面如4所示，設(shè)輸入文本框的名稱框定義為TxtAnswer，神秘的數(shù)、評價標簽控件的名稱框定義為lblComment和lblNum，“確定”命令按鈕的名稱定義為cmdOk。 圖4Dim intNum As Integer 用于存放“神秘的數(shù)”Dim intCount As Integer 用于猜數(shù)計數(shù)Priv

47、ate Sub cmdOk_Click() intCount = intCount + 1 計數(shù) If Val(txtAnswer.Text) = intNum Then 猜對 lblComment.Caption = 猜對了！你一共猜了 & intCount & 次 lblNum.Caption = intNum ElseIf Val(txtAnswer.Text) intNum Then lblComment.Caption = 太大了！ Else lblComment.Caption = 太小了！ End IfEnd SubPrivate Sub Form_Load() Randomiz

48、e intNum = Int(Rnd * 1000 + 1)End Sub編寫一個判斷閏年的程序。判斷平年、閏年方法：凡是能被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 intY

49、ear & 年是閏年 Else MsgBox intYear & 年是平年 End IfEnd Sub編寫一個列表框應(yīng)用程序，程序界面如圖5所示。設(shè)“添加”、“刪除”和“修改”按鈕的名稱定義為cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名稱為默認。要求從文本框輸入姓名，然后按“添加”按鈕把姓名添加到列表框中；當(dāng)選擇列表框中某一項時，按“刪除”按鈕，從列表框中刪除；當(dāng)選擇列表框中某一項時，按“修改”按鈕，把列表框中選取的項送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認”。在文本框的內(nèi)容修改好后，按“修改確認”按鈕，再把文本框中修改的信息送到列表框且“修改確認”按鈕變?yōu)椤靶薷摹薄D5P

50、rivate Sub cmdAdd_Click() List1.AddItem Text1.Text Text1.Text = End SubPrivate Sub cmdDel_Click() List1.RemoveItem List1.ListIndex Text1.Text = End SubPrivate Sub cmdUpdate_Click() If cmdUpdate.Caption = 修改 Then Text1.Text = List1.List(List1.ListIndex) cmdUpdate.Caption = 確認修改 Else List1.List(List1.

51、ListIndex) = Text1.Text cmdUpdate.Caption = 修改 Text1.Text = End IfEnd Sub假設(shè)在D盤驅(qū)動器上已建立了一個通信錄文件（Txl.txt），文件中的每個記錄包括編號、用戶名、電話號碼和地址等4項內(nèi)容。試編寫一個程序，實現(xiàn)能按用戶名查找，并在文本框中顯示查找結(jié)果，如圖6所示。設(shè)“查找”按鈕的名稱定義為cmdFindname，查找輸入名稱和結(jié)果文本框的名稱分別定義為txtName和txtCount，記錄條數(shù)標簽的名稱定義為lblCount。圖6設(shè)在標準模塊中已輸入以下代碼：Type Lxr intBh As Integer 編號 s

52、trXm As String * 8 姓名 strDh As String * 11 電話 strDz As String * 30 地址End TypePublic user As Lxr寫出查詢命令按鈕cmdFindname的Click事件代碼。Private Sub cmdFindname_Click() Dim i As Integer, intCount As Integer, intRecordNum As Integer Dim strComp1 As String, strComp2 As String txtCount.Text = 編號 姓名 電話 地址 + vbCrLf

53、intCount = 0 Open d:txl.txt For Random As #1 Len = Len(user) intRecordNum = LOF(1) / Len(user) For i = 1 To intRecordNum Get #1, i, user strComp1 = Trim(txtName.Text) strComp2 = Trim(Replace(user.strXm, Chr(0), ) 比較輸入的姓名和文本中的姓名是否一致 If StrComp(strComp1, strComp2) = 0 Then intCount = intCount + 1 Get

54、#1, i, user msg = Str(Bh) + + user.strXm + user.strDh + user.strDz msg = Replace(msg, Chr(0), ) txtCount.Text = txtCount.Text + msg + Chr(13) + Chr(10) End If Next i Close #1 lblCount.Caption = 一共找到 + Str(intCount) + 條記錄 If intCount = 0 Then MsgBox 沒有該記錄, vbInformation, 提示 End IfEnd Sub編寫一個函

55、數(shù)圖形程序。用Pset方法在圖形框Picture1內(nèi)繪制y=Cosx在-到之間的圖形，運行結(jié)果圖7所示。設(shè)所有控件使用默認名稱。圖7Const pi = 3.1415926Dim x As SinglePrivate Sub Command1_Click() Picture1.DrawWidth = 2 For x = -pi To pi Step 0.001 Picture1.PSet (x, Cos(x) Next xEnd SubPrivate Sub Form_Load() Picture1.Scale (-4, 2)-(4, -2) Picture1.Line (0, 2)-(0, -2) Picture1.Line (-4, 0)-(4, 0) Picture1.Line (-pi, 0.1)-(-pi, 0) CurrentX = -pi: CurrentY = -0.2: Picture1.Print - Picture1.Line (-pi / 2, 0.1)-(-pi / 2, 0) Picture1.Line (pi / 2, 0.1)-(pi / 2, 0) Picture1.Line (pi, 0.1)-(pi, 0) CurrentX = pi: Cu