電大Visual_Basic程序設(shè)計考試資料已整理排版

1、 Visual Basic程序設(shè)計一、單項選擇題14.、 /、 Mod 、 *四個算術(shù)運算符中，優(yōu)先級別最低的是（C）。 C ModA 58. ADO 控件屬于 ActiveX 控件，使用之前必須加載 Microsoft ADO Data Conctrol 6.0 （OLE DB ），將 ADO 控件添加到工具箱中。添加 ADO 控件的菜單為（B）。 B “工程”“部件”B 17. 表達(dá)式 4+5 6 * 7 / 8 Mod 9 的值是（B）。B 5C 4. 以下控件中，（ A ）控件不會影響到界面設(shè)計效果。A 計時器C9.（ C ）控件不具有 Caption屬性。 CTextBoxC33.菜

2、單編輯器中，同層次的（B ）屬性值設(shè)置為相同，才可以設(shè)置索引值。B NameC44.程序運行時，驅(qū)動器列表框下列（A ）屬性能返回磁盤驅(qū)動器的名稱。A DriveD37.當(dāng)單擊工具欄上的按鈕，會觸發(fā)的事件是（A ）。 A ButtonClickD64.多媒體控件（ MMControl ）具有一組執(zhí)行 MCI 命令的下壓式按鈕。其中Record 按鈕表示為（B ）。 B錄制G10.改變控件在窗體中的上下位置，應(yīng)設(shè)置控件的（A ）屬性。 A TopG46.改變驅(qū)動器列表框的 Drive 屬性值將激活其（A ）事件。 A ChangeH18.函數(shù) Int(Rnd*10) 是在（ C）范圍內(nèi)的整數(shù)。

3、C 0, 10 ）J13.假設(shè)已定義 Integer 變量 x、 y，則以下賦值語句正確的是（C）。 C y = x + yJ40.檢測文件是否結(jié)束的函數(shù)是（C）。 C EOF()J57.鍵盤事件的執(zhí)行順序是（B）。 B KeyDown ， KeyPress， KeyUpJ62.決定系統(tǒng)是否自動檢測多媒體控件（MMControl ）各按鈕的狀態(tài)的屬性是（B）。 B AutoEnableJ63.將多媒體控件（ MMControl ）的 Frames屬性設(shè)為 3，則以下敘述正確的是（A）。 A 指定 Back 或 Step 命令后退或前進(jìn)的幀數(shù)都為3K26.可通過（ C）屬性判斷 ListBox列

4、表框控件的工程總數(shù)目。C ListcountL25.ListBox 中若沒有任何條目選中，其ListIndex 屬性值為（A）。 A -1L27.列表框的（ B ）屬性用于返回或設(shè)置列表框中各列表項的文本。B ListL54.Line （100， 100） -Step（400， 400）將在窗體中的（ C）畫一條直線。 C（ 100，100）到（ 500，500）L59.利用 ADO 訪問數(shù)據(jù)庫，首先要創(chuàng)建一個（A ）對象，用于建立和數(shù)據(jù)庫的連接。A Connection 對象M34.每創(chuàng)建一個頂級菜單，它的下面最多可以有（C ）級子菜單。 C 5N24.能通過（ D ）來刪除列表框中的選擇項

5、。D RemoveItem 方法R1.如果要設(shè)置窗體的標(biāo)題欄，應(yīng)選擇（B ）屬性。B CaptionR30.若要把“ XXX ”添加到列表框List1 中的第三項，則可執(zhí)行語句（B ）。 B List1.AddItem "XXX", 2R36.如果要在程序中顯示一個彈出菜單，需調(diào)用（D ）方法。 D PopupMenuR 55. RGB 函數(shù)通過紅、綠、藍(lán)三基色混合產(chǎn)生某種顏色，若使用三個滾動條分別輸入三種基色，為保證輸入數(shù)值有效，則應(yīng)設(shè)置滾動條的（ A ）屬性。 A Max 和 MinR56.如果在圖片框上使用繪圖方法繪制一個圓，則圖片框的（B）屬性決定了該圓的顏色。B

6、ForeColorS2.要使命令按鈕不響應(yīng)用戶生成的事件，應(yīng)設(shè)置命令按鈕的（D ）屬性。 D EnabledS3.要使標(biāo)簽?zāi)芡赋龃绑w的背景，應(yīng)設(shè)置標(biāo)簽的（A）屬性。 A BackStyleS28.設(shè) List1 為列表框控件， List1.Clear 中的 Clear 是（A）。 A方法S41.要讀出 C 盤根目錄下順序文件 stud.txt 內(nèi)容，下列打開方式（ C）。 COpen " C:stud.txt" For Input As #1S 42. 隨機(jī)文件使用（ C ）語句寫數(shù)據(jù)。 C PutS 43. 隨機(jī)文件使用（ D ）語句讀數(shù)據(jù)。 D GetS47.使用目錄列

7、表框的（B ）屬性可以返回或設(shè)置當(dāng)前工作目錄的完整路徑（包括驅(qū)動器盤符）。B PathS51.要向圖片框 picP 中加載“ d:hainanzhiwu.bmp ”圖像文件，應(yīng)使用語句（C ）。Sc picP.Picture=LoadPicture("d:hainanzhiwu.bmp")60.SQL 語言的 Select 語句中，用于分組的語句為（B ）。 B group byW7.某計時器控件的 interval 屬性為 0 時，表示（ A）。 A計時器關(guān)閉計時W11.文本框中選定的內(nèi)容，由下列（C ）屬性反映。 C Seltext1/13W65.為了使多媒體控件（ M

8、MControl ）中的錄制按鈕不顯示，應(yīng)添加代碼（C ）。 C MMControl1.RecordVisible=WFalse67.Windows Media Player 控件的 UiMode 屬性，表示播放器界面模式，以下選項是播放器模式的屬性值是（D）。XD以上都是15.下列哪組語句可以將變量A 、B 值互換（ B ）。 B A=A+B : B=AB: A=A BX 19. 下面（ A ）運算符是算術(shù)運算符。 A ModX38.下列可以用來存儲圖像可以供其它控件使用的控件是（C ）。 C ImageListX50.下面對象中不能作為容器的是（B）。 B Image 控件X53.下列圖形

9、中不能使用 Shape控件繪制的是（B ）。 B三角形X21.下面程序段運行后，顯示的結(jié)果是（B ）。 B1DimintX As IntegerIf intX ThenPrintintXElsePrintintX + 1End IfY22.以下程序的輸出結(jié)果是（C）。 C 10Dim a, i%, sum%a = Array(4, 3, 2, 1)For i = 0 To 3sum = sum + a(i)Next iPrint sumY16.以下語句的輸出結(jié)果是（C）。 Print Format (32548.5, “ 000,000.00” )C032,548.50Y20.已知三個變量 A

10、 、B、 C，判斷 A 、B 、 C 能否構(gòu)成三角形的邏輯表達(dá)式為（B）。 B A + C >= B And A +YB >= C And B + C >= A29.以下（ D ）語句將刪除列表框List1 中的最后一項。 D List1.RemoveItem List1.ListCount-1Y 31. 用戶可以通過設(shè)置菜單項的（C ）屬性值為 False 來使該菜單項失效。 C EnabledY 32. 用戶可以通過設(shè)置菜單項的（B ）屬性值設(shè)置為 False 來使該菜單項不可見。 B VisibleY45.要用通用對話框控件顯示標(biāo)準(zhǔn)的“字體”對話框，應(yīng)調(diào)用其（C ）方法

11、。 C ShowFontY61.以下四個控件，不屬于數(shù)據(jù)綁定控件的是（C ）。 C Option 控件Z5.在 Visual Basic 中，一般（ B ）屬性用來設(shè)置字體的顏色。B ForeColorZ6.在 VB 中斷模式下，可用調(diào)試窗口監(jiān)視表達(dá)式和變量的值，其中在（A ）窗口中可以直接鍵入命令以顯示命令所請求的信息。A 立即Z 8. 在窗體 Form1 的 Click 事件過程中有以下語句： Label1.Caption="Visual Basic" 若本語句執(zhí)行之前，標(biāo)簽控件的Caption 屬性為默認(rèn)值，則標(biāo)簽控件的Name 屬性和 Caption 屬性在執(zhí)行本語

12、句之前的值分別為（B）。B Label1和 Label1Z12.在 Visual Basic 中，變量的默認(rèn)類型是（D ）。D VariantZ23.在過程中定義的變量，若希望在離開該過程后，還能保存過程中局部變D Static量的值，則應(yīng)使用（D ）關(guān)鍵字在過程中定義局部變量。Z35.在設(shè)計菜單時，為了創(chuàng)建分隔欄，要在（B ）中輸入字符（ -）。 B標(biāo)題欄Z39.在 Visual Basic 中按文件的訪問方式不同，可以將文件分為（B ）。 B 順序文件、隨機(jī)文件和二進(jìn)制文件Z 48. 在隨機(jī)文件中（ D ）。 D可以通過記錄號隨機(jī)讀取記錄Z49.執(zhí)行語句 Open "C ： St

13、ud.txt" For Input As #2后，系統(tǒng)（ C）。 C打開 C 盤當(dāng)前文件夾下名為Stud.txt 的文件，用來讀取文件內(nèi)容Z52.執(zhí)行 Form1.Scale（ 0, 10） -（10, -10）語句， Form1 窗體坐標(biāo)系 x 軸和 y 軸的正方向是（ A ） A 向右和向Z 66. 在多媒體控件（ MMControl ）中， DeviceType 屬性用于設(shè)置多媒體設(shè)備的類型，如果將要播放的文件是 CD 歌曲，應(yīng)將 DeviceType 屬性設(shè)置為（ D ）。D CDAudioZ68.在 Windows Media Player 控件中，決定播放文件是否全屏的屬

14、性是（A）。 A FullScreen二、填空題A 33.按文件的存取方式，可將文件分為順序文件、隨機(jī)文件和二進(jìn)制文件。2/13A34.ADO 模型中一般可通過 Connection 對象的 Execute方法執(zhí)行增加、刪除、修改操作。使用ADO 模型時，建立Recordset 和 Connection 對象連接的屬性是ActiveConnection。A35.ADO 數(shù)據(jù)模型中一般可通過Connection 對象的 Execute方法對數(shù)據(jù)庫中的基本表進(jìn)行增加、刪除、修改等不返回結(jié)果集的操作。C22.創(chuàng)建第一個按鈕控件對象時，系統(tǒng)自動為其“Name”屬性分配一個名字，該名字為Command1

15、 。D28.對驅(qū)動器列表框來說，每次重新設(shè)置驅(qū)動器列表框的Drive屬性時，將引發(fā)Change 事件；對目錄列表框來說，當(dāng)JPath 屬性值改變時，將引發(fā)Change事件；對于文件列表框，重新設(shè)置的Path屬性，將引發(fā) Change 事件。4. 將 1x <12 寫成 Visual Basic 邏輯表達(dá)式x>=1 And x<12。J14 基本程序控制結(jié)構(gòu)可以分為順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)3 種。J 31.將圖片框 PictureBox 的 AutoSize 屬性設(shè)置成 Ture 時，圖片框能自動調(diào)整大小，以適應(yīng)其中的圖片。L6.Left ("abcd"

16、,2) 函數(shù)的返回值是ab 。 Right("abcd",2) 函數(shù)的返回值是cd 。L32.Label 和 TextBox 控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本信息，可使用Label控件；若允許用戶輸入文本，則應(yīng)使用TextBox 控件。M27.每次重新設(shè)置驅(qū)動器列表框的Drive 屬性時，都將引發(fā)Change 事件?？稍谠撌录^程中編寫代碼修改目錄列表框的路徑，使目錄列表框內(nèi)容隨之發(fā)生改變。S 9. 數(shù)組的類型可以是基本數(shù)據(jù)類型，也可以是用戶自定義的記錄類型。如果省略類型說明，數(shù)組會被設(shè)置為默認(rèn)的變體類型（ Variant ）。數(shù)組中各個元素在定

17、義時如果是數(shù)值類型就被默認(rèn)初始化為0 ，如果是字符串類型就被初始化為空字符串。1S1.數(shù)學(xué)表達(dá)式x2y2cox2x+ 寫成等價的Visual Basic 表達(dá)式為 cos(x)2+Sqr(x2-y2)/220S2.數(shù)學(xué)表達(dá)式寫成等價10的 cosVisual50 Basic 表達(dá)式為10(1/2)*cos(50*3.14/180) 或者 Sqr(10)*cos(50*3.14/180)S3.數(shù)學(xué)式子 s( s a)( s b)( sc) 對應(yīng)的 Visual Basic 運算表達(dá)式是：Sqr(s*(s-a)*(s-b)*(s-c)13.Visual Basic 中變量依據(jù)其作用域不同可以分為過

18、程級變量（局部變量）、模塊級變量和全局變量3 類。過程V 級變量就是指在事件過程或通用過程內(nèi)定義的變量，它的作用域就是其所在的過程。模塊級變量包括窗體級模塊變量和標(biāo)準(zhǔn)模塊級變量。窗體模塊變量的作用域是窗體內(nèi)的所有過程，標(biāo)準(zhǔn)模塊變量的作用域是模塊內(nèi)的所有過程。全局變量的作用域是整個工程中所有的模塊和所有的過程。16.Visual Basic 一般用 4 種類型的文件保存，分別是擴(kuò)展名為.frm的窗體文件，擴(kuò)展名為bas的標(biāo)準(zhǔn)模塊文件，擴(kuò)展名為 .cls的類模塊文件和擴(kuò)展名為.vbp的工程文件。V 17. Visual Basic 程序開發(fā)有三種模式，即設(shè)計模式、運行模式和中斷模式。V18.Vis

19、ual Basic 中設(shè)置斷點的按鍵是F9，逐語句調(diào)試的語句是F8。V 19. Visual Basic 中的程序錯誤類型主要有編譯錯誤、實時錯誤和邏輯錯誤三種。20. Visual Basic 應(yīng)用程序即工程文件通常由三類模塊組成，即窗體模塊、標(biāo)準(zhǔn)模塊和類模塊。窗體模塊包含窗體 V 和代碼兩部分。標(biāo)準(zhǔn)模塊完全由代碼組成，這些代碼不與具體的對象相關(guān)聯(lián)，一般用來定義全局變量和公用過程和函數(shù)。類模塊用于自定義類。W 23.為了在運行時把當(dāng)前路徑下的圖形文件picturefile.jpg裝入圖片框 Picture1 ，所使用的語句為Picture1.YPicture = LoadPrcture(“

20、picturefile.。jpg” )5.已知 a=3,b=4,c=5, 表達(dá)式 a>b and Not c>a Or c>b And c<a+b 的值是True。Y8.有變量定義語句“ Dim Str1,Str2 As String *10”，其中 Str1 變量的類型應(yīng)為變體型，其中Str2 變量的類型應(yīng)為字符串型。Z7.在 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)。Z10.在 Visual Basic 中，數(shù)組默認(rèn)的下標(biāo)下界是0

21、，如果希望從 1 開始，可以使用Option Base n 語句語句來設(shè)置。Z11.在缺省情況下，用Dim A(5,5) 語句聲明二維數(shù)組后，數(shù)組A 的元素共有36個。Z 12. 在 Visual Basic 中，參數(shù)通過按值傳遞和按地址傳遞兩種方式傳送。Z15.在 Visual Basic 語言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以事先確定，可使用For 循環(huán)；若要求先判斷循環(huán)進(jìn)行的條件，可使用While 循環(huán)或 Do 循環(huán)。Z21.在 Visual Basic 中將多重窗體程序中第一個被裝載內(nèi)存的窗體稱為啟動窗體。3/13Z24.在 Visual Basic 中，每個菜單項都是一個

22、圖形控件對象，所以它們也有一些與其他控件類似的屬性，標(biāo)題就相當(dāng)于其他控件的 Caption 屬性，而名稱就相當(dāng)于 Name 屬性。Z25.在 Visual Basic 菜單中設(shè)置顯示一條分割線的操作是在【菜單編輯器】的標(biāo)題欄中，輸入一個“-” 。Z26.在 Visual Basic 中，文件系統(tǒng)控件包括驅(qū)動器列表框（DriveListBox ）、目錄列表框（DirListBox ）和文件列表框（ FileListBox ）。三者協(xié)同操作可以訪問任意位置的目錄和文件，可以進(jìn)行文件系統(tǒng)的人機(jī)交互管理。Z29.執(zhí)行指令“ Line (200,200) Step (500,500) ”后， Curre

23、ntX 700 。Z 30. 執(zhí)行指令“ Line (200,200) (500,500) ”后， CurrentX 500 。三、 程序閱讀題Y 閱讀以下程序，寫出其功能。Private Sub cmdWhy_Click()' cmdWhy 為命令按鈕， lblHelloVB 為標(biāo)簽， txtHelloVB 為文本框 lblHelloVB.Caption = " 為什么學(xué) VB"txtHelloVB = "（ 1）VB 簡單易學(xué)，開發(fā)效率高，通用性強(qiáng)，用途廣泛。" _+ vbCrLf + vbCrLf + "（ 2） VB 是國內(nèi)外最

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

25、oVB為文本框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 標(biāo)簽顯示“ VB 能干什么”，在 txtHelloVB 文本框顯示以下

26、內(nèi)容：VB 能快速實現(xiàn)用戶界面的設(shè)計、文字和圖形圖像的處理以及數(shù)據(jù)庫的使用，能開發(fā)多媒體、數(shù)據(jù)庫網(wǎng)絡(luò)和圖形等多方面的應(yīng)用程序；可以開發(fā)個人使用或小組使用的小工具、大型企業(yè)應(yīng)用系統(tǒng)以及遍及全球的分布式應(yīng)用程序。Y 閱讀以下程序，寫出其功能。Private Sub cmdHow_Click()' cmdHow 為命令按鈕，lblHelloVB為標(biāo)簽， txtHelloVB為文本框lblHelloVB .Caption = "如何學(xué)好 VB"txtHelloVB = "（ 1）從實際應(yīng)用程序的開發(fā)過程中學(xué)習(xí)VB 程序設(shè)計。 " _+ vbCrLf +

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

28、和實現(xiàn)方法。（ 3）學(xué)會利用 MSDN 資源。（ 4） 養(yǎng)成良好的編程習(xí)慣。Y 閱讀以下程序，寫出其功能。Sub newQuestion()Dim intOp1 As Integer, intOp2 As Integer,intTemp As IntegerDim strOprator As StringDim intOpratorNum As IntegerRandomizeintOp1 = Int(10 * Rnd + 1)intOp2 = Int(10 * Rnd + 1)intOpratorNum = Int(4 * Rnd + 1)Select Case intOpratorNumC

29、ase 1strOprator = "+": intAnswer = intOp1 + intOp2Case 2strOprator = " ":If intOp1 < intOp2 ThenintTemp = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfintAnswer = intOp1 - intOp2Case 3strOprator = "": intAnswer× = intOp1 * intOp2Case 4strOprator = ""

30、÷If intOp1 < intOp2 ThenintTemp = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfIf intOp1 Mod intOp2 <> 0 ThenintOp1 = intOp1 - intOp1 Mod intOp2End IfEnd Select' lblQuestion 為標(biāo)簽lblQuestion.Caption = intOp1 & " " & strOprator & " " & intOp2 &

31、; " = "End Sub該程序是一個隨機(jī)出題的過程。隨機(jī)產(chǎn)生兩個10 以內(nèi)的操作數(shù)，隨機(jī)產(chǎn)生一個操作符（+、 ×、 ÷）。如果是減法和除法時，第一操作數(shù)小于第二操作數(shù)時交換兩個操作數(shù)，且如果是除法則同時減去兩數(shù)相除所得的余數(shù)。最后在標(biāo)簽 lblQuestion 上顯示題目。Y 閱讀以下程序，寫出其功能。5/13Public Function Avg_mark(MarkArray() As Single) As SingleDim sngSum As Single, i As Integer , nAs IntegersngSum = 0n = UBo

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

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

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

35、ngleDim i As Integer , nAs Integer , k As Integer,j As Integern = UBound(MarkArray)For i = 0 To n 1k = iFor j = i + 1 To nIf MarkArray(j) > MarkArray(k) Then k = jNext j6/13sngMtemp = MarkArray(k)MarkArray(k) = MarkArray(i)MarkArray(i) = sngMtempNext iEnd Sub該過程的功能是把一組數(shù)按從大到小排序。以一個單精度的數(shù)組作為參數(shù)，先求出數(shù)組

36、元素的個數(shù)，接著逐個比較，求出數(shù)組元素中的最大值和第一個元素交換位置；求出次大值和第二個元素交換位置；依次類推，完成從大到小排序。Y 閱讀以下程序，寫出其功能。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=0hsbRed.Max=255: hsbGreen.Max=255 : hsbBlue.Max=255r = hsb

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

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

39、 cmdAdd_Click()Dim strSQL As String'文本框 txtNo 、 txtName 和組合框cboSex、 cboClass'分別用來輸入學(xué)號、姓名、性別和班級7/13strSQL = "select * from學(xué)生表 where 學(xué)號 ='" + txtNo.Text + "'"ADOrs.Open strSQL, ADOcnIf Not ADOrs.EOF ThenMsgBox " 該記錄已經(jīng)存在，不能繼續(xù)增加！", vbCritical + vbOKOnlyADOrs

40、.CloseExit SubEnd IfstrSQL = "insert into學(xué)生表 (學(xué)號 ,姓名 ,性別 ,班級 )"strSQL = strSQL + " values('" + txtNo.Text + "','" + txtName.Text + "'," strSQL = strSQL +"'" + cboSex.Text + "','"txtClass.Text + "')"

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

42、mdAim_Click()lblContent.Caption = " 開發(fā) Windows 應(yīng)用程序 "End SubPrivate Sub cmdWay_Click()lblContent.Caption = " 從實際應(yīng)用程序的開發(fā)過程中學(xué)習(xí)VB"End SubPrivate Sub cmdExit_Click()EndEnd SubB編寫一個數(shù)制轉(zhuǎn)換程序，運行界面如圖3 所示。設(shè)三個文本框的名稱框定義分別為TxtDec 、TxtHex 和 TxtOct 。實現(xiàn)在第一個文本框中輸入十進(jìn)制數(shù)后，第二個文本框自動顯示該數(shù)對應(yīng)的十六進(jìn)制數(shù)，第三個文本框自

43、動顯示該數(shù)對應(yīng)的八進(jìn)制數(shù)。提示：利用文本框的 Change 事件和轉(zhuǎn)換函數(shù) Hex、 Oct 。8/13Private Sub TxtDec_Change()TxtHex.Text = Hex(Val(TxtDec.Text)TxtOct.Text = Oct(Val(TxtDec.Text)End SubB 編寫一個猜數(shù)字程序。程序產(chǎn)生一個隨機(jī)數(shù)，由用戶來猜這個數(shù)，并提示用戶猜的數(shù)是否太大或太小，程序運行界面如 4 所示，設(shè)輸入文本框的名稱框定義為TxtAnswer ，神秘的數(shù)、評價標(biāo)簽控件的名稱框定義為lblComment 和 lblNum ，“確定”命令按鈕的名稱定義為cmdOk 。Di

44、m intNum As Integer' 用于存放“神秘的數(shù)”Dim intCount As Integer' 用于猜數(shù)計數(shù)Private Sub cmdOk_Click()intCount = intCount + 1 ' 計數(shù)If Val(txtAnswer.Text) = intNum Then'猜對lblComment.Caption = " 猜對了！你一共猜了" & intCount & "次 "lblNum.Caption = intNumElseIf Val(txtAnswer.Text) &

45、gt; intNum ThenlblComment.Caption = " 太大了！ "ElselblComment.Caption = " 太小了！ "End IfEnd SubPrivate Sub Form_Load()RandomizeintNum = Int(Rnd * 1000 + 1)End SubB 編寫一個判斷閏年的程序。判斷平年、閏年方法：凡是能被4 整除但不能被100 整除的年份為閏年，如1980 年；凡是能被 400 整除的年份為閏年，如2000 年；除以上兩種情況以外的其余年份都是平年。Private Sub Command1_

46、Click()Dim intYear As Integer' 用于存放年份intYear = InputBox(" 請輸入年份 ")If intYear Mod 400 = 0 Or (intYear Mod 4 = 0 And intYear Mod 100 <> 0) ThenMsgBox intYear & " 年是閏年 "Else9/13MsgBox intYear & " 年是平年 "End IfEnd SubB 編寫一個列表框應(yīng)用程序，程序界面如圖5 所示。設(shè)“添加”、“刪除”和“修改”

47、按鈕的名稱定義為cmdAdd 、cmdDel 和 cmdUpdate ，列表框和文本框的名稱為默認(rèn)。要求從文本框輸入姓名，然后按“添加”按鈕把姓名添加到列表框中；當(dāng)選擇列表框中某一項時，按“刪除”按鈕，從列表框中刪除；當(dāng)選擇列表框中某一項時，按“修改”按鈕，把列表框中選取的項送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認(rèn)”。在文本框的內(nèi)容修改好后，按“修改確認(rèn)”按鈕，再把文本框中修改的信息送到列表框且“修改確認(rèn)”按鈕變?yōu)椤靶薷摹?。Private Sub cmdAdd_Click()List1.AddItem Text1.TextText1.Text = ""End SubPriva

48、te Sub cmdDel_Click()List1.RemoveItem List1.ListIndexText1.Text = ""End SubPrivate Sub cmdUpdate_Click()If cmdUpdate.Caption = " 修改 " ThenText1.Text = List1.List(List1.ListIndex)cmdUpdate.Caption = " 確認(rèn)修改 "ElseList1.List(List1.ListIndex) = Text1.TextcmdUpdate.Caption =

49、" 修改 "Text1.Text = ""End IfEnd SubB 編寫一個函數(shù)圖形程序。用 Pset方法在圖形框 Picture1 內(nèi)繪制 y=Cosx 在 -到 之間的圖形，運行結(jié)果圖 7 所示。設(shè)所有控件使用默認(rèn)名稱。10/13Const pi = 3.1415926Dim x As SinglePrivate Sub Command1_Click()Picture1.DrawWidth = 2For x = -pi To pi Step 0.001Picture1.PSet (x, Cos(x)Next xEnd SubPrivate Sub

50、 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: CurrentY = -0.2: Picture1.Print ""Picture1.Line (0, 1)-(0.1, 1)CurrentX = 0.3: CurrentY = 1: Picture1.Print "1"Picture1.Line (0, -1)-(0.