VB程序設(shè)計(jì)期末復(fù)習(xí)資料

1、VB程序設(shè)計(jì)期末復(fù)習(xí)資料一、 單項(xiàng)選擇題1與傳統(tǒng)的程序設(shè)計(jì)語言相比，Visual Basic最突出的特點(diǎn)是（ ）。A結(jié)構(gòu)化程序設(shè)計(jì) B程序開發(fā)環(huán)境 C事件驅(qū)動(dòng)編程機(jī)制 D程序調(diào)試技術(shù)2后綴為.cls的文件表示VB 的（ ）。A窗體文件 B類模塊文件 C工程文件 D標(biāo)準(zhǔn)類模塊文件 3窗體的Load事件的觸發(fā)時(shí)機(jī)是（ ）。A用戶單擊窗體時(shí) B窗體被加載時(shí) C窗體顯示之后 D窗體被卸載時(shí)4把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是（ ）。AVal BStr CAsc DChr5下列變量名中合法的是（ ）。AIF B7AB CAB7 DAB_76. 要退出ForNext循環(huán)，應(yīng)使用的語句是（ ）。AExi

2、t BExit For CContinue DStop Loop7將定時(shí)器的時(shí)間間隔設(shè)置為1秒，則定時(shí)器的Interval屬性值應(yīng)設(shè)為（ ）。 A1 B100 C1000 D108鍵盤事件的執(zhí)行順序是（ ）。AKeyPress、KeyDown、KeyUp BKeyDown、KeyPress、KeyUpCKeyUp、KeyDown、KeyPress DKeyUp、KeyPress、KeyDown9要清除List列表框控件中的所有項(xiàng)目，可采用的方法是（ ）。AErase BClear CClick DDelete10如果希望以模態(tài)方式顯示窗體Form1，下列正確的語句是（ ）。AForm1.Sho

3、w 0 BForm1.Show CForm1.Show 1 D以下都不正確11無論何種控件，共同具有的屬性是（ ）。AText屬性 BName屬性 CCaption屬性 DAutosize屬性12假定有一個(gè)菜單項(xiàng)MenuItem，為了在運(yùn)行時(shí)該菜單無效（變灰），應(yīng)使用的語句為（ ）。A MenuItem. Enabled=False B MenuItem. Enabled=TrueC MenuItem. Visible=True D MenuItem. Visible=False13在窗體上畫兩個(gè)文本框（其Name屬性分別為Text1和Tex12）和一個(gè)命令按鈕（其Name屬性為Command

4、1），然后編寫如下事件過程：Private Sub Command1_Click()x = 1:n=0Do While x < 100x = x * 10n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為（ ）。A10 和0 B2和100 C3和50 D4和16814如果準(zhǔn)備讀文件，打開順序文件”text.dat”的正確語句是（ ）。Aopen "text.dat" For wrire As # 1 Bopen "text.dat"

5、; For Binary As # 1 Copen "text.dat" For Input As # 1 Dopen "text.dat" For Random As # 115不屬于VB數(shù)據(jù)庫(kù)引擎的是（ ）。AODBC B Jet引擎 CBDE DOLE DB16在新建一個(gè)“標(biāo)準(zhǔn)EXE”工程后，不在工具箱中出現(xiàn)的控件是（ ）。A列表框 B通用對(duì)話框C驅(qū)動(dòng)器列表框 D圖片框17設(shè)窗體的名稱為Form1，則在程序運(yùn)行過程中，單擊窗體時(shí)，被執(zhí)行的事件過程的名稱是（ ）。AForm1_Click() B.Form1_DbClick()CForm_Click(

6、) DForm_DbClick()18對(duì)于定時(shí)器（Timer）控件,設(shè)置其定時(shí)是否開啟的屬性是（ ）。AIndex BTag CEnabled DInterval19在Visual Basic中，工程文件的擴(kuò)展名為（ ）。A.frm B.vbp C.cls D.bas20有程序代碼如下： Text1.Text = "歡迎走進(jìn)VB世界！"則Text1，Text ，和"歡迎走進(jìn)VB世界！"分別代表（ ）。A對(duì)象，值，屬性 B對(duì)象，屬性，值 C對(duì)象，方法，屬性 D屬性，對(duì)象，值 21以下敘述中正確的是（ ）。A窗體的Name屬性指定窗體的名稱，用來標(biāo)識(shí)一個(gè)窗體

7、 B窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本C可以在運(yùn)行期間改變對(duì)象的Name屬性的值 D對(duì)象的Name屬性值可以為空22要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個(gè)屬性是（ ）。AStyle和Picture BStyle和IconCCaption和Picture DValue和Icon 23目錄列表框的Path屬性的作用是（ ）。A顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名 B只顯示當(dāng)前路徑下的文件 C顯示根目錄下的文件名D顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的路徑 24將數(shù)據(jù)" China"項(xiàng)添加到列表框（List1）中成為第一項(xiàng)應(yīng)使用的語句是（ ）。AList1.Ad

8、dItem 0, " China" BList1.AddItem 1, " China" CList1.AddItem " China" ,0 DList1.AddItem " China" ,1 25下列可以把當(dāng)前目錄下的圖形文件pic1.jpg裝入圖片框Picture1中的語句為（ ）。APicture1=" pic1.jpg " BPicture1 =LoadPicture("pic1.jpg") CPicture 1.Picture=LoadPicture("

9、;pic1.jpg") 26. 在VB應(yīng)用程序中，進(jìn)行斷點(diǎn)設(shè)置的按鍵是（）。ACtrl+F9鍵BF9鍵CCtrl+F8鍵 DF8鍵 27使用ADO對(duì)象模型時(shí)，使Recordset和Connection對(duì)象建立連接的屬性是（ ）。 AOpen BExecuteCCommandType DActiveConnection28關(guān)于對(duì)象的屬性不正確的是（ ）。A對(duì)象的屬性一般有屬性名和屬性值 B可通過屬性窗口設(shè)置屬性的值C可通過程序代碼設(shè)置屬性的值 D對(duì)象的所有屬性值均可在設(shè)計(jì)時(shí)設(shè)計(jì)29在VB中，下列變量名不合法的是（ ）。Afile_1 Bfile Cfile-1 Dfile_1_230在

10、設(shè)計(jì)動(dòng)畫時(shí)，用時(shí)鐘控件來控制動(dòng)畫速度的屬性是（ ）。 AEnabled BMove CInterval DTimer 31要從ForNext循環(huán)中退出循環(huán)，應(yīng)使用（ ）語句。AExit BExit For CContinue DStop Loop32文本框ScrollBars屬性設(shè)置了非零值，卻沒有效果，原因是（ ）。 A文本框中沒有內(nèi)容 B文本框的Locked屬性為TrueC文本框的MultiLine屬性為True D文本框的MultiLine屬性為False33要利用公用對(duì)話框控件來顯示“打開文件”對(duì)話框，需要調(diào)用控件的（ ）方法。AShowPrinter BShowOpen CShowS

11、ave DShowColor34下列賦值語句正確的是（ ）。Ax = y +z By + z = x C-y= x D4 = x +y35確定一個(gè)控件在窗體上位置的屬性是（ ）。AWidth和Height BWidth或Height CTop和Left DTop或Left 36如果希望以模態(tài)方式顯示窗體Form1，下列正確的語句是（ ）。AForm1.Show 0 BForm1.ShowCForm1.Show 1 D以下都不正確37用語句Dim A(-2To 3)As Integer所定義的數(shù)組的元素的個(gè)數(shù)是（ ）。 A3 B4 C5 D638如果創(chuàng)建了命令按鈕的控件數(shù)組，那么Click事件的

12、參數(shù)是（ ）。ACaption BTagCIndex D沒有參數(shù)39如果要在窗體代碼編輯器的”通用”部分定義私有Sub過程，則正確的語句是（）。APublic Sub BPrivate SubCPublic Function DPrivate Function二、 填空題1設(shè)A=2，B=3，C=4，D=5。表達(dá)式Not A<=C Or 4*C = B2 And B<>A+C的值為 。2在調(diào)用過程和函數(shù)時(shí)， 可作為獨(dú)立的基本語句調(diào)用，但不直接返回值。 要返回一個(gè)值。在調(diào)用程序中要把被調(diào)用的函數(shù)作為表達(dá)式的一部分。3為了在運(yùn)行時(shí)把當(dāng)前路徑下的圖形文件picturefile.jpg

13、裝入圖片框Picture1，所使用的語句為 。4在Visual Basic的轉(zhuǎn)換函數(shù)中將數(shù)值轉(zhuǎn)換為字符串的函數(shù)是 ；將字符轉(zhuǎn)換為相應(yīng)的ASCII碼的函數(shù)是 。 5執(zhí)行指令“Line(100,20)-Step(300,500)”后，CurrentY = 。6計(jì)時(shí)器控件響應(yīng)的事件是 。 7在Visual Basic中，變量的默認(rèn)類型是 。8為了在運(yùn)行時(shí)把當(dāng)前路徑下的圖形文件show.jpg裝入圖片框P1，所使用的語句為 。9用Dim A(-2 to 3)語句聲明二維數(shù)組后，數(shù)組A的元素共有 個(gè)。10. VB中參數(shù)傳遞的機(jī)制有兩種，一種是 參數(shù)，另一種是 參數(shù)。11若窗體的左上角坐標(biāo)為（-200，2

14、50），右下角坐標(biāo)為（300，-150），則X軸的正向向右，Y軸的正向向 。12若窗體Form1左上角坐標(biāo)為（0，600），右下角的坐標(biāo)為（800，-200）。則X軸的正向向 ，Y軸的正向向 。13用Dim A(3,3)語句聲明二維數(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ù)類型，則可以把它聲明為 變量。 三、閱讀程序題1運(yùn)行下列程序，回答問題。Private Sub Form_Click() Dim A(1 To 3) As String Di

15、m c As Integer,j As Integer A(1) = “3” A(2) = “6” A(3) = “9” c=0 For j=1 to 3 c = c + Val(A(j)Next jPrint cEnd Sub 在程序右邊寫出程序運(yùn)行時(shí)單擊窗體后，窗體Form1上的結(jié)果。2Private Sub Command1_Click()x = 0Do While x < 60x = (x + 2) * (x + 3)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)Text3.Text = Val(Text1.Text) +

16、Val(Text2.Text)End Sub寫出程序運(yùn)行后，文件框Text3的結(jié)果。3.Private Sub Form_Click() Static a As Integer Dim b As Integer a = a + 3 b = b + 4 Text1 = a Text2 = bEnd Sub寫出程序運(yùn)行時(shí)連續(xù)單擊三次窗體后，文本框Text1和Text2顯示結(jié)果。4.Private Sub Command1_Click() Dim a As Integer, b As Integer a = 2: b = 3 For i = 1 To 3 For j = 1 To i b = b +

17、 j Next j a = a + b Next i Print aEnd Sub寫出程序運(yùn)行時(shí)單擊命令按鈕后，窗體Form1上的輸出結(jié)果。5Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 2c = 3For j = 1 To 5 If j > 3 Then c = c + 5 Exit For Else k = k + 5End IfNext jPrint c, kEnd Sub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。6. Private Sub Command1_Click()

18、Dim X As Integer, Y As Integer X = 1 : Y = 1 For i = 1 To 4 For j = 1 To i Y = Y + j Next j X = X + Y Next i Print XEnd Sub 寫出程序運(yùn)行時(shí)單擊命令按鈕后，窗體Form1上的輸出結(jié)果。三、 完善程序題1、程序界面如圖1所示。兩個(gè)文本框一個(gè)用于輸入攝氏溫度數(shù)(文本框名為Text1)，另一個(gè)用于輸出對(duì)應(yīng)的華氏溫度(文本框名為Text2)。攝氏溫度C與華氏溫度F的轉(zhuǎn)換公式是：C=（5/9）*（F-32）。同時(shí)文本框輸入攝氏溫度數(shù)時(shí)要求具有檢查功能，以拒絕接收非數(shù)字字符。三個(gè)命令按

19、鈕的名稱分別是 ：“開始”：Command1，“下一個(gè)”Command2，“結(jié)束”Command3。程序如下，請(qǐng)補(bǔ)充完整。 圖1Private Sub Command1_Click() 1 Command1.Visible = 2 Command2.Visible = True Command3.Visible = TrueEnd SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = 3 Command1_ClickEnd SubPrivate Sub Command3_Click() EndEnd Sub

20、Private Sub Form_Load() Command2.Visible = False Command3.Visible = FalseEnd SubPrivate Sub Text1_Change () Text2.Text = 4 End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If (48 > KeyAscii Or KeyAscii > 57) Then 5 End Sub2、假設(shè)用Access創(chuàng)建了一個(gè)名為“學(xué)生.MDB”的數(shù)據(jù)庫(kù)，并在其中創(chuàng)建了一張名為“學(xué)生基本情況”的數(shù)據(jù)表，表中存放了學(xué)生的基本信

21、息，如圖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)、姓名、籍貫信息，否則提示用戶“記錄不存在”并使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() 1 2 &qu

22、ot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:學(xué)生.MDB"End SubPrivate Sub Command1_Click() Dim strSQL As String Dim ADOrs As 3 Recordset ADOrs.ActiveConnection = 4 strSQL = "Select * From 學(xué)生基本情況 Where 學(xué)號(hào)=" + " ' " + Text1 + " ' " 5 If Not ADOrs.EOF Then T

23、ext2 = ADOrs.Fields("學(xué)號(hào)") Text3 = ADOrs.Fields("姓名") Text4 = ADOrs.Fields("籍貫") Else MsgBox "要查詢的學(xué)號(hào)不存在，請(qǐng)重新輸入!", vbOKOnly, "信息提示" Text1 = "" Text1.SetFocus End IfEnd Sub Private Sub Command2_Click() UnLoad Me End3、要求從文本框中輸入課程名稱，然后按“添加”按鈕，將該課

24、程名程添加到列表框中；當(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é)果如下圖所示。List1Command3Command2Command1Text1 程序如下，請(qǐng)補(bǔ)充完整。Private Sub Form_Load() List1.AddItem "Visual Basic程序設(shè)計(jì)" List1.AddItem "SQL SERV

25、ER數(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 <> "" Then 1 Text1.Text '將文本框中的內(nèi)容加到列表框中 Text1.Text = "" 2 MsgBox "請(qǐng)?jiān)谖谋?/p>