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

1、1 / 11Visual Basic程序設(shè)計期末綜合練習(xí)題二一、單項選擇題1在下列有關(guān) Visual Basic 的敘述中，錯誤的是（）。A 采用了事件驅(qū)動的編程機(jī)制 B 是面向?qū)ο蟮木幊陶Z言C.是可視化的程序設(shè)計語言D 是面向過程的程序設(shè)計語言2應(yīng)用程序打包后，其包文件的后綴為（）。A .exeB .txtC .cabD .ocx3.在新建一個“標(biāo)準(zhǔn)EXE”工程后，不在工具箱中出現(xiàn)的控件是（）。A 列表框 B 通用對話框C.驅(qū)動器列表框D 圖片框Forml,則在程序運行過程中，單擊窗體時，被執(zhí)行的事件過程的名稱是（ ）。5對于定時器（Timer）控件，設(shè)置其定時是否開啟的屬性是（）。A.In

2、dex B . Tag C. Enabled D. Interval6.在 Visual Basic 中，工程文件的擴(kuò)展名為( )。A . .frmB . .vbpC. .clsD . .bas7. 有程序代碼如下：Text1.Text = 歡迎走進(jìn) VB 世界！ 則 Text1 ， Text ，和 歡迎走進(jìn) VB 世界！ 分別代表（ ）。A 對象，值，屬性B 對象，屬性，值C.對象，方法，屬性 D.屬性，對象，值8.以下敘述中正確的是（）。A 窗體的 Name 屬性指定窗體的名稱，用來標(biāo)識一個窗體B.窗體的 Name 屬性的值是顯示在窗體標(biāo)題欄中的文本C.可以在運行期間改變對象的Name 屬

3、性的值D .對象的 Name 屬性值可以為空9. VB 提供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)是（）。A .選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)B .選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)C.過程結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)、遞歸結(jié)構(gòu)D .遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)10 .在 VB 中，下列變量名不合法的是（）。A. take_1 B . takeC . take_1_2D . take-111.下列說法中正確的是（ ）。為了保存一個 Visua Basic 應(yīng)用程序，應(yīng)當(dāng)A .只保存窗體文件4.設(shè)窗體的名稱為A. Form1_Click() B.Form1_DbClick()C. Form_Click() DForm_DbC

4、lick()2 / 11B .只保存工程文件C.分別保存工程文件和標(biāo)準(zhǔn)模塊文件D .分別保存工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件12.確定一個控件在窗體上的位置的屬性是（）。A. Width 或 Height B . Width 和 HeightC. Top 和 LeftD. Top 或 Left13.確定一個窗體或控件的大小的屬性是（）A. Width 或 HeightB . Width 和 HeightC. Top 或 LeftD . Top 和 Left14當(dāng)一個工程含有多個窗體時，其中的啟動窗體是（）。A 第一個添加的窗體B 最后一個添加的窗體C.包含控件最多的窗體D 在“工程屬性”對話框

5、中指定的窗體15在一個語句行內(nèi)寫多條語句時，語句之間應(yīng)該用（）分隔。A 逗號 B.冒號C.頓號 D.分號 16要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個屬性是（）。A Style 和 PictureB Style 和 IconC Caption 和 PictureD Value 和 Icon17.目錄列表框的 Path 屬性的作用是（）。A 顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件名B.只顯示當(dāng)前路徑下的文件C.顯示根目錄下的文件名D .顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的路徑1 8 將數(shù)據(jù) China 項添加到列表框 （ List1 ） 中成為第一項應(yīng)使用的語句是 （ ） 。A List1.Ad

6、dItem0, ChinaB List1.AddItem 1, China CList1 .AddItem China,0D List1.AddItem China,119.要繪制多種形狀的圖形，需要設(shè)置Shape 控件的（）屬性。A 、 Style B、 BorderstyleC、 FillStyleD 、 Shape20下列可以把當(dāng)前目錄下的圖形文件pic1.jpg 裝入圖片框 Picture1 中的語句為）。A Picture1= pic1.jpg B Picture1 =LoadPicture（pic1.jpg）C Picture 1.Picture=LoadPicture（pic1.

7、jpg）D Picture 1.Picture=LoadPicture（pic1 ）21 如果要在窗體代碼編輯器的 ”通用 ”部分定義私有 Sub 過程，則正確的語句是 ）。A Public Sub B Private SubC Public FunctionD Private Function22. 不屬于 VB 數(shù)據(jù)庫引擎的是（ ）。A. ODBC B . BDEC . Jet 引擎 D . OLEDB23. 在 VB 應(yīng)用程序中，進(jìn)行斷點設(shè)置的按鍵是（）。3 / 11A Ctrl+F9 鍵B F9 鍵C Ctrl+F8 鍵 D F8 鍵24. 如果準(zhǔn)備讀文件，打開順序文件 ” text.

8、da 的正確語句是（）。Aopentext.datFor wrire As # 1B.opentext.datFor Binary As # 1C.opentext.datFor Input As # 1D.opentext.datFor Random As # 125. 使用 ADO 對象模型時，使 Recordset 和 Connection 對象建立連接的屬性是 （ ）。A . Open B . ExecuteC. CommandTypeD . ActiveConnection26. 使用 ADO 對象模型時，使 Recordset 和 Connection 對象建立連接的屬性是 （ ）

9、。A . Open B . ExecuteC. CommandTypeD . ActiveConnection27.在 VB 中，一旦數(shù)據(jù)到達(dá)，將首先觸發(fā)Winsock 控件的（ ）。A. DataArrival 事件B . ConnectionRequest 事件C. DataSend 事件D . GetGet 事件28. Winsock 控件的 LocalPort 屬性的作用是（ ）A .僅返回所用斷口 B .僅設(shè)置所用端口C.返回或設(shè)置所用端口D.返回或設(shè)置 IP 地址二、填空題1.每個應(yīng)用程序必須有一個惟一的文件。2.窗體文件和類模塊文件的擴(kuò)展名分別是和。3.表達(dá)式 6 + 15 2

10、* 2 Mod 2 的值是。4.表達(dá)式 172-2A3*5MOD6 的值是。5.計時器控件響應(yīng)的事件是 。6.在 Visual Basic 中，變量的默認(rèn)類型是。7.為了在運行時把當(dāng)前路徑下的圖形文件show.jpg 裝入圖片框 P1，所使用的語句 為。&設(shè)某個程序中要用到一個二維數(shù)組，要求數(shù)組名為A，類型為整型，第一維下標(biāo)從0 到 2，第二維下標(biāo)從 1 到 3，則相應(yīng)數(shù)組聲明語句為。9.用 Dim A（-2 to 3） 語句聲明二維數(shù)組后，數(shù)組 A 的元素共有個。10. VB 中參數(shù)傳遞的機(jī)制有兩種，一種是參數(shù)，另一種是 參數(shù)。11. 控件數(shù)組的名字由屬性指定，而數(shù)組中的每個元素由屬

11、性決定。12.若窗體的左上角坐標(biāo)為（ -200， 250），右下角坐標(biāo)為（ 300，-150），則 X 軸的 正向向， Y 軸的正向向。1 3 .窗體、圖片框或圖像框中的圖形通過對象屬性。14. 在 VB 中，將 Foxpro 稱為外部數(shù)據(jù)庫， Access 稱為，SQL Server 稱為。15. vb 應(yīng)用程序與數(shù)據(jù)庫進(jìn)行通信的主要機(jī)制稱為。16.全局變量必須在模塊中定義，所使用的關(guān)鍵字為。17. 全局變量是指那些在中有效的變量，一般在模塊代碼編輯器的頂部使用聲明。18. Winsock 控件主要用來編制或協(xié)議的網(wǎng)絡(luò)應(yīng)用程序。三、閱讀程序題(共 25 分) 閱讀下列程序并寫出程序運行結(jié)果

12、14 / 11Private Sub Command1_Click()Dim x As IntegerStatic s As Integerx = Val(InputBox( 請輸入一個正整數(shù) =)If x 5 Thens = s * xElses = s + xEnd IfText1.Text = s= & Str(s)End Sub程序運行時連續(xù) 3 次單擊 Command1，且設(shè)輸入的數(shù)據(jù)為 6、5、4 時，分別寫出文本 框 Text1的值。2.Private Sub Form_Click()Static a As IntegerDim b As Integera = a + 3

13、b = b + 4Text1 = aText2 = bEnd Sub寫出程序運行時連續(xù)單擊三次窗體后，文本框 Text1 和 Text2 顯示結(jié)果。3.Private Sub Form_Click()Dim A(1 To 3) As StringDim c As Integer, j As IntegerA(1) = 2A(2) = 4A(3) = 6c = 2For j = 1 To 3c = c + Val(A(j)Next jPrint cEnd Sub 寫出程序運行時單擊窗體后， Form1 上的輸出結(jié)果。4.Private Sub Form_Click() n = 0 For i =

14、 1 To 2For j = 2 To 4If j Mod 2 0 Thenn = n + 1End If n = n + 2Next j5 / 11Next iPrint nEnd Sub 寫出程序運行時單擊窗體后，窗體Form1 上的輸出結(jié)果。5.Private Sub Command1_Click()Dim a As Integer, b As Integer a = 2: b = 3For i = 1 To 3For j = 1 To i b = b + j Next j a = a + bNext iPrint a End Sub 寫出程序運行時單擊命令按鈕后，窗體Form1 上的輸

15、出結(jié)果。6.Private Sub Form_Click()Dim A(1 To 4) As StringDim c As IntegerDim j As IntegerA(1) = 4A(2) = 6A(3) = 8A(4) = 10c = 1For j = 1 To 4c = c + Val(A(j)Next jPrint cEnd Sub 寫出程序運行時單擊窗體后，窗體Form1 上的結(jié)果。7.Sub Change(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = xx = yy = tPrint x, yEnd Sub

16、Private Sub Form_Click()Dim a As Integer, b As Integera = 10: b = 20Change a, bPrint a, bEnd Sub寫出程序運行時單擊窗體后， Form1 上的輸出結(jié)果。6 / 118.Function F(n As Integer) As LongDim i As Integer, Temp As LongTemp = 1For i = 1 To nTemp = Temp * iNext iF = TempEnd FunctionPrivate Sub Form_Click()Dim k As Integer, nj

17、 As Integerk = 5 nj = F(k)Print k 。 ！ = 。 njEnd Sub 寫出程序運行時，單擊窗體 Form1 上的輸出結(jié)果。四、完善程序題(共 10 分)1.已知存在一名為學(xué)生”的SQL Server 數(shù)據(jù)庫，其中的students”數(shù)據(jù)表用來存儲學(xué)生的基本情況信息，包括學(xué)號、姓名、籍貫、性別。請編寫一個簡單的應(yīng)用程序，向7 / 11SQL Server students表中圖 1程序如下，請補充完整。聲明對象變量 ADOcn，用于創(chuàng)建與數(shù)據(jù)庫的連接Private ADOc n As Conn ectionPrivate Sub Form_Load()連接 SQ

18、L Server 數(shù)據(jù)庫Dim strDB As Stri ngstrDB = Provider=SQLOLEDB 。LSF。User ID=sa。Password=。Database = 1If ADOcn Is Nothing Then2_3LEnd IfEnd SubPrivate Sub Comma nd1_Click()增加學(xué)生記錄Dim strSQL As Stri ngDim ADOrs As 45_ADOc nADOrs.Ope n “ Select 號 From Students Where 學(xué)號=” +” “ +Text1+ ” “6The nMsgBox 你輸入的學(xué)號已存

19、在，不能新增加！”ElseStrSQL= ” Insert Into students 學(xué)號，姓名”籍貫，性別)StrSQL=strSQL+Values( ” +text1+ ”，+text2+ ，+text3+ ，“ +text4+)”ADOrs.Execute 7students 表中添加學(xué)生記錄。 程序的基本邏輯是： 當(dāng)窗體被加載時， 程序聯(lián)接 數(shù)據(jù)庫；當(dāng)點擊“增加”按鈕時，首先查詢學(xué)號是否重復(fù)，如果不重復(fù)則向 添加學(xué)生記錄。其運行界面如圖1 所示。8 / 11MsgBox 添加成功，請繼續(xù)！”End If9 / 11Private Sub Comma nd2_Click()Un loa

20、d MeEnd Sub2.在窗體上建立一個驅(qū)動器列表框、目錄列表框、文件列表框、圖片框、文本框。要求 程序運行后，驅(qū)動器列表框 Drive1 的默認(rèn)驅(qū)動器設(shè)置為E 盤，選擇 File1 中所列的圖片文件（*.bmp,*.gif 和*.jpg ），則相應(yīng)的圖片顯示在圖片框Picture1 中，文件的路徑顯示在文本框中。程序運行結(jié)果如圖2 所示。圖 2程序如下，請補充完整。Private Sub Form_Load()Drive1.Drive = 12 = *.bmp。*.gif。*.jpgEnd SubPrivate Sub Drive1_cha nge()3 _ =Drive1.DriveTe

21、xtl.Text = Drivel.DriveEnd SubPrivate Sub Dir1_Cha nge()44-Textl.Text = Dir1 .P athEnd SubPrivate Sub File1_click()Picturel. _5_= LoadPicture(File1 .P ath + + Filel.FileName)FileName = Filel.Path + + Filel.FileNameTextl.Text = _6_10 / 11End Sub五、編寫程序題答案一、單項選擇題1.D 2.C3.B4.C5.C6.B7.B8.A9.B10.D11.D 12.C 13.B 14.D15.B17.D18.C 19.D 20.C 21 . B 22 . B23. B24. C25.D 26.D 27.A28.C、填空題(每小題 2 分，共 20 分)1.vbp2.frm .cis3.74.45.Timer6.Variant 或變體型7.P1. Picture=LoadPrcture(show.jpg)& Dim A(0 To 2,1To 3) As Integer9.610.引用參數(shù)傳遞(或按址傳遞)按值傳遞11. Name Index12. 右上13Picture14. 本地數(shù)據(jù)庫、