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

1、Visual Basic 程序設(shè)計(jì)期末綜合練習(xí)題二一、單項(xiàng)選擇題1. 在下列有關(guān) Visual Basic 的敘述中，錯(cuò)誤的是（）。 A 采用了事件驅(qū)動(dòng)的編程機(jī)制 B 是面向?qū)ο蟮木幊陶Z(yǔ)言 C.是可視化的程序設(shè)計(jì)語(yǔ)言 D是面向過(guò)程的程序設(shè)計(jì)語(yǔ)言2. 應(yīng)用程序打包后，其包文件的后綴為（）。B.txtA .exeC .cabD .ocx3在新建一個(gè)“標(biāo)準(zhǔn)A .列表框C.驅(qū)動(dòng)器列表框4.設(shè)窗體的名稱(chēng)為 名稱(chēng)是（ ）。A. Form1_Click（）C. Form_Click（）EXE”工程后，不在工具箱中出現(xiàn)的控件是（B .通用對(duì)話框D .圖片框Formi，則在程序運(yùn)行過(guò)程中，單擊窗體時(shí)，B. Fo

2、rm1_DbClick()D Form_DbClick()5對(duì)于定時(shí)器（Timer）控件，設(shè)置其定時(shí)是否開(kāi)啟的屬性是（A.6.在A.Index B. Tag C. Enabled D.Visual Basic 中，工程文件的擴(kuò)展名為( .frmB .Interval)。）。被執(zhí)行的事件過(guò)程的）。.vbp.basC.7.有程序代碼如下：Text1.Text = 歡迎走進(jìn)則 Text1 ， Text ，和 歡迎走進(jìn) VB 世界！.clsDVB 世界！ 分別代表（）。B .對(duì)象，屬性，值D.屬性，對(duì)象，值 ）。A 對(duì)象，值，屬性C.對(duì)象，方法，屬性 8以下敘述中正確的是（A .窗體的Name屬性指定

3、窗體的名稱(chēng)，用來(lái)標(biāo)識(shí)一個(gè)窗體B. 窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本C. 可以在運(yùn)行期間改變對(duì)象的Name屬性的值D .對(duì)象的Name屬性值可以為空）。9. VB 提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)是（A .選擇結(jié)構(gòu)、過(guò)程結(jié)構(gòu)、順序結(jié)構(gòu)B .選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)C.過(guò)程結(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_1B . takeC . take_1_2D . take-111.下列說(shuō)法中正確的是（）。為了保存一個(gè) Visua Basic 應(yīng)用程序，應(yīng)當(dāng)A .只保存窗體文件B. 只保存工程文件C.分別

4、保存工程文件和標(biāo)準(zhǔn)模塊文件）。D .分別保存工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件 12確定一個(gè)控件在窗體上的位置的屬性是（A. Width 或 Height B . Width 和 HeightC. Top 和 LeftD. Top 或 Left13 確定一個(gè)窗體或控件的大小的屬性是（）A Width 或 HeightB Width 和 HeightC. Top 或 LeftD. Top 和 Left）。14當(dāng)一個(gè)工程含有多個(gè)窗體時(shí)，其中的啟動(dòng)窗體是（A 第一個(gè)添加的窗體B 最后一個(gè)添加的窗體C.包含控件最多的窗體15在一個(gè)語(yǔ)句行內(nèi)寫(xiě)多條語(yǔ)句時(shí)，語(yǔ)句之間應(yīng)該用（ A .逗號(hào)B冒號(hào)C.頓號(hào)D.分號(hào)1

5、6要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個(gè)屬性是（ A Style 和 PictureB Style 和 IconC Caption 和 PictureD Value 和 Icon17.目錄列表框的Path屬性的作用是（D .在“工程屬性”對(duì)話框中指定的窗體）分隔。）。）。A .顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名B.只顯示當(dāng)前路徑下的文件C. 顯示根目錄下的文件名D 顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的路徑）。18.將數(shù)據(jù) China 項(xiàng)添加到列表框（ List1 ）中成為第一項(xiàng)應(yīng)使用的語(yǔ)句是（ A. List1.AddItem 0, ChinaB . List1.AddItem 1,

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

7、ture(pic1 )）。21.如果要在窗體代碼編輯器的”通用”部分定義私有Sub過(guò)程，則正確的語(yǔ)句是(A Public SubB Private SubC. Public FunctionD . Private Function22不屬于 VB 數(shù)據(jù)庫(kù)引擎的是（ ）。A. ODBC B . BDEC . Jet 引擎 D. OLEDB）。23.在VB應(yīng)用程序中，進(jìn)行斷點(diǎn)設(shè)置的按鍵是（A Ctrl+F9 鍵B F9 鍵C Ctrl+F8 鍵 D F8 鍵ABC）。24.如果準(zhǔn)備讀文件，打開(kāi)順序文件” text.da的正確語(yǔ)句是(opentext.datFor wrire As # 1opent

8、ext.datFor Binary As # 1opentext.datFor Input As # 1opentext.datFor Random As # 1ADO對(duì)象模型時(shí)，使Recordset和Conn ection對(duì)象建立連接的屬性是(D.25. 使用A . Open B . ExecuteC. CommandTypeD. ActiveConnection26. 使用ADO對(duì)象模型時(shí)，使Recordset和Conn ection對(duì)象建立連接的屬性是 ( A . Open B . ExecuteC. CommandTypeD. ActiveConnection27. 在 VB 中，一旦

9、數(shù)據(jù)到達(dá)，將首先觸發(fā) Winsock 控件的( )。A . DataArrival 事件B. ConnectionRequest 事件C. DataSend 事件D . GetGet 事件28Winsock 控件的 LocalPort 屬性的作用是(A 僅返回所用斷口 B 僅設(shè)置所用端口）。）。C.返回或設(shè)置所用端口D .返回或設(shè)置IP地址二、填空題每個(gè)應(yīng)用程序必須有一個(gè)惟一的文件。 窗體文件和類(lèi)模塊文件的擴(kuò)展名分別是和。表達(dá)式 6 + 15 2 * 2 Mod 2 的值是。表達(dá)式172-2A3*5MOD6 的值是。計(jì)時(shí)器控件響應(yīng)的事件是 。在 Visual Basic 中，變量的默認(rèn)類(lèi)型是。

10、為了在運(yùn)行時(shí)把當(dāng)前路徑下的圖形文件 show.jpg裝入圖片框P1，所使用的語(yǔ)句為。 設(shè)某個(gè)程序中要用到一個(gè)二維數(shù)組，要求數(shù)組名為A，類(lèi)型為整型，第一維下標(biāo)從第二維下標(biāo)從 1 到 3，則相應(yīng)數(shù)組聲明語(yǔ)句為。用Dim A（-2 to 3）語(yǔ)句聲明二維數(shù)組后，數(shù)組A的元素共有個(gè)。123456780 到 2，910. VB 中參數(shù)傳遞的機(jī)制有兩種，一種是參數(shù)，另一種是 參數(shù)。11. 控件數(shù)組的名字由屬性指定，而數(shù)組中的每個(gè)元素由屬性決定。 12若窗體的左上角坐標(biāo)為（ -200， 250），右下角坐標(biāo)為（ 300， -150），則 X 軸的正向向， Y 軸的正向向。13窗體、圖片框或圖像框中的圖形通過(guò)

11、對(duì)象屬性。14.在VB中，將Fox pro稱(chēng)為外部數(shù)據(jù)庫(kù)， Access稱(chēng)為，SQL Server稱(chēng)為。15vb 應(yīng)用程序與數(shù)據(jù)庫(kù)進(jìn)行通信的主要機(jī)制稱(chēng)為。 16全局變量必須在模塊中定義，所使用的關(guān)鍵字為。17全局變量是指那些在中有效的變量，一般在模塊代碼編輯器的頂部使用聲明。18 Winsock 控件主要用來(lái)編制或協(xié)議的網(wǎng)絡(luò)應(yīng)用程序。三、閱讀程序題（共 25 分） 閱讀下列程序并寫(xiě)出程序運(yùn)行結(jié)果 1Private Sub Command1_Click()Dim x As Integer Static s As Integerx = Val(InputBox( 請(qǐng)輸入一個(gè)正整數(shù) =) If x

12、5 Thens = s * xElses = s + xEnd IfText1.Text = s= & Str(s)End Sub程序運(yùn)行時(shí)連續(xù) 3 次單擊 Command1 ，且設(shè)輸入的數(shù)據(jù)為 6、5、4 時(shí)，分別寫(xiě)出文本框 Text1 的值。2.Private Sub Form_Click()Static a As IntegerDim b As Integera = a + 3b = b + 4Text1 = aText2 = bText1 和 Text2 顯示結(jié)果。End Sub寫(xiě)出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后，文本框3.Private Sub Form_Click() Dim A(1

13、 To 3) As String Dim c As Integer, j As Integer A(1) = 2A(2) = 4A(3) = 6c = 2For j = 1 To 3 c = c + Val(A(j)Next jPrint cEnd Sub 寫(xiě)出程序運(yùn)行時(shí)單擊窗體后， Form1 上的輸出結(jié)果。Private Sub Form_Click()n = 0For i = 1 To 24.For j = 2 To 4If j Mod 2 0 Then n = n + 1End IfNext jNext iPrint nEnd Sub寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，窗體Form1 上的輸出結(jié)

14、果。5.Private Sub Command1_Click()Dim a As Integer, b As Integer a = 2: b = 3For i = 1 To 3 For j = 1 To i b = b + j Next j a = a + bNext iPrint aEnd Sub寫(xiě)出程序運(yùn)行時(shí)單擊命令按鈕后，窗體Form1 上的輸出結(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 = 1

15、For j = 1 To 4 c = c + Val(A(j)Next jPrint cEnd Sub 寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，窗體Form1 上的結(jié)果。a増加學(xué)主記錄兇Sub Change(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = x x = yy = tPrint x, y End SubPrivate Sub Form_Click()Dim a As Integer, b As Integer a = 10: b = 20Change a, bPrint a, bEnd Sub寫(xiě)出程序運(yùn)行時(shí)單擊窗體后， For

16、m1 上的輸出結(jié)果。8.Function F(n As Integer) As Long Dim i As Integer, Temp As Long Temp = 1For i = 1 To nTemp = Temp * iNext iF = TempEnd FunctionPrivate Sub Form_Click()Dim k As Integer, nj As Integerk = 5 nj = F(k) Print k; ！End Sub寫(xiě)出程序運(yùn)行時(shí)，=; nj單擊窗體Formi上的輸出結(jié)果。四、完善程序題（共10 分）1 已知存在一名為 學(xué)生的基本情況信息， 表中添加學(xué)生記錄。

17、程序的基本邏輯是：當(dāng)窗體被加載時(shí)，程序聯(lián)接 當(dāng)點(diǎn)擊“增加”按鈕時(shí)，首先查詢(xún)學(xué)號(hào)是否重復(fù)，如果不重復(fù)則向 錄。其運(yùn)行界面如圖 1 所示?！皩W(xué)生”的 包括學(xué)號(hào)、SQL Server數(shù)據(jù)庫(kù)，其中的“ students”數(shù)據(jù)表用來(lái)存儲(chǔ) 姓名、籍貫、性別。請(qǐng)編寫(xiě)一個(gè)簡(jiǎn)單的應(yīng)用程序， 向 students SQL Server 數(shù)據(jù)庫(kù)； stude nts表中添加學(xué)生記増加叢返回健程序如下，請(qǐng)補(bǔ)充完整。聲明對(duì)象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接Private ADOc n As Conn ectionPrivate Sub Form_Load()連接SQL Server數(shù)據(jù)庫(kù)Dim strDB As

18、Stri ngstrDB = P rovider=SQLOLEDB;LSF;User ID=sa; Password=;Database = 1If ADOc n Is Noth ing The n2131End IfEnd SubPrivate Sub Comma nd1_Click() 增加學(xué)生記錄Dim strSQL As Stri ngDim ADOrs As 4-51ADOrs. Open 61The nMsgBoxElse StrSQL= ”=ADOcn“ Selec學(xué)號(hào) From Students Where 學(xué)號(hào)=” +”你輸入的學(xué)號(hào)已存在，不能新增加!StrSQL=strSQ

19、L+Values( ” ADOrs.Execute MsgBox添加成功，請(qǐng)繼續(xù)!End IfInsert Into students學(xué)號(hào),姓名”籍貫，性別) “+text1+ ”+”“+Text1+ ”“+text2+ ”“+text3+ ”P(pán)rivate Sub Comma nd2_Click()Un load MeEnd Sub2.在窗體上建立一個(gè)驅(qū)動(dòng)器列表框、目錄列表框、文件列表框、圖片框、文本框。要求程 序運(yùn)行后，驅(qū)動(dòng)器列表框Drivel的默認(rèn)驅(qū)動(dòng)器設(shè)置為E盤(pán)，選擇Filel中所列的圖片文件(*.bmp,*.gif 和*jpg )，則相應(yīng)的圖片顯示在圖片框Picturel中，文件的路

20、徑顯示在文本框中。程序運(yùn)行結(jié)果如圖 2所示。照片大理water lilies. JfGx|程序如下，請(qǐng)補(bǔ)充完整。Private Sub Form_Load() Drivel.Drive =12J= *.bm p; *.gif;*.j pg End SubPrivate Sub Drive1_cha nge()3 =Drive1.DriveText1.Text = Drive1.Drive End SubPrivate Sub Dir1_Cha nge()-4Text1.Text = Dir1 .P athEnd SubPrivate Sub File1_click()Picturel. = L

21、oad Pictu re(File1. Path + + Filel.FileName)FileName = Filel. Path + + Filel.FileNameTextI.Text = _6End Sub五、編寫(xiě)程序題1.按下述規(guī)定，編寫(xiě)一征收所得稅程序。(1) 收入在1000元以?xún)?nèi)，不納稅；(2) 收入超過(guò)1000元以上的部分，納稅 20%(3) 當(dāng)收入達(dá)到5000元或超過(guò)時(shí)，5000元以上的部分，納稅 22%。 程序運(yùn)行界面如圖 3所示：2d收入1020納稅甑計(jì)算退出答案一、單項(xiàng)選擇題1.D 2.C3.B4.C 5.C 6.B 7.B 8.A9.B10.D11.D 12.C 13.B 14.D15.B 16.A 17.D18.C19.D 20.C 21. B 22 . B23. B24. C25.D 26.D 27.A 28.C二、填空題(每小題 2分，共20 分).vbp.frm .cls745.6.7.&TimerVariant或變體