Visual Basic程序設(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,那么在代碼中引用該屬性的正確格式是(。B.Mytext*TextC.Mytext.(

2、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.工程資源管理器窗口B.工具箱窗口C.代碼編輯器窗口D.屬性窗口8.要在窗體的標(biāo)題內(nèi)顯示“myfrm”,使用的語句是(。9.在VB中,

3、下列變量名不合法的是(。A.file_1B.fileC.file-1D.file_1_210.在設(shè)計(jì)動(dòng)畫時(shí),用時(shí)鐘控件來控制動(dòng)畫速度的屬性是(。A.EnabledB.MoveC.IntervalD.Timer11.要從ForNext循環(huán)中退出循環(huán),應(yīng)使用(語句。A.ExitB.Exit ForC.ContinueD.Stop Loop12.文本框ScrollBars屬性設(shè)置了非零值,卻沒有效果,原因是(。A.文本框中沒有內(nèi)容B.文本框的Locked屬性為TrueC.文本框的MultiLine屬性為TrueD.文本框的MultiLine屬性為False13.要利用公用對(duì)話框控件來顯示“打開文件”

4、對(duì)話框,需要調(diào)用控件的(方法。A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowColor14.下列賦值語句正確的是(。A.x = y +zB.y + z = xC.-y= xD.4 = x +y15.確定一個(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)方式顯示窗體Form1,下列正確的語句是(。D.以下都不正確18.用語句Dim A(-2To 3As Integer所定義的數(shù)組的元素的個(gè)數(shù)

5、是(。A.3B.4C.5D.619.如果創(chuàng)建了命令按鈕的控件數(shù)組,那么Click事件的參數(shù)是(。A.CaptionB.TagC.IndexD.沒有參數(shù)20.要向圖片框Picture1中加載“d:hainanzhiwu.bmp”圖像文件,應(yīng)使用語句(。21.如果要在窗體代碼編輯器的”通用”部分定義私有Sub過程,則正確的語句是(。A.Public SubB.Private SubC.Public FunctionD.Private Function22.在代碼編輯器中,如果一條語句太長(zhǎng),無法在一行內(nèi)寫下(不包括注釋,要折行書寫,可以在行末使用續(xù)行字符(,表示下一行是當(dāng)前行的繼續(xù)。A.直接回車B.

6、一個(gè)下劃字符”_”C.一個(gè)空格加一個(gè)下劃字符”_”D.一個(gè)空格加一個(gè)連字符(-23.下列敘述不正確的是(。A.注釋語句是非執(zhí)行語句,僅對(duì)程序的有關(guān)內(nèi)容起注釋作用,客觀存在不被解釋和編譯B.注釋語句可以放在代碼中的任何位置C.注釋語句不能放在代碼中的任何位置D.代碼中加入注釋語句的目的是提高程序的可讀性24.VB程序中通常不會(huì)產(chǎn)生錯(cuò)誤提示的是(。A.編譯錯(cuò)誤B.實(shí)時(shí)錯(cuò)誤C.運(yùn)行時(shí)錯(cuò)誤D.邏輯錯(cuò)誤25.ADO對(duì)象模型含有七種對(duì)象,其中代表數(shù)據(jù)庫(kù)表中的一整套記錄或執(zhí)行一條命令而得到的結(jié)果的對(duì)象是(。A.CommandB.ConnectionC.RecordsetD.Field26.使用ADO模型時(shí),

7、建立Recordset和Connection對(duì)象的連接的屬性是(。A.ExecuteB.CommandTypeC.OpenD.ActiveConnection27.要發(fā)送數(shù)據(jù),通常使用Winsock控件的(。A.SendData方法B.Listen方法C.Accept方法D.GetDate方法28.下列只能用程序代碼設(shè)置,不能通過屬性窗口設(shè)置的屬性是(。A.Drive屬性B.Pattern屬性C.Visible屬性D.Index屬性二、填空題1.每個(gè)應(yīng)用程序必須有一個(gè)惟一的文件。2.欲設(shè)置定時(shí)器的時(shí)間間隔為1秒,則屬性Interval的值為。3.表達(dá)式5 + 21 2 * 3 Mod 2的值是

8、。4.表達(dá)式5 + 9 Mod 2 3 + 2的值是。5.列表框中項(xiàng)目的序號(hào)是從開始的。6.計(jì)時(shí)器控件響應(yīng)的事件是。8.執(zhí)行賦值語句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.若窗體Form1左上角坐標(biāo)為(0,600,右下角的坐標(biāo)為(800,-200。則X軸的正向向,Y軸的正向向。13.用Dim A(3,3語句聲明二

9、維數(shù)組后,數(shù)組A的元素共有個(gè)。14.設(shè)某個(gè)程序中要用到一個(gè)二維數(shù)組,要求數(shù)組名為A,類型為字符串類型,第一維下標(biāo)從1到3,第二維下標(biāo)從0到3,則相應(yīng)的數(shù)組聲明語句為。15.果不適先確定變量的數(shù)據(jù)類型,則可以把它聲明為變量。16.tretch屬性設(shè)置為時(shí),圖像框可自動(dòng)改變大小以適應(yīng)其中的圖形。三、閱讀程序題閱讀下列程序并寫出程序運(yùn)行結(jié)果1.Private Sub Form_Click(Static a As StringDim b As Stringa = a + "A"b = b + "B"Text1 = aText2 = bEnd Sub寫出程序運(yùn)行時(shí)

10、連續(xù)單擊三次窗體后,文本框Text1和Text2顯示結(jié)果。2.Private Sub Form_Click(Static Sum As IntegerFor i = 1 To 4Sum = Sum + iNext iPrint SumEnd Sub寫出程序運(yùn)行時(shí)點(diǎn)擊窗體兩次后,變量Sum的值。3.Private Sub Command1_Click(Dim A(1 To 5 As IntegerDim x As IntegerFor i = 1 To 5A(i = iNext ii = 1Do While x < 7A(i = A(i + xx = x + 3i = i + 1LoopT

11、ext1.Text = A(1Text2.Text = A(3End Sub寫出程序運(yùn)行時(shí)單擊窗體后,Form1上的輸出結(jié)果。4.Private Sub Form_Click(Dim c As Integer, j As Integer, k As Integerk = 2c = 3For j = 1 To 5If j > 3 Thenc = c + 5Exit ForElsek = k + 5End IfNext jPrint c, kEnd Sub寫出程序運(yùn)行時(shí)單擊窗體后,Form1上的輸出結(jié)果。5.Private Sub Command1_Click(Dim X As Intege

12、r, Y As IntegerX = 1 : Y = 1For i = 1 To 4For j = 1 To iY = Y + jNext jX = X + YNext iPrint XEnd Sub寫出程序運(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 - 2End Sub寫出程序運(yùn)行時(shí)單擊Command1后,文件框Text1中的輸出結(jié)果。7.Function F(a

13、As Integer, b As Integer As IntegerF = a + bEnd FunctionPrivate Sub Form_Click(Dim a As Integer, b As Integer, z As Integera = 4:b =5z = F(a, bPrint zEnd Sub寫出程序運(yùn)行時(shí)單擊窗體后,Form1上的輸出結(jié)果。8.Function F(a As IntegerDim b As IntegerStatic c As Integerb = b + 2c = c + 2F = a + b + cEnd FunctionPrivate Sub Com

14、mand1_Click(Dim a As Integera = 4For i = 1 To 3Print F(aNext iEnd Sub寫出程序運(yùn)行時(shí),單擊命令按鈕在窗體上的輸出結(jié)果。四、完善程序題1.假設(shè)用Access創(chuàng)建了一個(gè)名為“學(xué)生.MDB”的數(shù)據(jù)庫(kù),并在其中創(chuàng)建了一張名為“學(xué)生基本情況”的數(shù)據(jù)表,表中存放了學(xué)生的基本信息,如圖1所示。現(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)、姓名、籍

15、貫信息,否則提示用戶“記錄不存在”并使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 ADOcn As ConnectionPrivate Sub Form_Load(1Private Sub Command1_Click(Dim strSQL As StringDim ADOrs As 3 RecordsetADOrs.ActiveConnection = 4strSQL = "Select * From 學(xué)生基本情況Where 學(xué)號(hào)=&qu

16、ot; + " ' " + Text1 + " ' "5If Not ADOrs.EOF ThenText2 = ADOrs.Fields("學(xué)號(hào)"Text3 = ADOrs.Fields("姓名"Text4 = ADOrs.Fields("籍貫"ElseMsgBox "要查詢的學(xué)號(hào)不存在,請(qǐng)重新輸入!", vbOKOnly, "信息提示"Text1 = ""Text1.SetFocusEnd IfEnd SubPriv

17、ate Sub Command2_Click(UnLoad MeEnd2.列表框應(yī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所示。Text1List1Command1Command2Command3圖3程序如下,請(qǐng)補(bǔ)充完整。Private Sub Form_Load(L

18、ist1.AddItem "V isual Basic程序設(shè)計(jì)"List1.AddItem "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)開發(fā)規(guī)范與文檔編寫"List1.AddItem "信息系統(tǒng)測(cè)試"End SubPrivate Sub Command1_Click(If Text1.Text

19、<> "" Then1 Text1.Text '將文本框中的內(nèi)容加到列表框中Text1.Text = ""2MsgBox "請(qǐng)?jiān)谖谋究蛑休斎胄畔?"End IfEnd SubPrivate Sub Command2_Click(3 List1.ListIndex '刪除選定的項(xiàng)目End SubPrivate Sub Command3_Click(If Command3.Caption = 4 ThenText1.Text = 5Text1.SetFocusCommand1.Enabled = FalseCo

20、mmand2.Enabled = FalseCommand3.Caption = "修改確認(rèn)"ElseList1.List(List1.ListIndex = Text1.TextCommand1.Enabled = TrueCommand2.Enabled = TrueText1.Text =""Command3.Caption = "修改"End IfEnd Sub五、編寫程序題編寫一工資調(diào)整程序。若基本工資大于等于2000元,增加工資20%,若小于1800元大于1300元,則增加工資15%;若小于1300元?jiǎng)t增加工資10%。要求

21、在文本框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)惠;(3800元以上者,按八折優(yōu)惠。在窗體上添加兩個(gè)文本框和一個(gè)命令按鈕,要求在Text1中輸入購(gòu)物商品總金額,單擊命令按鈕,在Text2中輸出優(yōu)惠價(jià)。程序運(yùn)行結(jié)果如圖5所示。 圖 5答案:一、單項(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.10006.Timer7.Picture1. Picture = LoadPrcture("pictureflower.jpg"8.abcdef9.實(shí)時(shí)錯(cuò)誤邏輯錯(cuò)誤10.本地?cái)?shù)據(jù)庫(kù)遠(yuǎn)程數(shù)據(jù)庫(kù)11.數(shù)據(jù)庫(kù)引擎12.右上13.1614. Dim A(1To 3,0To 3 As String15變體型(V ariant16.alse17.服務(wù)程序處于