Visual Basic程序設(shè)計期末綜合練習(xí)題一

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

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

3、下列變量名不合法的是(。A.file_1B.fileC.file-1D.file_1_210.在設(shè)計動畫時,用時鐘控件來控制動畫速度的屬性是(。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.要利用公用對話框控件來顯示“打開文件”

4、對話框,需要調(diào)用控件的(方法。A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowColor14.下列賦值語句正確的是(。A.x = y +zB.y + z = xC.-y= xD.4 = x +y15.確定一個控件在窗體上位置的屬性是(。A.Width和HeightB.Width或HeightC.Top和LeftD.Top或Left16.VB程序中設(shè)置斷點的按鍵是(。A.F5鍵B.F6鍵C.F9鍵D.F10鍵17.如果希望以模態(tài)方式顯示窗體Form1,下列正確的語句是(。D.以下都不正確18.用語句Dim A(-2To 3As Integer所定義的數(shù)組的元素的個數(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.在代碼編輯器中,如果一條語句太長,無法在一行內(nèi)寫下(不包括注釋,要折行書寫,可以在行末使用續(xù)行字符(,表示下一行是當(dāng)前行的繼續(xù)。A.直接回車B.

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

7、建立Recordset和Connection對象的連接的屬性是(。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.每個應(yīng)用程序必須有一個惟一的文件。2.欲設(shè)置定時器的時間間隔為1秒,則屬性Interval的值為。3.表達(dá)式5 + 21 2 * 3 Mod 2的值是

8、。4.表達(dá)式5 + 9 Mod 2 3 + 2的值是。5.列表框中項目的序號是從開始的。6.計時器控件響應(yīng)的事件是。8.執(zhí)行賦值語句a = "abc" + "def",變量a的值是。9. VB中的程序錯誤類型主要有編譯錯誤、等三種。10.在VB中,將Foxpro稱為外部數(shù)據(jù)庫,Access稱為,SQL Server稱為。11.數(shù)據(jù)庫應(yīng)用程序?qū)儆谝环N非常典型的前后臺軟件結(jié)構(gòu),而前后臺之間進(jìn)行通信的主要機(jī)制稱為。12.若窗體Form1左上角坐標(biāo)為(0,600,右下角的坐標(biāo)為(800,-200。則X軸的正向向,Y軸的正向向。13.用Dim A(3,3語句聲明二

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

10、連續(xù)單擊三次窗體后,文本框Text1和Text2顯示結(jié)果。2.Private Sub Form_Click(Static Sum As IntegerFor i = 1 To 4Sum = Sum + iNext iPrint SumEnd Sub寫出程序運行時點擊窗體兩次后,變量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寫出程序運行時單擊窗體后,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寫出程序運行時單擊窗體后,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寫出程序運行時單擊命令按鈕后,窗體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寫出程序運行時單擊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寫出程序運行時單擊窗體后,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寫出程序運行時,單擊命令按鈕在窗體上的輸出結(jié)果。四、完善程序題1.假設(shè)用Access創(chuàng)建了一個名為“學(xué)生.MDB”的數(shù)據(jù)庫,并在其中創(chuàng)建了一張名為“學(xué)生基本情況”的數(shù)據(jù)表,表中存放了學(xué)生的基本信息,如圖1所示。現(xiàn)在要求利用VB編寫一個數(shù)據(jù)庫查詢程序,程序的運行界面如圖2所示,基本邏輯是:首先文本框(Text1中輸入希望查詢的學(xué)生學(xué)號,然后點擊“查詢”按鈕(Command1,如果數(shù)據(jù)庫中存在該學(xué)號,則分別在Text2、Text3、Text4中顯示學(xué)號、姓名、籍

15、貫信息,否則提示用戶“記錄不存在”并使Text1獲得焦點,要求用戶重新輸入。當(dāng)點擊退出按鈕(Command2時關(guān)閉本窗體。 圖1用Access創(chuàng)建的學(xué)生基本情況數(shù)據(jù)表 圖2 查詢程序運行界面程序如下,請補(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é)號=&qu

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

17、ate Sub Command2_Click(UnLoad MeEnd2.列表框應(yīng)用程序要求從文本框中輸入課程名稱,然后按“添加”按鈕,將該課程名程添加到列表框中;當(dāng)選擇列表框中某一項后,按“刪除”按鈕,則從列表框中刪除該項;當(dāng)選擇列表框中某一項后,按“修改”按鈕,把列表框中選取的項送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認(rèn)”。在文本框的內(nèi)容修改好后,按“修改確認(rèn)”按鈕,再把文本框中修改后的信息送到列表框且“修改確認(rèn)”按鈕變?yōu)椤靶薷摹薄３绦蜻\行結(jié)果如圖3所示。Text1List1Command1Command2Command3圖3程序如下,請補(bǔ)充完整。Private Sub Form_Load(L

18、ist1.AddItem "V isual Basic程序設(shè)計"List1.AddItem "SQL SERVER數(shù)據(jù)庫應(yīng)用"List1.AddItem "信息管理系統(tǒng)"List1.AddItem "ERP原理與應(yīng)用"List1.AddItem "網(wǎng)絡(luò)實用技術(shù)基礎(chǔ)"List1.AddItem "系統(tǒng)開發(fā)規(guī)范與文檔編寫"List1.AddItem "信息系統(tǒng)測試"End SubPrivate Sub Command1_Click(If Text1.Text

19、<> "" Then1 Text1.Text '將文本框中的內(nèi)容加到列表框中Text1.Text = ""2MsgBox "請在文本框中輸入信息!"End IfEnd SubPrivate Sub Command2_Click(3 List1.ListIndex '刪除選定的項目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元則增加工資10%。要求

21、在文本框Text1中輸入某職工的基本工資,單擊“計算”按鈕,在標(biāo)簽框Label1中輸出增加后的工資。程序運行界面如圖4所示。 圖42.請根據(jù)下列描述編寫購物優(yōu)惠程序。某商場為了加速促成商品流通,采用購物打折的優(yōu)惠辦法,每位顧客一次購物(1在200元以上者,按九五折優(yōu)惠;(2在400元以上者,按九折優(yōu)惠;(3800元以上者,按八折優(yōu)惠。在窗體上添加兩個文本框和一個命令按鈕,要求在Text1中輸入購物商品總金額,單擊命令按鈕,在Text2中輸出優(yōu)惠價。程序運行結(jié)果如圖5所示。 圖 5答案:一、單項選擇題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.實時錯誤邏輯錯誤10.本地數(shù)據(jù)庫遠(yuǎn)程數(shù)據(jù)庫11.數(shù)據(jù)庫引擎12.右上13.1614. Dim A(1To 3,0To 3 As String15變體型(V ariant16.alse17.服務(wù)程序處于