VisualBasic程序設(shè)計(jì)期末綜合練習(xí)題一

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

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

3、題內(nèi)顯示“myfrm”,使用的語(yǔ)句是（ ）。AForm.caption=myfrm BForm1.caption=myfrm CForm1.Printmyfrm DForm.Printmyfrm 9在VB中，下列變量名不合法的是（ ）。Afile_1 Bfile Cfile-1 Dfile_1_210在設(shè)計(jì)動(dòng)畫時(shí)，用時(shí)鐘控件來控制動(dòng)畫速度的屬性是（ ）。 AEnabled BMove CInterval DTimer 11要從ForNext循環(huán)中退出循環(huán)，應(yīng)使用（ ）語(yǔ)句。AExit BExit For CContinue DStop Loop12文本框ScrollBars屬性設(shè)置了非零值，卻

4、沒有效果，原因是（ ）。 A文本框中沒有內(nèi)容 B文本框的Locked屬性為TrueC文本框的MultiLine屬性為True D文本框的MultiLine屬性為False13要利用公用對(duì)話框控件來顯示“打開文件”對(duì)話框，需要調(diào)用控件的（ ）方法。AShowPrinter BShowOpen CShowSave DShowColor14下列賦值語(yǔ)句正確的是（ ）。Ax = y +z By + z = x C-y= x D4 = x +y15確定一個(gè)控件在窗體上位置的屬性是（ ）。AWidth和Height BWidth或Height CTop和Left DTop或Left 16VB程序中設(shè)置斷點(diǎn)

5、的按鍵是（）。AF5鍵BF6鍵CF9鍵DF10鍵17如果希望以模態(tài)方式顯示窗體Form1，下列正確的語(yǔ)句是（ ）。AForm1.Show 0 BForm1.ShowCForm1.Show 1 D以下都不正確18用語(yǔ)句Dim A(-2To 3)As Integer所定義的數(shù)組的元素的個(gè)數(shù)是（ ）。 A3 B4 C5 D619如果創(chuàng)建了命令按鈕的控件數(shù)組，那么Click事件的參數(shù)是（ ）。ACaption BTagCIndex D沒有參數(shù)20要向圖片框Picture1中加載“d:hainanzhiwu.bmp”圖像文件，應(yīng)使用語(yǔ)句（ ）。AP1.Picture=LoadPicture(d:hain

6、anzhiwu.bmp) BP1.Picture=LoadPicture(d:hainanzhiwu.bmp )CPicture1.Picture= d:hainanzhiwu.bmp DPicture1.Picture=LoadPicture(d:hainanzhiwu.bmp ) 21如果要在窗體代碼編輯器的”通用”部分定義私有Sub過程，則正確的語(yǔ)句是（）。APublic Sub BPrivate SubCPublic Function DPrivate Function22在代碼編輯器中，如果一條語(yǔ)句太長(zhǎng)，無法在一行內(nèi)寫下（不包括注釋），要折行書寫，可以在行末使用續(xù)行字符（ ），表示下

7、一行是當(dāng)前行的繼續(xù)。A直接回車 B一個(gè)下劃字符”_” C一個(gè)空格加一個(gè)下劃字符”_” D一個(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邏輯錯(cuò)誤 25ADO對(duì)象模型含有七種對(duì)象，其中代表數(shù)據(jù)庫(kù)表中的一整套記錄或執(zhí)行一條命令而得到的結(jié)果的對(duì)象是（ ）。 A.Command B.Connection C.Re

8、cordset D.Field26使用ADO模型時(shí)，建立Recordset和Connection對(duì)象的連接的屬性是（）。AExecute BCommandTypeCOpen DActiveConnection27要發(fā)送數(shù)據(jù)，通常使用Winsock控件的（）。ASendData方法 BListen方法CAccept方法 DGetDate方法 28下列只能用程序代碼設(shè)置，不能通過屬性窗口設(shè)置的屬性是（ ）。ADrive屬性 BPattern屬性 CVisible屬性 DIndex屬性二、填空題1每個(gè)應(yīng)用程序必須有一個(gè)惟一的 文件。 2. 欲設(shè)置定時(shí)器的時(shí)間間隔為1秒，則屬性Interval的值為

9、。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裝入圖片框Picture1，所使用的語(yǔ)句為 。8執(zhí)行賦值語(yǔ)句a = abc + def，變量a的值是 。9. VB中的程序錯(cuò)誤類型主要有編譯錯(cuò)誤 、 等三種。10在VB中，將Foxpro稱為外部數(shù)據(jù)庫(kù)，Access稱為 ，SQL Server稱為 。11數(shù)據(jù)庫(kù)應(yīng)用程序?qū)儆谝环N非常典型的前后臺(tái)軟件結(jié)構(gòu)，而前后臺(tái)之間進(jìn)行通信的主要機(jī)制稱為 。12若窗體Form

10、1左上角坐標(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，類型為字符串類型，第一維下標(biāo)從1到3，第二維下標(biāo)從0到3，則相應(yīng)的數(shù)組聲明語(yǔ)句為 。15.果不適先確定變量的數(shù)據(jù)類型，則可以把它聲明為 變量。 16.tretch屬性設(shè)置為 時(shí)，圖像框可自動(dòng)改變大小以適應(yīng)其中的圖形。17.insock1.Listen語(yǔ)句的含義是 。三、閱讀程序題 閱讀下列程序并寫出程序運(yùn)行結(jié)果1Private Sub Form_Click() Static a

11、 As String Dim b As String a = a + A b = b + B Text1 = a Text2 = bEnd Sub寫出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后，文本框Text1和Text2顯示結(jié)果。2Private Sub Form_Click() Static Sum As Integer For i = 1 To 4 Sum = Sum + i Next i Print SumEnd Sub寫出程序運(yùn)行時(shí)點(diǎn)擊窗體兩次后，變量Sum的值。3Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim x As Inte

12、ger For i = 1 To 5 A(i) = i Next i i = 1 Do While x 3 Then c = c + 5 Exit For Else k = k + 5End IfNext jPrint c, kEnd Sub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。5. Private Sub Command1_Click() Dim X As Integer, Y As Integer X = 1 : Y = 1 For i = 1 To 4 For j = 1 To i Y = Y + j Next j X = X + Y Next i Print XEnd Su

13、b 寫出程序運(yùn)行時(shí)單擊命令按鈕后，窗體Form1上的輸出結(jié)果。6. Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim b As Integer For b = 1 To 5 A(b) = b Next b Text1.Text = A(b - 2)End Sub寫出程序運(yùn)行時(shí)單擊Command1后，文件框Text1中的輸出結(jié)果。7. Function F(a As Integer, b As Integer) As Integer F = a + bEnd FunctionPrivate Sub Form_Click() Dim

14、 a As Integer, b As Integer, z As Integer a = 4: b =5z = F(a, b) Print zEnd Sub 寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。8. Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 4 For i = 1 To 3 Print F(a) Next iE

15、nd Sub寫出程序運(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編寫一個(gè)數(shù)據(jù)庫(kù)查詢程序，程序的運(yùn)行界面如圖2所示，基本邏輯是：首先文本框(Text1)中輸入希望查詢的學(xué)生學(xué)號(hào)，然后點(diǎn)擊“查詢”按鈕(Command1)，如果數(shù)據(jù)庫(kù)中存在該學(xué)號(hào)，則分別在Text2、Text3、Text4中顯示學(xué)號(hào)、姓名、籍貫信息，否則提示用戶“記錄不存在”并使Text1獲得焦點(diǎn)，要求用戶重新輸入。當(dāng)點(diǎn)擊退出按鈕(Command2)時(shí)關(guān)閉本窗體。

16、 圖1用Access創(chuàng)建的學(xué)生基本情況數(shù)據(jù)表圖2 查詢程序運(yùn)行界面程序如下，請(qǐng)補(bǔ)充完整。Private ADOcn As ConnectionPrivate Sub Form_Load() 1 2 Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:學(xué)生.MDBEnd SubPrivate Sub Command1_Click() Dim strSQL As String Dim ADOrs As 3 Recordset ADOrs.ActiveConnection = 4 strSQL = Select * From 學(xué)生基本情況 Where 學(xué)號(hào)=

17、 + + Text1 + 5 If Not ADOrs.EOF Then Text2 = ADOrs.Fields(學(xué)號(hào)) Text3 = ADOrs.Fields(姓名) Text4 = ADOrs.Fields(籍貫) Else MsgBox 要查詢的學(xué)號(hào)不存在，請(qǐng)重新輸入!, vbOKOnly, 信息提示 Text1 = Text1.SetFocus End IfEnd Sub Private Sub Command2_Click() UnLoad Me End2列表框應(yīng)用程序要求從文本框中輸入課程名稱，然后按“添加”按鈕，將該課程名程添加到列表框中；當(dāng)選擇列表框中某一項(xiàng)后，按“刪除”按

18、鈕，則從列表框中刪除該項(xiàng)；當(dāng)選擇列表框中某一項(xiàng)后，按“修改”按鈕，把列表框中選取的項(xiàng)送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認(rèn)”。在文本框的內(nèi)容修改好后，按“修改確認(rèn)”按鈕，再把文本框中修改后的信息送到列表框且“修改確認(rèn)”按鈕變?yōu)椤靶薷摹?。程序運(yùn)行結(jié)果如圖3所示。List1Command3Command2Command1Text1 圖 3程序如下，請(qǐng)補(bǔ)充完整。Private Sub Form_Load() List1.AddItem Visual Basic程序設(shè)計(jì) List1.AddItem SQL SERVER數(shù)據(jù)庫(kù)應(yīng)用 List1.AddItem 信息管理系統(tǒng) List1.AddItem E

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

20、Command3.Caption = 4 Then Text1.Text = 5 Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = 修改確認(rèn) Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = Command3.Caption = 修改 End IfEnd Sub五、編寫程序題編寫一工資調(diào)整程序。若基本工資大于等于20

21、00元，增加工資20%，若小于1800元大于1300元，則增加工資15%；若小于1300元?jiǎng)t增加工資10%。要求在文本框Text1中輸入某職工的基本工資，單擊“計(jì)算”按鈕，在標(biāo)簽框Label1中輸出增加后的工資。程序運(yùn)行界面如圖4所示。 圖42請(qǐng)根據(jù)下列描述編寫購(gòu)物優(yōu)惠程序。某商場(chǎng)為了加速促成商品流通，采用購(gòu)物打折的優(yōu)惠辦法，每位顧客一次購(gòu)物（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.B 14.A 15.C 16.C 17.C 18.D 19.C 20.D 21B 22C 23C 24D 25.C 26.D 27.A 28.A 二、填空題1.vbp210003648506Timer7Picture1. Picture = LoadPrcture(pictureflower.jpg)8abcdef9實(shí)時(shí)錯(cuò)誤 邏輯錯(cuò)誤10本地?cái)?shù)據(jù)庫(kù) 遠(yuǎn)程數(shù)據(jù)庫(kù)11.數(shù)據(jù)庫(kù)引擎12右 上1316 14. Dim