最新Visual-Basic程序設(shè)計(jì)期末綜合練習(xí)題一資料

1、精品文檔Visual Basic 程序設(shè)計(jì)期末綜合練習(xí)題一一、單項(xiàng)選擇題）的編程機(jī)制。1 Visual Basic 是一種面向?qū)ο蟮目梢暬幊陶Z(yǔ)言，采取了（A 從主程序開(kāi)始執(zhí)行B 按過(guò)程順序執(zhí)行C.事件驅(qū)動(dòng)D .按模塊順序執(zhí)行2.在Visual Basic中，窗體文件的擴(kuò)展名為（）。A .vbpB .frmC. .clsD. .bas3. Visual Basic6.0 集成開(kāi)發(fā)環(huán)境有三種工作模式，下列不屬于三種工作模式之一的是 ）。精品文檔Text，那么在代碼中引用該屬性的A .設(shè)計(jì)模式C.中斷模式4. 如果對(duì)象的名稱(chēng)為 正確格式是（ ）。B .編寫(xiě)代碼模式D .執(zhí)行模式Mytext ，而且

2、對(duì)象有一個(gè)屬性A. Text.MytextB. Mytext*TextC. Mytext.（Text）D . Mytext.Text5. 下列關(guān)于變量的說(shuō)法不正確的是（）。A. 局部變量在聲明它的過(guò)程執(zhí)行完畢后就被釋放了B. 局部變量的作用域僅限于聲明它的過(guò)程C. 靜態(tài)局部變量是在過(guò)程中用D. 局部變量是指那些在過(guò)程中用Static 語(yǔ)句聲明的Dim語(yǔ)句或Static語(yǔ)句聲明的變量6關(guān)于對(duì)象的屬性不正確的是（）。A .對(duì)象的屬性一般有屬性名和屬性值B .可通過(guò)屬性窗口設(shè)置屬性的值C. 可通過(guò)程序代碼設(shè)置屬性的值D.對(duì)象的所有屬性值均可在設(shè)計(jì)時(shí)設(shè)計(jì)7在設(shè)計(jì)階段，雙擊窗體上的某個(gè)控件時(shí)，打開(kāi)的窗體

3、是（）。A 工程資源管理器窗口B 工具箱窗口C.代碼編輯器窗口D .屬性窗口&要在窗體的標(biāo)題內(nèi)顯示 myfrm ”，使用的語(yǔ)句是（）。A Form.caption=myfrmC Form1.Printmyfrm9. 在VB中，下列變量名不合法的是（A fi l e_1B file C10在設(shè)計(jì)動(dòng)畫(huà)時(shí)，用時(shí)鐘控件來(lái)控制動(dòng)畫(huà)速度的屬性是（B Form1.caption=myfrmD Form.Printmyfrm）。file-1 D file_1_2）。A EnabledC IntervalB MoveD Timer11. 要從ForNext循環(huán)中退出循環(huán)，應(yīng)使用（）語(yǔ)句。A ExitB Exit

4、 For C Continue D Stop Loop12文本框 ScrollBars 屬性設(shè)置了非零值，卻沒(méi)有效果，原因是（）。A .文本框中沒(méi)有內(nèi)容B 文本框的 Locked 屬性為 TrueC.文本框的 MultiLine 屬性為T(mén)rue D.文本框的 MultiLine 屬性為False13要利用公用對(duì)話(huà)框控件來(lái)顯示“打開(kāi)文件”對(duì)話(huà)框，需要調(diào)用控件的法。CShowSaveA ShowPrinterB ShowOpen14下列賦值語(yǔ)句正確的是（）。Ax = y +zBy + z = xC-y= xD4 = x +y15確定一個(gè)控件在窗體上位置的屬性是（AWidth 和 HeightBC.

5、 Top 和 LeftD .16VB 程序中設(shè)置斷點(diǎn)的按鍵是（A. F5鍵B. F6 鍵C. F9鍵D. F10鍵17.如果希望以模態(tài)方式顯示窗體Forml，下列正確的語(yǔ)句是（BForm1.ShowC. Forml.Show 1D.以下都不正確18用語(yǔ)句 Dim A（-2To 3）As Integer 所定義的數(shù)組的元素的個(gè)數(shù)是（A3B4C5D6A Form1.Show 0DShowColor)。Width 或 HeightTop 或 Left)。）。）。）。19如果創(chuàng)建了命令按鈕的控件數(shù)組，那么Click 事件的參數(shù)是（ACaptionBTagCIndexD 沒(méi)有參數(shù)20.要向圖片框 Pic

6、turel中加載“d:hainanzhiwu.bmp ”圖像文件，應(yīng)使用語(yǔ)句()。AP1.Picture=LoadPicture(d:hainanzhiwu.bmp)BP1.Picture=LoadPicture(d:hainanzhiwu.bmp )CPicture1.Picture= d:hainanzhiwu.bmp DPicture1.Picture=LoadPicture(d:hainanzhiwu.bmp )2 1 如果要在窗體代碼編輯器的”通用”部分定義私有 Sub 過(guò)程，則正確的語(yǔ)句是( )。APublic SubBPrivate SubCPublic FunctionDPri

7、vate Function22在代碼編輯器中，如果一條語(yǔ)句太長(zhǎng)，無(wú)法在一行內(nèi)寫(xiě)下（不包括注釋?zhuān)?，要折行?shū)寫(xiě)，可以在行末使用續(xù)行字符（），表示下一行是當(dāng)前行的繼續(xù)。B .一個(gè)下劃字符” _”D .一個(gè)空格加一個(gè)連字符（-）A .直接回車(chē)C. 一個(gè)空格加一個(gè)下劃字符” _23. 下列敘述不正確的是（）。A .注釋語(yǔ)句是非執(zhí)行語(yǔ)句，僅對(duì)程序的有關(guān)內(nèi)容起注釋作用，客觀存在不被解釋和 編譯B. 注釋語(yǔ)句可以放在代碼中的任何位置C. 注釋語(yǔ)句不能放在代碼中的任何位置D. 代碼中加入注釋語(yǔ)句的目的是提高程序的可讀性24VB 程序中通常不會(huì)產(chǎn)生錯(cuò)誤提示的是（）。A .編譯錯(cuò)誤B .實(shí)時(shí)錯(cuò)誤C.運(yùn)行時(shí)錯(cuò)誤D .

8、邏輯錯(cuò)誤25ADO 對(duì)象模型含有七種對(duì)象，其中代表數(shù)據(jù)庫(kù)表中的一整套記錄或執(zhí)行一條命令 而得到的結(jié)果的對(duì)象是（）。A. Comma ndB. ConnectionC. RecordsetD. Field26.使用ADO模型時(shí)，建立 Recordset和Conn ection對(duì)象的連接的屬性是（）。A. ExecuteC. Open27.要發(fā)送數(shù)據(jù)，通常使用A . SendData 方法C. Accept 方法B. CommandTypeD. ActiveConnection Win sock 控件的()。B . Listen 方法D. GetDate 方法A . Drive 屬性 B. Pat

9、tern 屬性C . Visible 屬性 D. Index 屬性28下列只能用程序代碼設(shè)置，不能通過(guò)屬性窗口設(shè)置的屬性是（）。二、填空題1 .每個(gè)應(yīng)用程序必須有一個(gè)惟一的 文件。2. 欲設(shè)置定時(shí)器的時(shí)間間隔為1秒，則屬性Interval的值為。3. 表達(dá)式5 + 21 2 * 3 Mod 2 的值是。4. 表達(dá)式 5 + 9 Mod 2 A 3 + 2的值是。5. 列表框中項(xiàng)目的序號(hào)是從 開(kāi)始的。6. 計(jì)時(shí)器控件響應(yīng)的事件是 。7. 為了在運(yùn)行時(shí)把當(dāng)前路徑下的圖形文件pictureflower.jpg 裝入圖片框Picturel ,所使用的語(yǔ)句為。&執(zhí)行賦值語(yǔ)句 a = abc + def，

10、變量a的值是。9. VB中的程序錯(cuò)誤類(lèi)型主要有編譯錯(cuò)誤 、 等三種。10. 在 VB中，將 Foxpro稱(chēng)為外部數(shù)據(jù)庫(kù)，Access稱(chēng)為, SQL Server稱(chēng)為。11. 數(shù)據(jù)庫(kù)應(yīng)用程序?qū)儆谝环N非常典型的前后臺(tái)軟件結(jié)構(gòu)，而前后臺(tái)之間進(jìn)行通信的主要機(jī)制稱(chēng)為。12. 若窗體Form1左上角坐標(biāo)為（0, 600）,右下角的坐標(biāo)為（800, -200）。則X軸的 正向向 , Y軸的正向向 。13. 用Dim A（3,3）語(yǔ)句聲明二維數(shù)組后，數(shù)組 A的元素共有 個(gè)。14. 設(shè)某個(gè)程序中要用到一個(gè)二維數(shù)組，要求數(shù)組名為A，類(lèi)型為字符串類(lèi)型，第一維下標(biāo)從1到 3 ,第二維下標(biāo)從 0到3 ,則相應(yīng)的數(shù)組聲明

11、語(yǔ)句 為。15. 果不適先確定變量的數(shù)據(jù)類(lèi)型，則可以把它聲明為 變量。16. tretch屬性設(shè)置為 時(shí)，圖像框可自動(dòng)改變大小以適應(yīng)其中的圖形。17. insock1.Listen 語(yǔ)句的含義是 。三、閱讀程序題閱讀下列程序并寫(xiě)出程序運(yùn)行結(jié)果1.Private Sub Form_Click()Static a As Stri ngDim b As Stri nga = a + Ab = b + BText1 = aText2 = bEnd Sub寫(xiě)出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后，文本框 Text1 和 Text2 顯示結(jié)果。2Private Sub Form_Click()Static Sum

12、 As IntegerFor i = 1 To 4Sum = Sum + iNext iPrint SumEnd Sub 寫(xiě)出程序運(yùn)行時(shí)點(diǎn)擊窗體兩次后，變量 Sum 的值。3Private Sub Command1_Click()Dim A(1 To 5) As IntegerDim x As IntegerFor i = 1 To 5A(i) = iNext ii = 1Do While x 3 Then c = c + 5Exit ForElsek = k + 5End IfNext jPrint c, kEnd Sub寫(xiě)出程序運(yùn)行時(shí)單擊窗體后， Form1 上的輸出結(jié)果。5.Privat

13、e Sub Command1_Click()Dim X As Integer, Y As IntegerX = 1 : Y = 1For i = 1 To 4For j = 1 To iY = Y + jNext jX = X + YNext iPrint XEnd Sub寫(xiě)出程序運(yùn)行時(shí)單擊命令按鈕后，窗體 Form1 上的輸出結(jié)果。6.Private Sub Command1_Click()Dim A(1 To 5) As IntegerDim b As IntegerFor b = 1 To 5A(b) = bNext bText1.Text = A(b - 2)End Sub寫(xiě)出程序運(yùn)行

14、時(shí)單擊 Command1 后，文件框 Text1 中的輸出結(jié)果。7.Function F(a As Integer, b As Integer) As Integer F = a + bEnd FunctionPrivate Sub Form_Click()Dim a As Integer, b As Integer, z As Integer a = 4: b =5 z = F(a, b)Print zEnd Sub寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orml上的輸出結(jié)果。8.Fun cti on F(a As In teger)Dim b As In tegerStatic c As In teg

15、erb = b + 2c = c + 2F = a + b + cEnd FunctionPrivate Sub Comma nd1_Click()Dim a As In tegera = 4Fori = 1 To 3Print F(a)Next iEnd Sub寫(xiě)出程序運(yùn)行時(shí)，單擊命令按鈕在窗體上的輸出結(jié)果。四、完善程序題1. 假設(shè)用Access創(chuàng)建了一個(gè)名為學(xué)生.MDB ”的數(shù)據(jù)庫(kù)，并在其中創(chuàng)建了一張名為 “學(xué)生基本情況”的數(shù)據(jù)表，表中存放了學(xué)生的基本信息，如圖1所示?，F(xiàn)在要求利用 VB編寫(xiě)一個(gè)數(shù)據(jù)庫(kù)查詢(xún)程序，程序的運(yùn)行界面如圖2所示，基本邏輯是：首先文本框(Text1)中輸入希望查詢(xún)的學(xué)

16、生學(xué)號(hào)，然后點(diǎn)擊“查詢(xún)”按鈕(Command1)，如果數(shù)據(jù)庫(kù)中存在該學(xué)號(hào)，則分別在Text2、Text3、Text4中顯示學(xué)號(hào)、姓名、籍貫信息，否則提示用戶(hù)“記錄不存在”并使Text1獲得焦點(diǎn)，要求用戶(hù)重新輸入。當(dāng)點(diǎn)擊退出按鈕(Command2) 時(shí)關(guān)閉本窗體。m學(xué)生基本悟況:表ST2004001張紅河北2004002李強(qiáng)山東2004003壬豐廣西|記錄：H 43 | M共有記錄數(shù)：3圖1用Access創(chuàng)建的學(xué)生基本情況數(shù)據(jù)表圖2查詢(xún)程序運(yùn)行界面程序如下，請(qǐng)補(bǔ)充完整。Private ADOc n As Conn ectionPrivate Sub Form_Load()1L2 學(xué)生.MDBEn

17、d SubPrivate Sub Comma nd1_Click()Dim strSQL As Stri ngDim ADOrs As 3 RecordsetADOrs.ActiveC onn ectio n = 4strSQL = Select * From 學(xué)生基本情況Where 學(xué)號(hào)=+ + Textl + 5If Not ADOrs.EOF The nText2 = ADOrs.Fields(學(xué)號(hào))Text3 = ADOrs.Fields(姓名)Text4 = ADOrs.Fields(籍貫)ElseMsgBox 要查詢(xún)的學(xué)號(hào)不存在，請(qǐng)重新輸入!, vbOKOnly,信息提示”Text

18、l =Textl.SetFocusEnd IfEnd SubPrivate Sub Comma nd2_Click()Un Load MeEnd2. 列表框應(yīng)用程序要求從文本框中輸入課程名稱(chēng)，然后按“添加”按鈕，將該課程名程添加到列表框中;當(dāng)選擇列表框中某一項(xiàng)后，按“刪除”按鈕，則從列表框中刪除該項(xiàng)；當(dāng)選擇列表框中某 一項(xiàng)后，按“修改”按鈕，把列表框中選取的項(xiàng)送往文本框且“修改”按鈕變?yōu)椤靶薷拇_ 認(rèn)”。在文本框的內(nèi)容修改好后，按“修改確認(rèn)”按鈕，再把文本框中修改后的信息送到 列表框且“修改確認(rèn)”按鈕變?yōu)椤靶薷摹?。程序運(yùn)行結(jié)果如圖 3所示。ListlTextlComma nd3將文本框中的內(nèi)容加

19、到列表框中刪除選定的項(xiàng)目圖3 程序如下，請(qǐng)補(bǔ)充完整。Private Sub Form_Load()Listl.Addltem Visual Basic 程序設(shè)計(jì)”List1.Addltem SQL SERVER 數(shù)據(jù)庫(kù)應(yīng)用”List1.AddItem 信息管理系統(tǒng)”List1.AddItem ERP 原理與應(yīng)用”List1.AddItem 網(wǎng)絡(luò)實(shí)用技術(shù)基礎(chǔ)”List1.AddItem 系統(tǒng)開(kāi)發(fā)規(guī)范與文檔編寫(xiě)”List1.AddItem 信息系統(tǒng)測(cè)試End SubPrivate Sub Comma nd1_Click()If Text1.Text The n1 Text1.TextText1.T

20、ext =-2MsgBox 請(qǐng)?jiān)谖谋究蛑休斎胄畔ⅲ?”End IfEnd SubPrivate Sub Comma nd2_Click()3 List1.List In dexEnd SubPrivate Sub Comma nd3_Click()If Command3.Caption =4 ThenText1.Text =5Text1.SetFocusComma nd1.E nabled = FalseComma nd2.E nabled = FalseCommand3.Caption = ” 修改確認(rèn)”ElseList1.List(List1. ListI ndex) = Text1.Te

21、xtComma nd1.E nabled = TrueComma nd2.E nabled = TrueText1.Text =Command3.Caption = ” 修改”End IfEnd Sub五、編寫(xiě)程序題編寫(xiě)一工資調(diào)整程序。若基本工資大于等于2000元，增加工資20%若小于1800元大于1300元，則增加工資 15%若小于1300元?jiǎng)t增加工資10% 要求在文本框 Text1中輸入 某職工的基本工資，單擊“計(jì)算”按鈕，在標(biāo)簽框Label1中輸出增加后的工資。程序運(yùn)行界面如圖4所示。2 請(qǐng)根據(jù)下列描述編寫(xiě)購(gòu)物優(yōu)惠程序。某商場(chǎng)為了加速促成商品流通，采用購(gòu)物打 折的優(yōu)惠辦法，每位顧客一次購(gòu)

22、物（1）在200元以上者，按九五折優(yōu)惠；（2）在400元以上者，按九折優(yōu)惠；（3） 800元以上者，按八折優(yōu)惠。在窗體上添加兩個(gè)文本框和一個(gè)命令 按鈕，要求在Text1中輸入購(gòu)物商品總金額，單擊命令按鈕，在Text2中輸出優(yōu)惠價(jià)。程序運(yùn)行結(jié)果如圖5所示。精品文檔圖5答案：一、單項(xiàng)選擇題1. C 2.B 3.B 4.D 5.A 6.D 7.C 8.B 9.C 10.C 11.B 12.D 13.B14.A 15.C 16.C 17.C 18.D 19.C 20.D 21. B 22 . C 23 . C 24 . D 25.C26.D 27.A 28.A二、填空題1. .vbp2. 10003. 64. 85. 06. Timer7. Pictured Picture = LoadPrctureCpictureflower.jpg)& abcdef9. 實(shí)時(shí)錯(cuò)誤邏輯錯(cuò)誤10. 本地?cái)?shù)