vb程序設(shè)計(jì)期末復(fù)習(xí)題及答案

《vb程序設(shè)計(jì)期末復(fù)習(xí)題及答案》由會(huì)員分享，可在線閱讀，更多相關(guān)《vb程序設(shè)計(jì)期末復(fù)習(xí)題及答案（47頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、- "vb程序設(shè)計(jì)"期末復(fù)習(xí)題及答案 一、填空題 1．創(chuàng)立一個(gè)VB應(yīng)用程序三個(gè)主要的步驟是__________________、________________和_____________________。 2．當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的__________窗口中，把此文本框的_____________屬性設(shè)置成空白。 3．Label和Te*tBo*控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本信息，可使用___________控件；假設(shè)允許用戶輸入文本，則應(yīng)使用_____________控件。 4．窗體的常用方法有__

2、________、___________、___________和___________。 5．要想在代碼中給名為t*tshow的文本框賦予文本：GOOD WORK ，應(yīng)當(dāng)編寫的語句是____________________________________。 6．假設(shè)命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時(shí)，翻開一個(gè)窗口frm1，請(qǐng)對(duì)以下事件過程填空。 Private Sub Cmdopen_ ___________ _____________________ End Sub 7．Visual Basic 6種類型的表達(dá)式是______________、______

3、________、______________、 ________________、_________________、____________________。Visual Basic根據(jù)表達(dá)式的___________來確定表達(dá)式的類型。 8．表達(dá)式93 \ 7 Mod 2 ^ 2 的值是___________。 9．a(chǎn)=3，b=4，c=5，表達(dá)式a>b and Not c>a Or c>b And ca And Not b

4、____。 11．?dāng)?shù)學(xué)表達(dá)式sin2*+ 寫成等價(jià)的Visual Basic表達(dá)式為_________________。 12．設(shè)*個(gè)程序中要用到一個(gè)二維數(shù)組，要求數(shù)組名為A，類型為字符串類型，第一維下標(biāo)從1到5，第二維下標(biāo)從-2到6，則相應(yīng)的數(shù)組聲明語句為___________________________。 13．事件就是在對(duì)象上所發(fā)生的事情，Visual Basic中的事件如___________、___________、______________等。一個(gè)對(duì)象響應(yīng)的事件可以有_____個(gè)，用戶不能建立新的事件。事件過程是指____________________________

5、_________________。假設(shè)*一事件過程如下： Private Sub cmd1_Click() Form1.Caption="VB例如" End Sub 則響應(yīng)該過程的對(duì)象名是______________，事件名是_____________。 14．對(duì)象的方法用于__________________。當(dāng)方法不需要任何參數(shù)并且也沒有返回值時(shí)，調(diào)用對(duì)象的方法的格式為________________，例如，對(duì)窗體Form1使用Show方法，應(yīng)寫成_________________。 15．PictureBo*控件可通過設(shè)置其__________屬性為True使之可自動(dòng)調(diào)整

6、大小；而Image控件可通過設(shè)置其___________屬性為True，使其加載的圖片能自動(dòng)調(diào)整大小以適應(yīng)Image。 16．在Visual Basic程序中實(shí)現(xiàn)復(fù)制文件“c:\mand.〞到d:盤根目錄下的語句為_______________________________________。 二、單項(xiàng)選擇題 1．以下控件中沒有Caption屬性的是〔 〕 A、標(biāo)簽 B、文本框 C、框架 D、命令按紐 2．除框架外，能對(duì)單項(xiàng)選擇按紐分組的控件是〔 〕。 A、窗體 B、標(biāo)簽 C、圖片框 D、圖像 3．以下符號(hào)不能作為VB中變量名的是〔 〕。 A 、 ABCDEFG B、 P

7、00000 C、 89YWDDF D、*yz 4． 以下不屬于Visual Basic數(shù)據(jù)文件的是〔 〕。 A、順序文件 B、隨機(jī)文件 C、二進(jìn)制文件 D、數(shù)據(jù)庫文件 5．假設(shè)要求從文本框中輸入密碼時(shí)在文本框中只顯示*號(hào)，則應(yīng)用在此文本框的屬性窗口中設(shè)置〔 〕。 A、Te*t屬性值為* B、Caption屬性值為* C、Password屬性值為空 D、PasswordChar屬性值為* 6．表達(dá)式2*3^2+2*8/4+3^2的值為〔 〕。 A、64 B、31 C、49 D、42 7．表達(dá)式mid("abcdefg",3,2)的值是〔 〕 A、abc B、cd C、bcd

8、D、abcde 8．?dāng)?shù)學(xué)表達(dá)式Sin25°寫成VB表達(dá)式是〔 〕。 A、Sin25 B、Sin〔25〕 C、Sin〔25°〕 D、Sin〔25*3.14/180〕 9．Sub過程與 Function過程最根本的區(qū)別是〔 〕。 A、Sub過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以。 B、Function過程可以有參數(shù)，Sub過程不可以。 C、兩種過程參數(shù)的傳遞方式不同。 D、Sub過程的過程名不能返回值，而Function過程能夠通過過程名返回值。 10．選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的布爾表達(dá)式為〔 〕 A、T>

9、=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 11.以下對(duì)象不能響應(yīng) Click事件的是〔 〕 A、列表框 B、圖片框 C、窗體 D、計(jì)時(shí)器 12．在Visual Basic中，按文件的訪問方式不同，可以將文件分為〔 〕 A、順序文件、隨機(jī)文件和二進(jìn)制文件 B、文本文件和數(shù)據(jù)文件 C、數(shù)據(jù)文件和可執(zhí)行文件 D、ASCⅡ文件和二進(jìn)制文件 13．將通用對(duì)話框monDialog的類型設(shè)置成“顏色〞對(duì)話框，可調(diào)用該對(duì)話框的〔 〕方法。 A、ShowOpen B、ShowSave C

10、、ShowColor D、ShowFont 三、指出以下句中的錯(cuò)誤，修改或者說明原因。 1．sum和int.sum都可以作為VB的變量名。 2．變量名的長度最長可達(dá)1024個(gè)字符。 3．以下程序運(yùn)行結(jié)果：3，3 Option E*plicit Private Sub mand1_Click() Dim a，b As Integer a = 3.6 b = 3.6 Te*t1.Te*t = a Te*t2.Te*t = b End Sub 4．程序可以改變定長字符串的內(nèi)容和長度。 5．Variant是一種特殊的數(shù)據(jù)類型，可以包含任何種類型的數(shù)據(jù)。 6．以下程序運(yùn)

11、行結(jié)果為True Private Sub mand1_Click() a = 1 b = 2 c = 3 Te*t1.Te*t = c > a + b Or b - 1 > c - 1 And c + a > a *or b < c - 2 End Sub 7．#12/31/1999# - #12/20/1999#的運(yùn)算結(jié)果是#12/11/1999# 8．可以在窗體的通用局部聲明靜態(tài)變量。 9．使用聲明語句建立一個(gè)變量后，Visual Basic會(huì)自動(dòng)對(duì)數(shù)值類型的變量賦初值0，變長的字符串被初始化為一個(gè)零長度的字符串""，定長字符串用空格填充，Variant變量被初始化為

12、Empty，布爾型的變量被初始化為False。 10．事件過程通常由事件驅(qū)動(dòng)執(zhí)行，而Sub過程通過過程調(diào)用執(zhí)行。 11．將焦點(diǎn)主動(dòng)設(shè)置到指定的控件或窗體上應(yīng)采用SetFocus方法。 12．當(dāng)圖像控件〔Image〕的Stretch屬性為True時(shí)，Image控件能自動(dòng)調(diào)整自己的尺寸與顯示的圖片匹配。 四、讀程序題，寫出程序運(yùn)行結(jié)果。 1．Private Sub Form_Click() For I = 1 To 9 For j = 1 To 30 - 3 * I Print " "; Ne*t j For k = 1 To I Print k; Ne*

13、t k For k = I - 1 To 1 Step -1 Print k; Ne*t k Print Ne*t I End Sub 2． Option E*plicit Private Sub mand1_Click() Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Ne*t i Print S End Sub 3． For * = 5 To 1 Step -1 For Y = 1 To 6 - * Print Tab(Y

14、 + 5); "*"; Ne*t Y Print Ne*t * 4． Private Sub Form_Activate() Print "aa" & "bb",-5 * 6,Not 2 <= 3 Print "aa" & "bb"; -5 * 6; Not 2 <= 3 Print Print "30+60", Print 30 + 60 ？ ？"30+60"; 30 + 60 End Sub 5． *=1 Do While *<=10 If * Mod 7 =0 Then Y = * + 6 Else Z = * End If *

15、= * + 2 Loop Print *,Y,Z 五、編程題 1．設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如下圖，由四個(gè)文本框：文本框1〔te*t1〕、文本框2〔te*t2〕、文本框3〔te*t3〕、文本框4〔te*t4〕，和三個(gè)按鈕：命令按鈕1〔mand1〕、命令按鈕2〔mand2〕、命令按鈕3〔mand4〕組成。程序運(yùn)行后，用戶單擊去除按鈕，則去除文本框中顯示的內(nèi)容。單擊計(jì)算按鈕，如果成績填寫不完全，則給出提示信息，否則計(jì)算三科平均成績。單擊退出按鈕則退出。 2．設(shè)計(jì)程序。要求：從文本框Te*t1中接收輸入的數(shù)據(jù)，當(dāng)單擊確定按鈕〔mand1〕時(shí)，如果該數(shù)據(jù)滿足條件：除以3余2，除

16、以5余3，除以7余4，則輸出；否則將焦點(diǎn)定位在文本框Te*t1中，選中其中的文本。 3．設(shè)計(jì)一個(gè)歡送程序。該程序用戶界面如下圖。要求程序運(yùn)行后，用戶選中粗體復(fù)選框時(shí)，標(biāo)簽〔Label1〕中的文字〔歡送您！〕的字體變成粗體，用戶選中斜體復(fù)選框時(shí)，標(biāo)簽的字體變成斜體。假設(shè)取消選中，則恢復(fù)原字體。單擊完畢，則退出。 4．任意輸入3個(gè)數(shù)，求大小排第二的那個(gè)數(shù)，寫出程序代碼。 "VB"期末復(fù)習(xí)參考答案 一、填空題 1．創(chuàng)立應(yīng)用程序界面 設(shè)置屬性 編寫代碼 2．屬性、te*t 3．Label Te*tBo* 4．Load方法 Show方法 Hide方法 Unload方

17、法 5．t*tshow.te*t="GOOD WORK" 6．Click()、frm1.show 7．算術(shù)表達(dá)式 字符串表達(dá)式 關(guān)系表達(dá)式 布爾表達(dá)式 日期表達(dá)式 對(duì)象表達(dá)式 運(yùn)算符 8．1 9．True False 10．12 11．Sin(*) ^ 2 + Sqr(* ^ 2 - y ^ 2) / (2 * *) 12．Dim A(1 To 5，-2 To 6) As String 13．單擊 雙擊 裝載 多 響應(yīng)*個(gè)事件后所執(zhí)行的程序代碼 cmd1 Click 14．完成*種特定的功能 對(duì)象名.方法名 Form1.Show 15．AutoSize Stretch

18、16．FileCopy "c:\mand."，"d:\mand." 二、單項(xiàng)選擇題 1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C 三、指出以下句中的錯(cuò)誤，修改或者說明原因。 1．int.sum 不正確。變量名中不能包括小數(shù)點(diǎn)。 2．變量名的長度最長可達(dá)255個(gè)字符。 3． 3.6 ， 4 因?yàn)閍 不是整型變量。 4．不正確。程序不可以改變字符的長度，這是VB規(guī)定。 5．不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長字符串?dāng)?shù)據(jù)及用戶定義類型外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。 6．F

19、alse 。邏輯表達(dá)式計(jì)算結(jié)果。 7．不正確。兩個(gè)日期型數(shù)據(jù)相減，其結(jié)果是一個(gè)數(shù)值型數(shù)據(jù)。 8．不正確。靜態(tài)變量為局部變量，只能在過程中聲明。 9．正確。 10．正確。 11．正確。 12．不正確。該屬性設(shè)為Ture時(shí)，Image控件不能自動(dòng)調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動(dòng)擴(kuò)展以適應(yīng)控件的尺寸。 四、讀程序題，寫出程序運(yùn)行結(jié)果。 1．程序運(yùn)行后，單擊窗體，輸出結(jié)果為： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5

20、 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2．程序運(yùn)行后，單擊按鈕mand1，輸出結(jié)果為：120。 3. * ** *** **** ***** 4. aabb -30 False aabb-30 False 30+60 90 30+60 90 5. 11 13 9 五、編程題 1． Private Sub mand1_Click() Te*t1.Te*t = "" Te*t2.Te*t = "" Te

21、*t3.Te*t = "" Te*t4.Te*t = "" End Sub Private Sub mand2_Click() a = Trim(Te*t1.Te*t) b = Trim(Te*t2.Te*t) c = Trim(Te*t3.Te*t) If a = "" Or b = "" Or c = "" Then MsgBo* "成績填寫不完全！", vbCritical Else Te*t4.Te*t = (Val(a) + Val(b) + Val(c)) / 3 End If End Sub Private Sub mand3_

22、Click() Unload Me End Sub 2． Private Sub mand1_Click() * = Val(Te*t1.Te*t) If * Mod 3 = 2 And * Mod 5 = 3 And * Mod 7 = 4 Then Print * Else Te*t1.SetFocus Te*t1.SelStart = 0 Te*t1.SelLength = Len(Te*t1.Te*t) End If End Sub 3． Private Sub Check1_Click() If Check1.Value =

23、 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub Private Sub mand1_Click() Unload Me End Sub 4． a = Val(InputBo*("

24、輸入第一個(gè)數(shù)：")) b = Val(InputBo*("輸入第二個(gè)數(shù)：")) c = Val(InputBo*("輸入第三個(gè)數(shù)：")) If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBo* ("求大小排第二的數(shù)是：" & b) VB期末考試試題 A卷 一、 填空題 1、VB程序設(shè)計(jì)的主要特點(diǎn)是 〔1〕 和 〔2〕 。 2、在VB中，最主要的兩種對(duì)象是 〔3〕 和 〔4

25、〕 。 3、工程是構(gòu)成應(yīng)用程序文件的 〔5〕 。 4、方法是VB提供的一種 〔6〕 ，用來完成一定的操作。 5、浮點(diǎn)類型數(shù)據(jù)包括單精度型和___〔7〕__數(shù)據(jù)。 6、事件是窗體或控件對(duì)象識(shí)別的___〔8〕____。 7、可用窗體的___〔9〕_ 方法在窗體中顯示文字。 8、 復(fù)選框控件Value屬性指示復(fù)選框處于____〔10〕___或制止?fàn)顟B(tài)(暗淡的)中的*一種。 9、在VB中，修改窗體的 〔11〕和 〔12〕 屬性值，可改變窗體的大小。 10、雙擊工具箱中的控件圖標(biāo)，可在窗體的 〔13〕 出現(xiàn)一個(gè)尺寸為缺省值的控件。 11、在MsgB

26、o*函數(shù)中，如果缺省title參數(shù)，則使用 〔14〕作為消息框的標(biāo)題。 12、設(shè)*＝34.58，語句Print Format(*,“000.0”)的輸出結(jié)果是 〔15〕 。 13、在VB 中，數(shù)值型變量的初值為 〔16〕 ，Varant型變量的初值為 〔17〕 ，布爾型變量的初值為 〔18〕 。 14、設(shè)置窗體的 〔19〕 屬性，可在窗體上顯示圖片。 15、程序運(yùn)行工程中，去除MP圖片框中的圖片應(yīng)使用語句 〔20〕 。 二、選擇題 1、菜單控件只包括一個(gè)事件，即 〔1〕 ，當(dāng)用鼠標(biāo)單擊或鍵盤選中后按“回車〞鍵時(shí)觸發(fā)該事件，除分隔條以外的所有菜單控件都能

27、識(shí)別該事件。 A、GotFocusB、LoadC、ClickD、KeyDown 2、滾動(dòng)條控件(如下圖)的Ma*屬性所設(shè)置的是 〔2〕 。 A、滾動(dòng)框處于最右位置時(shí)，一個(gè)滾動(dòng)條位置的Value屬性最大設(shè)置值 B、 單擊滾動(dòng)條和滾動(dòng)箭頭之間的區(qū)域時(shí)，滾動(dòng)條中滾動(dòng)塊的最大移動(dòng)量 C、單擊滾動(dòng)條的箭頭區(qū)域時(shí)，滾動(dòng)條中滾動(dòng)塊的最大移動(dòng)量 D、滾動(dòng)條控件無該屬性 3、SQL 語句 Select * Form student 中的 *表示 〔3〕 。 A、所有記錄 B、所有字段 C、所有表 D、都不對(duì) 4、以下選項(xiàng)中，不屬于標(biāo)簽的屬性是

28、〔4〕 。 A、EnabledB、CaptionC、DefaultD、Font 5、要求改命令按鈕顯示的文本，應(yīng)當(dāng)在屬性窗口中改變的屬性是 〔5〕 。 A、CaptionB、NameC、Te*tD、Label 6、設(shè)置一個(gè)單項(xiàng)選擇按鈕(OptionButton)所代表選項(xiàng)的選中狀態(tài)，應(yīng)當(dāng)在屬性窗口中改變的屬性是 〔6〕 。 A、CaptionB、NameC、Te*tD、Value 7、允許在菜單項(xiàng)的左邊設(shè)置打勾標(biāo)記，下面哪種論述是正確的？ 〔7〕 。 A、在標(biāo)題項(xiàng)中輸入&，然后打勾 B、在索引項(xiàng)中打勾 C、在有效項(xiàng)中打勾

29、 D、在復(fù)選項(xiàng)中打勾 8、當(dāng)執(zhí)行以下過程時(shí)，在窗體上將顯示 〔8〕 。 Private Sub mand1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VBB、 VB Hello!VB C、 VBD、 VB Hello! VBHello! VB 9、語句Print "The answer is:";20/4-2的結(jié)果為 〔9〕 。 A、The answer is 20/4-2 B、The answer is 3 C、T

30、he answer is "20/4-2"D、非法語句 10、以下哪個(gè)控件是容器控件 〔10〕 。 A、ImageB、PictureC、boBo* D、FileListBo* 11、假設(shè)要將窗體從內(nèi)存中卸載出去，其實(shí)現(xiàn)的方法是 〔11〕 。 　　A.Show　 B.Hide　 　 C.Load　 　 D.UnLoad 12、以下選項(xiàng)中，不是 Visual Basic控件的是 〔12〕 。 　 A.窗體　　 B.定時(shí)器　　 C.單項(xiàng)選擇框　 　 D.命令按鈕 13、雙擊窗體中的對(duì)象后，Visual Basic將顯示的

31、窗口是 〔13〕 。 A.代碼窗口　 B．工具箱　 C．工程〔工程〕窗口　 D．屬性窗口 14、可決定窗體的左上角是否有控制菜單的屬性是 〔14〕 。 A.ControlBo* B.MinButton C.Ma*Button　 　 D.BorderStyle 15、設(shè)有如下語句： Strl＝InputBo*〔"輸人"，""，"練習(xí)"〕 從鍵盤上輸人字符 “例如〞后，Strl的值是 〔15〕 。 A．“輸入〞 B．“〞 C．“練習(xí)〞 D．“例如〞 16、窗體Fo

32、rm1的Name屬性是Frm1,它的單擊事件過程名是 〔16〕 。 ?? A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click 17、窗體的hide屬性的含義是 〔17〕 。 ??A.隱藏 B.展現(xiàn) C.裝入 D.卸載 18、假設(shè)要設(shè)置定時(shí)器控件的定時(shí)時(shí)間，需設(shè)置的屬性是 〔18〕 。 　　A．Enabled　　 B．Value　　 C．Interval　　 D．Te*t 19、能夠改變復(fù)選框中背景顏色的屬性是 〔19〕 。 A．Value B．FontCol

33、or C．BackColor D．Font 20、窗體能響應(yīng)的事件是 〔20〕 。 A．ActiveForm B．Load C．Drive D．Change 三、判斷題(判斷以下正確與否，正確的打√，錯(cuò)誤的打ⅹ。) 1、三種方式的組合框都允許用戶輸入哪些不在列表框中的選項(xiàng)。 2、圖象框中的Stretch屬性為true時(shí)，其作用是圖形自動(dòng)調(diào)整大小以適應(yīng)圖象控件。 3、在菜單編輯器中使用“索引〞時(shí)，可有一組菜單項(xiàng)具有一樣的“名字〞。 4、通過改變屬性窗口中的Name屬性，來改變窗體的標(biāo)題。 5、創(chuàng)立VB應(yīng)用程序的三個(gè)主

34、要步驟是：(1)創(chuàng)立應(yīng)用程序界面(2)設(shè)置控件(3)編寫代碼。 6、變量是指在程序運(yùn)行過程中其值可以改變的那些量，而值不能改變的是常量。 7、P＝MsgBo*(“Howareyou""，VbYesNo+VbQuestion，“Hello!〞)，變量P是Integer數(shù)據(jù)類型。 8、工程文件的擴(kuò)展名是 .vbg 。 9、VB允許設(shè)計(jì)和使用用戶自己設(shè)計(jì)的控件。 10、OptionButton控件沒有DblCliek事件。 11、同一條記錄中的各數(shù)據(jù)具有一樣的類型。 12、使用Data控件可以直接顯示數(shù)據(jù)庫中的數(shù)據(jù)。 13、ImageList 是一個(gè)圖像容器控件，可用作工具欄的圖像庫

35、。 14、當(dāng)用戶單擊工具欄按鈕時(shí)，將觸發(fā)工具欄按鈕的ButtonClick事件。 15、在VB的工程資源管理器中，如果從工程中移除已經(jīng)保存過的文件，該文件仍然被物理刪除〔真正刪除〕。 16、如果列表框的ListConut的屬性為10，則列表框最后一項(xiàng)的ListInde*值為10。 17、要是*個(gè)命令按鈕不起作用，應(yīng)將該按鈕的Enabeld屬性設(shè)置為False。 18、使用數(shù)組定義語句：Dim D$〔10〕，則數(shù)組D中各元素的值為空。 19、如果在一行中輸入多條語句，各語句之間用使用 ；分隔。 20、在代碼窗口中輸入*行代碼并按回車鍵之后，如果代碼變成紅色，說明該行代碼有語法錯(cuò)誤。

36、 四、讀程序題，寫出程序運(yùn)行結(jié)果 1、 Private Sub Form_Click() Static SUM As Integer I = 1 Do While I<=10 SUM = SUM + I I = I + 1 Loop Print SUM End Sub 運(yùn)行程序，第一次單擊窗體： 第二次單擊窗體： 2、 Private Sub Form_Click() Print "*"; Tab(6); 2, Tab(15); 5 Print For I = 15 To 16 Print I;

37、 For j = 2 To 6 Step 3 Print Tab(3 * j); j * I; Ne*t j Print Ne*t I End Sub 程序運(yùn)行結(jié)果： 五、編程題 〔一〕窗體中有圖片框(Picture1)和計(jì)時(shí)器(Timer1)兩個(gè)控件，運(yùn)行程序時(shí)，將圖片加載到圖片框中，然后圖片框以每2秒鐘一次的速度向窗體的右下腳移動(dòng)，每次向左、向右移動(dòng)100twip〔20分之一像素〕。請(qǐng)?zhí)羁眨? Private Sub Form_load( ) 〔1〕 =loadPicture(“c:\pic\ball.ico〞) 〔2

38、〕 .Interval=200 End Sub Private Sub Timer1_Timer( ) Static * , y As Integer *=*+100 y=y+100 Picture1.Move 〔3〕 End Sub 〔二〕有一個(gè)單擊按鈕過程，其作用是產(chǎn)生50個(gè)60～100的隨機(jī)數(shù)，統(tǒng)計(jì)其中被6整除余2的個(gè)數(shù)，并將這些數(shù)輸出。請(qǐng)?zhí)羁眨? Private Sub mand1_Click() D

39、im * As Integer, N% Dim Counter As Integer (1) Timer For N=1 To 50 *=Rnd()* (2) If (3) =2 Then Print * Counter= (4) (5) Ne*t N Print Counter

40、 End Sub "VB程序設(shè)計(jì)與應(yīng)用"參考答案 一、填空題 1 2 3 4 5 答案 可視化設(shè)計(jì) 事件驅(qū)動(dòng)編程 窗體〔form〕 控件 集合 題號(hào) 6 7 8 9 10 答案 特殊子程序 雙精度 動(dòng)作 Print 選中 題號(hào) 11 12 13 14 15 答案 高度〔Height〕 寬度(Width) 中央 工程1 34.6 題號(hào) 16 17 18 19 20 答案 0 空 False Picture Cls 二、選擇題 1 2 3 4 5 答案 C A B C A

41、題號(hào) 6 7 8 9 10 答案 D D A B B 題號(hào) 11 12 13 14 15 答案 D A A A D 題號(hào) 16 17 18 19 20 答案 C A C C B 三、判斷題 1 2 3 4 5 6 7 8 9 10 答案 Х Х Х √ Х √ √ √ √ Х 11 12 13 14 15 16 17 18 19 20 答案 √ Х √ √ Х Х √ Х Х √ 四、程序閱讀題： 〔一〕 〔10分〕

42、 1 、 55 2、 110 〔二〕、 〔10分〕 * 2 5 15 30 75 16 32 80 五、編程題 〔20分〕 〔一〕1、Picture1.Picture 2、Timer1 3、 * ,y (二) 1、 Randomize 2、 Rnd()*41+60 3、 * Mod 6

43、 4、 Counter＋1 5 End If 一、單項(xiàng)選擇題〔共10分〕 1．在代碼中引用一個(gè)控件時(shí)，應(yīng)使用控件的〔B〕屬性。 A．Caption B．Name C．Te*t D．Inde* 2．設(shè)變量* = 4，y = -1，a = 7，b = -8,下面表達(dá)式〔A〕的值為“假〞。 A．*+a <= b-y B． * > 0 AND y < 0 C．a(chǎn) = b OR *>y

44、 D． *+y > a+b AND NOT (y < b) 3．表達(dá)式Int(Rnd*71)+10產(chǎn)生的隨機(jī)整數(shù)*圍是〔C〕。 A．〔10，80〕 B．〔10，81〕 C．[10，80] D．[10，81] 4．函數(shù)Sgn(3.1416)的返回值是〔C〕。 A．-1 B．0 C．1 D．以上都不對(duì) 5．67890屬于〔D〕類型數(shù)據(jù)。 A．整型 B．單精度浮點(diǎn)數(shù) C．貨幣型 D．長整型 6．以下變量名中正確的選項(xiàng)是〔D〕。 A．3S

45、 B．Print C．Select My Name D．Select_1 7．以下賦值語句〔A〕是有效的。 A．sum = sum -sum B．*+2 = * + 2 C．* + y = sum D．last = y / 0 8．以下的控件或方法具有輸入和輸出雙重功能的為〔B〕。 A．Print B．Te*tbo* C．Optionbutton D．Checkbo* 9．假設(shè)要獲得列表框中被選中的列表項(xiàng)的內(nèi)容，可以通過訪問〔D〕屬性來實(shí)現(xiàn)。 A．Name

46、B．ListInde* C．ListCount D．Te*t 10．以下代碼的運(yùn)行結(jié)果為〔B〕。 Private Sub mand1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Ne*t k * = 5 Print m(2 + m(*)) End Sub A．2 B．3 C．4 D．5 二、填空題〔10分〕 1．寫出整數(shù)n能同時(shí)被13和17整除的Basic表達(dá)n Mod 13=0 And n Mod 17=0式。 2．代碼窗口中有兩個(gè)下拉列

47、表框：左側(cè)是(對(duì)象)列表框，右側(cè)是過程列表框。 3．寫出在字符串 〞Visual Basic 6.0”中截取 〞Visual〞 的Basic表達(dá)式LEFT(“Visual Basic 6.0”,6)。 4．函數(shù)Len(“abcdef〞)的返回值是(6) 。 5．設(shè)a = 2，b = 5，c = -2，d = 100，則a > b >= c AND a < b >= d的值為False 。 三、將以下數(shù)學(xué)表達(dá)式轉(zhuǎn)換為VB表達(dá)式?！?分〕 1．a(chǎn)2+2ab+b2 ： a^2+2*a*b+b^2 2．8e*ln10 ：8*e*p(*

48、)*log(10) 3．2sin(450)cos(450) ：2*sin(3.1416/4)*cos(3.1416/4) 6．在VB中，用戶定義常量使用 Const 語句，聲明變量使用 Dim語句。 1．在VB 6.0中，擴(kuò)展名為.vbp的文件稱為A。 A) 工程文件 B) 窗體文件 C) 類模塊文件 D) 標(biāo)準(zhǔn)模塊文件 2．在VB 6.0集成開發(fā)環(huán)境的設(shè)計(jì)模式下，用鼠標(biāo)雙擊窗體上的*個(gè)對(duì)象后，翻開的窗口是 A 。 A) 代碼窗口 B) 窗體設(shè)計(jì)窗口 C) 屬性窗口 D) 工程資源管理器窗口 3．設(shè)有變量定義語句Dim a%，則變量a的數(shù)據(jù)類型是A。

49、A) 整型 B) 單精度類型 C) 雙精度類型 D) 字符串類型 4．以下表達(dá)式中，值為False的是 D 。 A) "AB"<"abc" B) "ABC" = UCase("abc") C) "ABCD"<"abc" D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函數(shù)InStr("ABCDEF", "CD")的值是B。 A) 2 B) 3 C) True D) CDEF 6．以下程序運(yùn)行后，單擊窗體，輸出結(jié)果是C。 Private Sub Form_Click() Dim a As Integer, b As Integer

50、 a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．以下程序運(yùn)行后，單擊窗體，輸出結(jié)果是 B。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的數(shù)學(xué)關(guān)系式是 C 。 If (a < b) Then

51、 If d = c Then * = 1 Else * = 2 End If A) B) C) D) 9．以下程序運(yùn)行后，單擊窗體，輸出結(jié)果是 C。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．以下程序段的輸出結(jié)果是 B 。 For k = 4 To 2 Step -2 m = k

52、 Ne*t k Print m; k; A) 2 2 B) 2 0 C) 2 1 D) 0 0 11．用下面的語句定義數(shù)組，則數(shù)組中的元素個(gè)數(shù)是 D 個(gè)。 Option Base 1 Dim A(-1 To 2，5) As Integer A) 5 B) 10 C) 15 D) 20 12．下面程序段的輸出結(jié)果是 C 。 Dim a(4) As Integer, s As Integer For k = 1 To 4 a(k) = 2 * k Ne*t k For k = 1 To 4 Step

53、2 s = s + a(k) Print s; Ne*t k A) 8 B) 20 C) 2 8 D) 2 6 12 20 13．設(shè)有如下的用戶自定義類型 Private Type Stu name As String * 10 age As Integer End Type 則以下正確引用該類型成員的代碼是 B 。 A) Stu.name="zhang" B) Dim s As Stu s.name = "zhang" C) Dim s As Type Stu s.nam

54、e = "zhang" D) Dim s As Type s.name = "zhang" 14．用“ B 〞關(guān)鍵字聲明的變量稱為全局變量。 A) Private B) Public C) Dim D) Static 15．在窗體上放置一個(gè)文本框，程序運(yùn)行后，在文本框中輸入abc，但顯示的卻是***，可能的原因是該文本框的 D 屬性值已經(jīng)被設(shè)置為"*"。 A) Font B) Te*t C) Name D) PasswordChar 16．在VB 6.0中，Print是對(duì)象的B。 A) 屬性 B) 方法 C) 事件 D) 名稱 17．在VB

55、6.0中，要判斷復(fù)選框是否為選中狀態(tài)，使用的屬性是D。 A) Caption B) Checked C) Selected D) Value 18．設(shè)列表框List1中共有3個(gè)列表項(xiàng)，如右圖所示。則以下語句中，能夠刪除最后一個(gè)列表項(xiàng)的是A。 A) List1.RemoveItem 2 B) List1.RemoveItem "工程C" C) List1.RemoveItem List1. Listcount D) List1.RemoveItem List1. ListInde* 19．組合框分為下拉式組合框、簡單組合框和下拉式列表框，在“屬性〞窗口中這三種類型是由

56、A 屬性設(shè)置的。 A) Style B) FillStyle C) BackStyle D) BorderStyle 20．用戶單擊滾動(dòng)條的空白處〔滑塊與兩端滾動(dòng)箭頭之間的區(qū)域〕時(shí)，Value屬性所增加或減少的值，是由 D 屬性決定的。 A) Min B) Ma* C) SmallChange D) LargeChange 21．將圖片文件“b.jpg〞作為背景圖片，裝入當(dāng)前窗體，正確的語句是 D 。 A) Me.Picture=b.jpg B) Me.Picture= LoadPicture(b.jpg) C) Me.Picture="b.jpg" D)

57、Me.Picture= LoadPicture("b.jpg") 22．要將兩個(gè)單項(xiàng)選擇按鈕放置在同一個(gè)框架內(nèi)，使它們成為一組，正確的操作是 A 。 A) 先放置一個(gè)框架，然后在框架中放置兩個(gè)單項(xiàng)選擇按鈕 B) 先放置兩個(gè)單項(xiàng)選擇按鈕，再放置一個(gè)框架，放置框架時(shí)覆蓋在單項(xiàng)選擇按鈕上 C) 先放置兩個(gè)單項(xiàng)選擇按鈕，再放置一個(gè)框架，然后將兩個(gè)單項(xiàng)選擇按鈕拖動(dòng)到框架內(nèi) D) 以上三種方法都正確 23．計(jì)時(shí)器控件能夠響應(yīng)的事件是D 。 A) Load B) Click C) Change D) Timer 24．要使命令按鈕處于無效狀態(tài)，可以設(shè)置按鈕的B 屬性值為False。

58、 A) Caption B) Enabled C) Style D) Visible 25．如果在一個(gè)工程中有多個(gè)窗體和模塊，則VB默認(rèn)的啟動(dòng)對(duì)象是 C 。 A) 第一個(gè)標(biāo)準(zhǔn)模塊 B) 最后一個(gè)被添加的窗體 C) 設(shè)計(jì)時(shí)的第一個(gè)窗體 D) 最后一個(gè)被添加的標(biāo)準(zhǔn)模塊 26．在窗體上放置一個(gè)圖像框，名稱為Image1。程序運(yùn)行時(shí)，要保持圖像框大小不變，使框中的圖片能夠自動(dòng)適應(yīng)圖像框的大小，可以執(zhí)行語句 B 。 A) Image1.AutoSize=True B) Image1.Stretch=True C) Image1.AutoSize=False

59、D) Image1.Stretch=False 27．使用“菜單編輯器〞建立菜單項(xiàng)之間的分隔線時(shí)，在菜單項(xiàng)的“標(biāo)題〞中輸入的符號(hào)是A。 A) 減號(hào)- B) 下劃線_ C) & D) # 28．要將窗體Form1從內(nèi)存中卸載，正確的語句是D。 A) Form1.Show B) Load Form1 C) Form1.Hide D) UnLoad Form1 29．在窗體上單擊時(shí)，會(huì)觸發(fā)鼠標(biāo)事件MouseDown，其事件過程的一般格式如下： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, *

60、 As Single, Y As Single) …… End Sub 此時(shí)，如果單擊的是鼠標(biāo)右鍵，則Button參數(shù)的值是B。 A) 1 B) 2 C) 3 D) 4 30．獲取文件的長度〔字節(jié)數(shù)〕，可以使用的函數(shù)是B。 A) LEN( ) B) LOF( ) C) EOF( ) D) LOG( ) 1．?dāng)?shù)學(xué)表達(dá)式改寫為VB表達(dá)式，形式是 【1】 。答案 sqr(3*y) /(*+y) 2．在VB 6.0中，InputBo*函數(shù)返回值的數(shù)據(jù)類型是 【2】 。答案：字符串類型或String 3．語句 PrintTab(5);"ABC" 的

61、功能是 【3】 。 答案：從第5列開場輸出字符串“ABC〞 4．下面程序段的功能是：在文本框Te*t1中輸入一個(gè)數(shù)值*，如果滿足5<*<10，則輸出“Yes〞，否則輸出“No〞。請(qǐng)?zhí)羁铡? * =Val(Te*t1.Te*t) 答案5 < * And * <10 If 【4】 Then Print "Yes" Else Print "No" 5．設(shè)a=1,b=2,c=3，語句 Print a < b Or b < c And c < a的輸出結(jié)果是 【5】 。答案：True 6．在窗體上放置一個(gè)標(biāo)簽，名稱為Label1，使用語句 【6】

62、 可以把標(biāo)簽的前風(fēng)光設(shè)置為藍(lán)色。 Label1.ForeColor = vbBlue 或 RGB(0,0,255) 或QBColor(9) 7．在窗體上放置一個(gè)圖像框，名稱為Image1，要使該圖像框向下移動(dòng)10個(gè)默認(rèn)單位〔twip〕，正確的語句是Image1.Top = 【7】 答案：Image1.Top + 10 8．使用“菜單編輯器〞建立了一個(gè)主菜單，名稱為menu1。要把它作為窗體Form1的快捷菜單〔也稱為彈出式菜單〕彈出，使用的語句是： 答案：Popupmenu Form1. 【8】 menu1 9．在窗體上放置一個(gè)通用對(duì)話框控件，名稱為m

63、onDialog1。使用該控件建立“翻開〞文件對(duì)話框時(shí)，要求只能顯示文本文件(即擴(kuò)展名為“.t*t〞的文件)，則正確的設(shè)置語句是monDialog1. 【9】 ="文本文件(*.t*t)|*.t*t"。 答案：Filter 10．設(shè)磁盤上已存在順序文件“a.t*t〞，為了從文件中順序讀取數(shù)據(jù)而翻開該文件，正確的語句是 Open "a.t*t" For 【10】 As #1。 答案：Input 1．以下面程序運(yùn)行后，單擊窗體，輸出結(jié)果是【1】。答案：1 3 9 Private Sub Form_Click() s = 0 For n=1 To 3

64、 p = 1 For k = 1 To n p = p * k Ne*t k s = s + p Print s; Ne*t n End Sub 2．以下程序運(yùn)行后，單擊窗體，輸出結(jié)果是【2】。答案：7 Private Sub Form_Click() m = 0 For k = 1 To 4 Select Case k Case 1, 2 m = m + 1 Case Is > 3 m = m + 2

65、 Case 1 To 4 m = m + 3 End Select Ne*t k Print m End Sub 3．在窗體上放置一個(gè)文本框，名稱為Te*t1。以下程序運(yùn)行后，單擊窗體，Te*t1中顯示的內(nèi)容是 【3】 。 答案：ade Private Sub Form_Click() Te*t1.Te*t = "" s = "aBd12Re" For k = 1 To Len(s) ch = Mid(s, k, 1) If ch >= "a" A

66、nd ch <= "z" Then Te*t1.Te*t = Te*t1.Te*t + ch End If Ne*t k End Sub 4．以下程序運(yùn)行后，單擊窗體，輸出結(jié)果是 【4】 。 答案：11 24 Option Base 1 Private Sub Form_Click() * = Array(3, 5, 4, 8, 2, 6, 11, 9, 7, 4) p = *(1): s=0 For k = 2 To UBound(*) If *(k) > p Then p = *(k) s = s + p End If Ne*t k Print p; s End Sub 5．以下程序運(yùn)行后，單擊窗體，輸出結(jié)果是 【5】 。 答案：1 5 1 Private Sub Form_Click() Dim a(1 To 3, 1 To 3)