VisualBasic程序設(shè)計(jì)期末綜合練習(xí)題一_百度文庫解析

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

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

3、源管理器窗口B. 工具箱窗口C. 代碼編輯器窗口D. 屬性窗口8. 要在窗體的標(biāo)題內(nèi)顯示“myfrm使用的語句是（。A. Form.captio n=myfrmB. Forml.captio n=myfrmC. Forml.Pri ntmyfrmD. Form.Pri ntmyfrm9. 在VB中，下列變量名不合法的是（。A. file_1B. fileC. file-1D. file_1_210. 在設(shè)計(jì)動(dòng)畫時(shí)，用時(shí)鐘控件來控制動(dòng)畫速度的屬性是（A. E nabledB. MoveC. I ntervalD. Timer11. 要從ForNext循環(huán)中退出循環(huán)，應(yīng)使用（語句。A. ExitB

4、. Exit ForC. Co nti nueD. Stop Loop12. 文本框ScrollBars屬性設(shè)置了非零值，卻沒有效果，原因是（。A. 文本框中沒有內(nèi)容B. 文本框的Locked屬性為TrueC. 文本框的 MultiLine屬性為TrueD. 文本框的MultiLine屬性為False13. 要利用公用對(duì)話框控件來顯示打開文件”對(duì)話框，需要調(diào)用控件的（方法。A. ShowPri nterB. ShowOpe nC. ShowSaveD. ShowColor14. 下列賦值語句正確的是（。A. x = y +zB. y + z = xC. -y= xD. 4 = x +y15.

5、確定一個(gè)控件在窗體上位置的屬性是（A. Width 和 HeightB. Width 或 HeightC. Top 和 LeftD. Top 或 Left16. VB程序中設(shè)置斷點(diǎn)的按鍵是（。A. F5 鍵B. F6 鍵C. F9 鍵D. F10 鍵17. 如果希望以模態(tài)方式顯示窗體 Forml,下列正確的語句是（。A. Forml.Show 0B. Form1.ShowC. Form1.Show 1D. 以下都不正確18用語句Dim A（-2To 3As Integer所定義的數(shù)組的元素的個(gè)數(shù)是（A. 3B. 4C. 519. 如果創(chuàng)建了命令按鈕的控件數(shù)組，那么Click事件的參數(shù)是（。A.

6、 Captio nB. TagC. I ndexD. 沒有參數(shù)20. 要向圖片框Picturel中加載“d:zhiwu.bmp 圖像文件，應(yīng)使用語句（。A. P1.Picture=LoadPicture（d:hai nan zhiwu.bmpB. P1.Picture=LoadPicture（d:hai nan zhiwu.bmp C. Picture1.Picture= d:ha inan zhiwu.bmp D. Picture1.Picture=LoadPicture（d:hai nan zhiwu.bmp 21. 如果要在窗體代碼編輯器的”通用”部分定義私有Sub過程,則正確的語句是（

7、。A. Public SubB. Private SubC. Public Fun ctionD. Private Function22. 在代碼編輯器中，如果一條語句太長(zhǎng)，無法在一行內(nèi)寫下（不包括注釋,要折行書寫，可以在行末使用續(xù)行字符（，表示下一行是當(dāng)前行的繼續(xù)。A. 直接回車B. 個(gè)下劃字符”C. 一個(gè)空格加一個(gè)下劃字符”D. 個(gè)空格加一個(gè)連字符（-23. 下列敘述不正確的是（。A. 注釋語句是非執(zhí)行語句，僅對(duì)程序的有關(guān)內(nèi)容起注釋作用，客觀存在不被解釋 和編譯B. 注釋語句可以放在代碼中的任何位置C. 注釋語句不能放在代碼中的任何位置D. 代碼中加入注釋語句的目的是提高程序的可讀性24.

8、 VB程序中通常不會(huì)產(chǎn)生錯(cuò)誤提示的是（。A. 編譯錯(cuò)誤B. 實(shí)時(shí)錯(cuò)誤C. 運(yùn)行時(shí)錯(cuò)誤D. 邏輯錯(cuò)誤25. ADO對(duì)象模型含有七種對(duì)象，其中代表數(shù)據(jù)庫表中的一整套記錄或執(zhí)行一條 命令而得到的結(jié)果的對(duì)象是（。A. Comma ndB. Co nn ectio nC. RecordsetD. Field26使用ADO模型時(shí)，建立Recordset和 Conn ection對(duì)象的連接的屬性是（。A. ExecuteB. Comma ndTypeC. Ope nD. ActiveC onnection27. 要發(fā)送數(shù)據(jù)，通常使用Win sock控件的（。A. Se ndData 方法B. Listen

9、方法CA ccept 方法D. GetDate 方法28. 下列只能用程序代碼設(shè)置，不能通過屬性窗口設(shè)置的屬性是（。A. Drive 屬性B. Pattern 屬性C. Visible 屬性D. I ndex 屬性二、填空題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八3 + 2的值是。5. 列表框中項(xiàng)目的序號(hào)是從開始的。6. 計(jì)時(shí)器控件響應(yīng)的事件是。7. 為了在運(yùn)行時(shí)把當(dāng)前路徑下的圖形文件pictureflower.jpg裝入圖片框Pictur

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

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

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

13、 Sub Comma nd1_Click(Dim X As In teger, Y As In tegerFor i = 1 To 4Forj = 1 To iY = Y + jNext jX = X + YNext iPrint XEnd Sub寫出程序運(yùn)行時(shí)單擊命令按鈕后，窗體Form1上的輸出結(jié)果6.Private Sub Comma nd1_Click(Dim A(1 To 5 As In tegerDim b As In tegerFor b = 1 To 5A(b = bNext bText1.Text = A(b - 2End Sub寫出程序運(yùn)行時(shí)單擊Command1后,文件框T

14、extl中的輸出結(jié)果7.Function F(a As In teger, b As In teger As In tegerF = a + bEnd FunctionPrivate Sub Form_Click(Dim a As In teger, b As In teger, z As In tegera = 4:b =5z = F(a, bPrint zEnd Sub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果8.Function F(a As In tegerDim b As In tegerStatic c As In tegerb = b + 2End FunctionPriv

15、ate Sub Comma nd1_Click(Dim a As In tegera = 4Fori = 1 To 3Print F(aNext iEnd Sub寫出程序運(yùn)行時(shí)，單擊命令按鈕在窗體上的輸出結(jié)果。四、完善程序題1.假設(shè)用Access創(chuàng)建了一個(gè)名為 學(xué)生.MDB的數(shù)據(jù)庫，并在其中創(chuàng)建了一張名 為學(xué)生基本情況”的數(shù)據(jù)表,表中存放了學(xué)生的基本信息，如圖1所示。現(xiàn)在要求利用VB編寫一個(gè)數(shù)據(jù)庫查詢程序，程序的運(yùn)行界面如圖2所示，基本 邏輯是:首先文本框(Text1中輸入希望查詢的學(xué)生學(xué)號(hào)，然后點(diǎn)擊查詢”按鈕 (Command1如果數(shù)據(jù)庫中存在該學(xué)號(hào)，則分別在Text2、Text3、Text

16、4中顯示學(xué)號(hào)、 姓名、籍貫信息，否則提示用戶 記錄不存在”并使Text1獲得焦點(diǎn)，要求用戶重新輸 入。當(dāng)點(diǎn)擊退出按鈕(Command2時(shí)關(guān)閉本窗體。圖1用Access創(chuàng)建的學(xué)生基本情況數(shù)據(jù)表圖2查詢程序運(yùn)行界面 程序如下，請(qǐng)補(bǔ)充完整。Private ADOc n As Co nn ectionPrivate Sub Form_Load(1學(xué)生.MDB End SubPrivate Sub Comma nd1_Click(Dim strSQL As Stri ngDim ADOrs As 3 RecordsetADOrs.ActiveCo nn ection = 4strSQL = Select

17、 * From 學(xué)生基本情況 Where 學(xué)號(hào)=+ If Not ADOrs.EOF The nText2 = ADOrs.Fields(學(xué)號(hào)Text3 = ADOrs.Fields(姓名Text4 = ADOrs.Fields(籍貫ElseMsgBox 要查詢的學(xué)號(hào)不存在，請(qǐng)重新輸入!, vbOKOnly,Text1 =Text1.SetFocusEnd IfEnd SubPrivate Sub Comma nd2_Click(Un Load MeEnd+ Text1 + 信息提示2列表框應(yīng)用程序要求從文本框中輸入課程名稱，然后按 添加”按鈕,將該課程名程添加到列表框 中;當(dāng)選擇列表框中某一

18、項(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所示。TextlListlComma nd1Comma nd2Comma nd3圖3程序如下，請(qǐng)補(bǔ)充完整。Private Sub Form_Load(Listl.Addltem V isual Basic 程序設(shè)計(jì)Listl.Addltem SQL SERVER 數(shù)據(jù)庫應(yīng)用Listl.Addltem 信息管理系統(tǒng)Listl.Add

19、ltem ERP 原理與應(yīng)用Listl.Addltem 網(wǎng)絡(luò)實(shí)用技術(shù)基礎(chǔ)Listl.Addltem 系統(tǒng)開發(fā)規(guī)范與文檔編寫Listl.Addltem 信息系統(tǒng)測(cè)試End SubPrivate Sub Comma nd1_Click(If Textl.Text Then1 Text1.Text 將文本框中的內(nèi)容加到列表框中Text1.Text =2MsgBox 請(qǐng)?jiān)谖谋究蛑休斎胄畔?！End IfEnd SubPrivate Sub Comma nd2_Click(3 List1.ListIndex 刪除選定的項(xiàng)目End SubPrivate Sub Comma nd3_Click(If Comm

20、a nd3.Captio n = 4 The nText1.Text = 5Text1.SetFocusComma nd1.E nabled = FalseComma nd2.E nabled = FalseCommand3.Caption =修改確認(rèn)ElseListl. List(List1.List In dex = Textl.TextComma ndl.E nabled = TrueComma nd2.E nabled = TrueTextl.Text =Comma nd3.C aptio n =修改End IfEnd Sub五、編寫程序題編寫一工資調(diào)整程序。若基本工資大于等于2000

21、元，增加工資20%,若小于1800元大于1300元，則增加工資15%;若小于1300元?jiǎng)t增加工資10%。要求在文本 框Text1中輸入某職工的基本工資，單擊 計(jì)算”按鈕，在標(biāo)簽框Label1中輸出增加后 的工資。程序運(yùn)行界面如圖4所示。2. 請(qǐng)根據(jù)下列描述編寫購物優(yōu)惠程序。某商場(chǎng)為了加速促成商品流通，采用購物 打折的優(yōu)惠辦法，每位顧客一次購物（1在200元以上者,按九五折優(yōu)惠;（2在400元以 上者，按九折優(yōu)惠；（3800元以上者，按八折優(yōu)惠。在窗體上添加兩個(gè)文本框和一個(gè)命 令按鈕，要求在Textl中輸入購物商品總金額,單擊命令按鈕，在Text2中輸出優(yōu)惠 價(jià)。程序運(yùn)行結(jié)果如圖5所示。圖5答案

22、：一、單項(xiàng)選擇題1. C2. B3. B4. D5. A6. D7. C8.B9.C 10.C 11.B 12.D 13.B 14.A 15.C 16.C 17.C 18.D 19.C 20.D 21.B 22.C 23.C 24.D 25.C 26.D 27.A 28.A二、填空題1.vbp2.10003.64.85.06. Timer7. Picture1. Picture = LoadPrctureCpictureflower.jpg8. abcdef9. 實(shí)時(shí)錯(cuò)誤邏輯錯(cuò)誤10. 本地?cái)?shù)據(jù)庫遠(yuǎn)程數(shù)據(jù)庫11數(shù)據(jù)庫引擎12右上13.1614. Dim A(1To 3,0To 3 As Stri ng15