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

1、Visual Basic 程序設(shè)計(jì)期末綜合練習(xí)題二一、單項(xiàng)選擇題1一個(gè)VB 應(yīng)用程序可以包含幾個(gè)vbp 文件（。A1 個(gè)B2 個(gè)C可以沒(méi)有D不受限制 2啟動(dòng)VB 后，就意味著要建立一個(gè)新（A窗體文件C工程程序后綴.bas 的文件表示（。類模塊文件B窗體文件 D窗體二進(jìn)制數(shù)據(jù)文件D標(biāo)準(zhǔn)類模塊文當(dāng)一個(gè)工程中含有多個(gè)窗體時(shí)，其中的啟動(dòng)窗體是（。啟動(dòng)VB 時(shí)創(chuàng)建的第一個(gè)窗體第一個(gè)添加的窗體 C最后一個(gè)添加的窗體在“工程屬性”對(duì)話框中指定的窗在文本框控件中將Text 的內(nèi)容全部顯示為所定義的字符的屬性是（APasswordBPasswordCharC需要編程來(lái)實(shí)現(xiàn)以上都不是Visual Basic是一種

2、面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，所采用的編程機(jī)制是（A從主程序開(kāi)始執(zhí)行按過(guò)程順序執(zhí)行C事件驅(qū)動(dòng)按模塊順序執(zhí)7下列四項(xiàng)中合法的變量名是（。Aa-bcC4abc將調(diào)試通過(guò)的工程經(jīng)“文件”菜單的“生.exe 文件”編譯.exe 后，將該可執(zhí)文件拿到其它機(jī)器上不能運(yùn)行的主要原因是（。A缺.frm 窗體文件B該可執(zhí)行文件有病毒C運(yùn)行的機(jī)器上無(wú)VB 系統(tǒng)D以上原因都不9無(wú)論何種控件，共同具有的屬性是（）ATextBNameCCaptionDForeColor有程序代碼如下：Text1.Text = Visual Basic 程序設(shè)計(jì)則Text1，Text ，Visual Basic程序設(shè)分別代表（A對(duì)象，值，屬性

3、對(duì)象，方法，屬性 C對(duì)象，屬性，值D屬性，對(duì)象，值如果僅需要得到當(dāng)前系統(tǒng)時(shí)間，使用的函數(shù)是（）ANowBTimeCYearDDate12表達(dá)式16/4-25*8/4MOD52（。A20B14C2D4以下敘述中錯(cuò)誤的是（。A、一個(gè)工程中可以包含多個(gè)窗體文件B、 全局變量必須在標(biāo)準(zhǔn)模塊中定義C、在設(shè)計(jì)Visual Basic 型的文件D、在一個(gè)窗體文件中用Private 定義的通用過(guò)程能被其它窗體調(diào)用下列賦值語(yǔ)句正確的是（。Aa+b=cBc=a+bC-a=bD5=a+b要在窗體Form1內(nèi)顯示myfr，使用的語(yǔ)句是（） AForm.caption=myfrmCForm1.print myfrmpr

4、int myfrm確定一個(gè)控件在窗體上位置的屬性是（）AWidth或Height和HeightCTop或Left和 Left 17將數(shù)據(jù)項(xiàng)添加到列表框 中成為第一項(xiàng)，應(yīng)使用的語(yǔ)句是（AList1.AddItemChina,CList1.AddItemChina,1DList1.AddItem1,China如果創(chuàng)建了命令按鈕數(shù)組控件，那么Click 事件的參數(shù)是（）IndexCTag沒(méi)有參數(shù)在設(shè)計(jì)動(dòng)畫時(shí)，用時(shí)鐘控件來(lái)控制動(dòng)畫速度的屬性是（）EnabledBIntervalCTimerDMove以下敘述中錯(cuò)誤的是（。一個(gè)工程中只能有一個(gè)Sub Main過(guò)程窗體的Show方法的作用是將指定的窗體載入

5、內(nèi)存并顯示該窗體窗體的Hide 方法和Unload方法的作用完全相同若工程文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗21使圖像框Image 控件中的圖像自動(dòng)適應(yīng)控件的大小應(yīng)（。將控件的 AutoSize 屬性設(shè)為True將控件的 AutoSize 屬性設(shè)為將控件的 Stretche 屬性設(shè)為True將控件的 Stretche 屬性設(shè)為若使圖像框Image 控件自動(dòng)適應(yīng)其中的圖形大小，應(yīng)（。將控件的 Stretche 屬性設(shè)為TrueB將控件的 Stretche 屬性設(shè)為False 將控件的 AutoSize 屬性設(shè)為TrueD 將控件的 AutoSize 屬性設(shè)為在Visual Bas

6、ic 中，變量的默認(rèn)類型是（）IntegerBDoubleCCurrencyDVariant使用ADO 數(shù)據(jù)模型時(shí)使Recordset 和 Connection 對(duì)象建立連接的屬性（。CommandTypeBOpenCActiveConnectionDExecute 25下列控件中不能響應(yīng)Click 事件的是（FrameBLabelCTimerD Form如果準(zhǔn)備讀文件，打開(kāi)順序文”text.dat”的正確語(yǔ)句是（Aopentext.dat For wrire As # 1opentext.dat For Binary As # Copentext.dat For Input As # 1 D

7、opentext.dat For Random As # 用Line 方法畫直線,當(dāng)前坐標(biāo)在（。A（0，0）、直線起點(diǎn)C、直線終點(diǎn)、容器的中28不屬于VB 數(shù)據(jù)庫(kù)引擎的是（）AODBCB Jet 引擎CBDEDOLE DBMsgBox 函數(shù)的返回值的數(shù)據(jù)類型是（）字符串B日期型C邏輯型D整型VB 程序中通常不會(huì)產(chǎn)生錯(cuò)誤提示的是（。編譯錯(cuò)誤B實(shí)時(shí)錯(cuò)誤C運(yùn)行時(shí)錯(cuò)誤D 邏 輯 錯(cuò) 誤 31如果希望以模態(tài)方式顯示窗體Form1，下列正確的語(yǔ)句是（AForm1.Show 0CForm1.Show 1下列關(guān)于變量的說(shuō)法不正確的是（。 A局部變量是指那些在過(guò)程中用Dim 語(yǔ)句或Static語(yǔ)句聲明的變B局部

8、變量的作用域僅限于聲明它的過(guò)程 C靜態(tài)局部變量是在過(guò)程中用Static 語(yǔ)句聲明的D局部變量在聲明它的過(guò)程執(zhí)行完畢后就被釋放了改變驅(qū)動(dòng)器列表框的Drive 屬性值，將激活（）事件。KeyDownBKeyUpCChangeDScoll在下列選項(xiàng)中，不能將圖像裝入圖片框和圖像框的是（A在界面設(shè)計(jì)時(shí)，通過(guò)Picture 屬性裝入B在界面設(shè)計(jì)時(shí)，手工在圖像框和圖片框中繪制圖形 C在界面設(shè)計(jì)時(shí)，利用剪貼板把圖像粘貼上 D在程序運(yùn)行期間，用LoadPicture函數(shù)把圖形文件裝入要發(fā)送數(shù)據(jù)，通常使用Winsock 控件的（。SendData 方法BListen方法CAccept 方法DGetDate方法V

9、B 程序中設(shè)置斷點(diǎn)的按鍵是（。A、F5 鍵B、F6鍵C、F9 鍵D、F10鍵下列數(shù)組聲明語(yǔ)句，正確的是（）ADim a3,4 As IntegerBDim a(3,4) As IntegerCDim a(n,n) As IntegerDDim a(3 4) As Integer 38當(dāng)Winsock 控件處于打開(kāi)狀態(tài)時(shí)，其State 屬性的值是（）A0B1C2D6二、填空題TextBox 和 Label 控件用來(lái)顯示和輸入文本如果僅需要讓應(yīng)用程序在窗體中顯示本信息，可使用控件；若允許用戶輸入文本，則應(yīng)使用控件。在 VB 中要想獲得某個(gè)相關(guān)控件或語(yǔ)句的幫助信息一般可首先選中該控件或語(yǔ)句然后按鍵。

10、欲設(shè)置定時(shí)器的時(shí)間間隔為2 秒，則屬性Interval 的值為。應(yīng)用程序打包后，其包文件的后綴為。Visual Basic 程序開(kāi)發(fā)有三種模式，即設(shè)計(jì)模式、模式和式。是應(yīng)用程序的對(duì)外接口，是其它控件的載體和容器。7表達(dá)式14/2-23*7 MOD 6 的值是。每個(gè)應(yīng)用程序都有開(kāi)始執(zhí)行的入口，在VB 中將這種窗體稱為?？丶?shù)組的名字由屬性指定而數(shù)組中的每個(gè)元素由性決定。執(zhí)行賦值語(yǔ)句a=Visual+Basic后，變量a 的值是。在Visual Basic 語(yǔ)言中有三種形式的循環(huán)結(jié)構(gòu)其中若循環(huán)的次數(shù)可以適先確定 可使用循環(huán)；若要求先判斷循環(huán)進(jìn)行的條件，可使用循。數(shù)學(xué)關(guān)系8x 4 Thenc = c

11、 + 4 Exit ForElsek = k + End IfNext j Print c, k End Sub寫出程序運(yùn)行時(shí)單擊窗體后，c,k 的值分別是：3Private Sub Command1_Click() Dim s As DoubleDim i As s = 7i = 1Do While i 3 Thenc = c + 5 Exit ForElsek = k + End IfNext j Print c, k End Sub寫出程序運(yùn)行時(shí)單擊窗體后，c,k 的值分別是：5.Private Sub Form_Click() Dim A(1 To 3) As String Dim c

12、 As IntegerDim j As A(1) = 4A(2) = 8A(3) = 12c = 1For j = 1 To 3c = c + Val(A(j)Next j Print cEnd Sub寫出程序運(yùn)行時(shí)單擊窗體后，窗體Form1 上的結(jié)果：6Private Sub Form_Click()Dim i As Integer, k As Integer k = 0For i = 1 To 4 If i 2 k = k + 5 Exit ForElsek = k + 2 End IfNext i Print k End Sub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1 上的輸出結(jié)果。7.Fu

13、nction F(a As Integer) Dim b As Integer Static c As Integerb = b + c = c + F = a + b + End FunctionPrivate Sub Command1_Click()Dim a As Integer a = 4For i = 1 To 3 Print F(a)Next i End Sub寫出程序運(yùn)行時(shí)，單擊命令按鈕在窗體上的輸出結(jié)果。8.Private Sub Form_Click()Dim I As Integer, j As Integer Dim c As Integerc = 0For I = 1

14、To 4For j = 1 To 2 c = c + 4Next j Next I Print c End Sub文件框Text1 的輸出結(jié)果是：9.Sub Change(x As Integer, y As Integer)Dim t As t = xx = y = Print x, End SubPrivate Sub Form_Click()Dim a As Integer, b As Integer a = 30: b = 40Change a, b Print a, bEnd Sub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1 上的輸出結(jié)果。10.Private Sub Form_Click

15、()Dim i As Integer, k As Integer, c As Integer For i = 1 To 5If i Mod 2 = 0 Then k = k + 2Elsec = c + 2 End IfNext i Print k, c End Sub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1 上的輸出結(jié)果。四、完善程序題程序運(yùn)行界面如圖1 將其添加到列表框中；當(dāng)選擇列表框中某一項(xiàng)后，按“刪除”按鈕，則從列表框中刪除該Text1List1Command1Command2Command3Text1List1Command1Command2Command3圖 1程序如下，請(qǐng)補(bǔ)充完整。P

16、rivate Sub Form_Load() List1.AddItem 計(jì)算機(jī)應(yīng)用基礎(chǔ) List1.AddItem 程序設(shè)計(jì)基礎(chǔ) List1.AddItem VB 程序設(shè)計(jì)List1.AddItem SQLServer 數(shù)據(jù)庫(kù)應(yīng)用 List1.AddItem 網(wǎng) 站 設(shè) 計(jì) 技 術(shù) List1.AddItem 系統(tǒng)開(kāi)發(fā)規(guī)范與文檔編寫 List1.AddItem 信息系統(tǒng)測(cè)試End SubPrivate Sub Command1_Click() If Text1.Text ThenList1. 1Text1.Text將文本框中的內(nèi)容添加到列表框中Text1.Text = ElseMsgBox

17、請(qǐng)?jiān)谖谋究蛑休斎胄畔ⅲnd If End SubPrivate Sub Command2_Click()List1.RemoveItem 2刪除選定的項(xiàng)目End SubPrivate Sub Command3_Click()If Command3.Caption = 修改Text1.Text = 3Text1.SetFocus Command1.Enabled = False Command2.Enabled = FalseCommand3.Caption = 4Else5= Text1.TextCommand1.Enabled = True Command2.Enabled = True

18、Text1.Text = 56Command3.Caption = 7End IfEnd Sub2已知存在一名為“學(xué)生”的SQL Server 數(shù)據(jù)庫(kù)，其中的“studentsstudents 表中添加學(xué)生記錄。程序的基本邏輯是：當(dāng)窗體被加載時(shí)，程序聯(lián)接SQL Server 數(shù)據(jù)庫(kù)； students 表中添加學(xué)生記2 所示。圖 2程序如下，請(qǐng)補(bǔ)充完整。聲明對(duì)象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接Private ADOcn As ConnectionPrivate Sub Form_Load()連接 SQL Server 數(shù)據(jù)庫(kù)Dim strDB As StringstrDB =Provid

19、er=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1If ADOcn Is Nothing ThenSet ADOcn =2 ADOcn.Open strDBEnd If End SubPrivate Sub Command1_Click() 增加學(xué)生記錄Dim strSQL As StringDim ADOrs3ADOrs. 4=ADOcnADOrs.Open “Select 學(xué)號(hào) From Students Where =”+” “+Text1+” “If Not 5ThenMsgBox “你輸入的學(xué)號(hào)已存在，不能新增加！”ElseStrSQL

20、=”Insert Into students (學(xué)號(hào),姓名,籍貫, 性別)StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOcn.Execute 6MsgBox “添加成功，請(qǐng)繼續(xù)！”End IfPrivate Sub Command2_Click() 7End Sub3Drive1 D File1 中所列的圖片（*.bmp,*.gif 和則相應(yīng)的圖片顯示在圖片框Picture1 3 所示。圖 3程序代碼如下，請(qǐng)補(bǔ)充完整Private Sub Form_Load() Drive1.Drive

21、=File1.Pattern = *.bmp;*.gif;*.jpg End SubPrivate Sub Drive1_change() Dir1.Path = 2Text1.Text = Drive1.Drive End SubPrivate Sub 34End SubPrivate Sub File1_click()Picture1.5= LoadPicture(File1.Path + + File1.FileName) FileName = File1.Path + + File1.FileNameText1.Text = FileName End Sub五、編寫程序題Drive1

22、的默認(rèn)驅(qū)動(dòng)器設(shè)置為D 盤，選錄File1（*.jpFile1則相應(yīng)的圖片顯示在圖片框Picture1 4 所示。圖4程序運(yùn)行效果購(gòu)物優(yōu)惠程序。某商場(chǎng)為了加速促成商品流通，采用購(gòu)物打折的優(yōu)惠辦法，每位顧客一次購(gòu)物）在200元以上者，按9.5）在300元以上者，按93） 400 元以上者，按8 （）600元以上者按7 折優(yōu)惠。在窗體上添加兩個(gè)文本框和一個(gè)命令按鈕，要求在Text1 中輸入購(gòu)物商品總金額，單擊命令按鈕，在Text2 中輸出優(yōu)惠后的5 所示。圖5程序運(yùn)行效果編寫一個(gè)攝氏溫度與華氏溫度之間轉(zhuǎn)換的程序，程序運(yùn)行界面圖6 所示：圖 6 程序運(yùn)行效果要使用轉(zhuǎn)換的公式是：F=9/5*C+32，其

23、中 F 為華氏溫度，C 為攝氏溫度。Visual Basic 程序設(shè)計(jì)期末綜合練習(xí)題二答案一、單項(xiàng)選擇題1.A2.C3.D 4.D5.B 6.C7.B8.C9.B10.C 11.B 12.D 13.D14.B 15.C 16.D 17.B 18.A 19.B20.C 23.D 25.C26.C 27.C 28.C 29.D30.D 31.C32.D33.C3B 35.A 36.C 37.B38.B二 、 填 空 題 1Label2F1320004.cab中斷執(zhí)行窗體758啟動(dòng)窗體9Name10VisualBasic11ForNext 循環(huán)DoLoop循環(huán)12.8=x AND x30本地?cái)?shù)據(jù)庫(kù)遠(yuǎn)

24、程數(shù)據(jù)庫(kù)Circle(ScaleWidth/2,ScaleHeight/2),500Picture1. Picture = LoadPrcture(picturefile.jpg)(或?qū)懗蒝ariant型)整個(gè)模塊或窗體整個(gè)應(yīng)用程序（或工程中所有的模塊和所有的過(guò)）循環(huán)結(jié)構(gòu) 順序結(jié)構(gòu)19True實(shí)時(shí)錯(cuò)誤 邏輯錯(cuò)誤F1F9TCP/IPUDPTimer IntervalNameIndexDim ADOcn As New Connection 26.Dim A(-1 To 2,0 To 3) As Integer 27MainY MOD 4=0 And Y MOD 1000 OR Y MOD 400=

25、0WinsockWebBrowser右上三、閱讀程序題1.x=2y=2x=2y=4x=2y=62.543.424.855256.97810128329504050401046四、完善程序題1AddItemList1.ListIndex4修改確認(rèn)5 List1.List(List1.ListIndex)6 7修改2學(xué)生New ConnectionAs New RecordsetActiveConnectionADOrs.EOFstrSQLUnload Me3.1D:Drive1.DriveFile1.Path = Dir1.PathText1.Text = Dir1.PathPicture五、編寫程序題1參考答案：Priva