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

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

1、優(yōu)選教育資源 共贏共享共進(jìn) ?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和TextBox控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本信息，可使用控件；若允許用戶輸入文本，則應(yīng)使用控件。 4 .窗體的常用方法有、、和。 5 .要想在代碼中給名為txtshow的文本框賦予文本：GOODWORK應(yīng)當(dāng)編寫的語句是 6 .若命令按鈕的名稱為Cmdopen程序要求單擊該命令按鈕時(shí)，打開一個(gè)

2、窗口frm1,請(qǐng)對(duì) 以下事件過程填空。 PrivateSubCmdopen EndSub 7 .VisualBasic6種類型的表達(dá)式是、、 、、。VisualBasic根據(jù)表達(dá)式的來確定表達(dá)式的類型。 8 .表達(dá)式93\7Mod2A2的值是。 9 .已知a=3,b=4,c=5,表達(dá)式a>bandNotc>aOrc>bAndcaAndNotb

3、類型為字符串類型，第一維下 標(biāo)從1到5,第二維下標(biāo)從-2到6,則相應(yīng)的數(shù)組聲明語句為 13 .事件就是在對(duì)象上所發(fā)生的事情，VisualBasic中的事件如 、等。一個(gè)對(duì)象響應(yīng)的事件可以有個(gè)，用戶不能建立新 的事件。事件過程是指。假設(shè)某一事件過程如下： PrivateSubcmd1_Click（） Form1.Caption="VB示例" EndSub 則響應(yīng)該過程的對(duì)象名是,事件名是。 14 .對(duì)象的方法用于。當(dāng)方法不需要任何參數(shù)并且也沒有返回值時(shí)， 調(diào)用對(duì)象的方法的格式為,例如，對(duì)窗體Forml使用Show方法，應(yīng)寫成 15 .PictureBox控件可通過設(shè)置其屬

4、性為True使之可自動(dòng)調(diào)整大??；而Image 控件可通過設(shè)置其屬性為True,使其加載的圖片能自動(dòng)調(diào)整大小以適應(yīng) Image。 16 .在VisualBasic程序中實(shí)現(xiàn)復(fù)制文件"c:\”到d:盤根目錄下的語句為 二、單項(xiàng)選擇題 1 .下列控件中沒有Caption屬性的是（） A、標(biāo)簽B、文本框C、框架D、命令按紐 2 .除框架外，能對(duì)單選按紐分組的控件是（）。 A、窗體B、標(biāo)簽C、圖片框D、圖像 3 .下列符號(hào)不能作為VB中變量名的是（）。 A、ABCDEFGB、P00000C、89YWDDFD、xyz 4 .下列不屬于VisualBasic數(shù)據(jù)文件的是（）。 A、順

5、序文件B、隨機(jī)文件C、二進(jìn)制文件D、數(shù)據(jù)庫文 件 5 .若要求從文本框中輸入密碼時(shí)在文本框中只顯示*號(hào)，則應(yīng)用在此文本框的屬性窗口中 設(shè)置（）。 AText屬性值為*B、Caption屬性值為* C Password屬性值為空 D、PasswordChar 屬性值為 *  6 . 表達(dá)式2*3A2+2*8/4+3人2 的值為（ 7 . 8 . A、64 B、31 C、49 D、42 表達(dá)式 mid("abcdefg",3,2) abc B、cd 數(shù)學(xué)表達(dá)式 Sin25 °寫成 的值是（ C、bcd D、 abcde Sin25 (25*3.1

6、4/180 9 . Sub過程與 VB表達(dá)式是（ B、Sin (25) C、Sin Function 過程最根本的區(qū)別是（ (25° D、Sin Sub過程可以使用 Call語句或直接使用過程名調(diào)用，而 Function過程不可以。 Function過程可以有參數(shù)，Sub過程不可以。 兩種過程參數(shù)的傳遞方式不同。 Sub過程的過程名不能返回值，而 Function 過程能夠通過過程名返回值。 10 .選拔身高T超過1.7米且體重 W」、于62.5 公斤的人，表示該條件的布爾表達(dá)式為 T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5

7、 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、ASCn文件和二進(jìn) 制文件 13 .將通用對(duì)話框 CommonDialog的類型設(shè)置成“顏色”對(duì)話框，可調(diào)用該對(duì)話框的 ）方法。 A ShowOpen B、ShowSave C、ShowColor D、 ShowFo

8、nt 三、指出下列句中的錯(cuò)誤，修改或者說明原因。 1 .sum和int.sum都可以作為VB的變量名。 2 .變量名的長(zhǎng)度最長(zhǎng)可達(dá)1024個(gè)字符。 3 .下列程序運(yùn)行結(jié)果：3,3 OptionExplicit PrivateSubCommand1_Click() Dima,bAsIntegera=3.6b=3.6 Text1.Text=a Text2.Text=bEndSub 4 .程序可以改變定長(zhǎng)字符串的內(nèi)容和長(zhǎng)度。 5 .Variant是一種特殊的數(shù)據(jù)類型，可以包含任何種類型的數(shù)據(jù)。 6 .下列程序運(yùn)行結(jié)果為True PrivateSubCommand1_Clic

9、k()a=1b=2c=3 Text1.Text=c>a+bOrb-1>c-1Andc+a>aXorb

10、設(shè)置到指定的控件或窗體上應(yīng)采用SetFocus方法。 12 .當(dāng)圖像控件(Image)的Stretch屬性為True時(shí)，Image控件能自動(dòng)調(diào)整自己的尺寸與顯示的圖片匹配。 四、讀程序題，寫出程序運(yùn)行結(jié)果。 優(yōu)選教育資源 共贏共享共進(jìn) 1. PrivateSubForm_Click() ForI=1To9 Forj=1To30-3*I Print""; Nextj Fork=1ToI Printk; Nextk Fork=I-1To1Step-1 Printk; Nextk Print NextI EndSub 2. OptionExplicit P

11、rivateSubCommand1_Click() StaticSAsInteger DimiAsInteger S=1 Fori=1To5 S=S*i Nexti PrintS EndSub 3. ForX=5To1Step-1 For Y = 1 To 6 - X 優(yōu)選教育資源 共贏共享共進(jìn) PrintTab(Y+5);"*"; NextY Print NextX 4. PrivateSubForm_Activate() Print"aa"&"bb",-5*6,Not2<=3 Print"aa"&"bb";-5*6;Not2<=3 Prin

12、t Print"30+60", Print30+60 ? ?"30+60";30+60 EndSub 5. X=1 DoWhileX<=10 IfXMod7=0Then Y=X+6 Else Z=X EndIf X=X+2 Loop PrintX,Y,Z 五、編程題 1 (textl )、 1 .設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖所示，由四個(gè)文本框：文本框文本框2(text2)、文本框3(text3)、文本框4(text4),和三個(gè)按鈕：命令按鈕1(command］、命令按鈕2(command2、命令按鈕3(command4組成。程序運(yùn)行后，用 戶單擊

13、清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計(jì)算按鈕，如果成績(jī)填寫不完全，則給出提示信息，否則計(jì)算三科平均成績(jī)。單擊退出按鈕則退出。 2 .設(shè)計(jì)程序。要求：從文本框Textl中接收輸入的數(shù)據(jù)，當(dāng)單擊確定按鈕(command)時(shí)，如果該數(shù)據(jù)滿足條件：除以3余2,除以5余3,除以7余4,則輸出；否則將焦點(diǎn)定位在文本框Textl中，選中其中的文本。 3 .設(shè)計(jì)一個(gè)歡迎程序。該程序用戶界面如圖所示。要求程序運(yùn)行后，用戶選中粗體復(fù)選框時(shí)，標(biāo)簽(Labell)中的文字(歡迎您！)的字體變成粗體，用戶選中斜體復(fù)選框時(shí)，標(biāo)簽的字體變成斜體。若取消選中，則恢復(fù)原字體。單擊結(jié)束，則退出。 4 .任意輸入3個(gè)數(shù)，

14、求大小排第二的那個(gè)數(shù)，寫出程序代碼。 《VB〉期末復(fù)習(xí)參考答案 一、填空題 1. 創(chuàng)建應(yīng)用程序界面設(shè)置屬性編寫代碼 2. 屬性、text 3. LabelTextBox 4. Load方法Show方法Hide方法Unload方法 5. txtshow.text="GOODWORK" 6. Click()、frm1.show 7. 算術(shù)表達(dá)式字符串表達(dá)式關(guān)系表達(dá)式布爾表達(dá)式日期表達(dá)式對(duì)象表達(dá) 式運(yùn)算符 8. 1 9. TrueFalse 10. 12 11. Sin(x)A2+Sqr(xA2-yA2)/(2*x) 12. DimA(1To5,-2To6)AsStri

15、ng 13. 單擊雙擊裝載多響應(yīng)某個(gè)事件后所執(zhí)行的程序代 碼cmdlClick 14. 完成某種特定的功能對(duì)象名.方法名Form1.Show 15. AutoSizeStretch 16. FileCopy"c:\","d:\" 二、單項(xiàng)選擇題 1.B2,C3.C4.D5.D6.B7.B 8.D9.D10.C11.D12.A13.C 三、指出下列句中的錯(cuò)誤，修改或者說明原因。 1 .int.sum不正確。變量名中不能包括小數(shù)點(diǎn)。 2 .變量名的長(zhǎng)度最長(zhǎng)可達(dá)255個(gè)字符。 3 .3.6,4 因?yàn)閍不是整型變量。 4 .不正確。程序不可以改變字符的長(zhǎng)度，這是VB規(guī)定。

16、 5 .不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長(zhǎng)字符串?dāng)?shù)據(jù)及用戶定義類型 外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。 6 .False。邏輯表達(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é)果為： 優(yōu)選教育資源 共贏共享共進(jìn)

17、 1 1 21 1 2321 1234321 123454321 12345654321 1234567654321 123456787654321 1 2345678987654321 2 .程序運(yùn)行后，單擊按鈕Command1輸出結(jié)果為：120。 3 . * ** *** **** ***** 4 . aabb-30False aabb-30False 30+6090 30+6090 5. 11 13 9 優(yōu)選教育資源 共贏共享共進(jìn) 五、編程題 1. PrivateSubCommand1_Click() Textl.Text

18、="" Text2.Text="" Text3.Text="" Text4.Text="" EndSub PrivateSubCommand2_Click() a=Trim(Textl.Text) b=Trim(Text2.Text) c=Trim(Text3.Text) Ifa=""Orb=""Orc=""Then MsgBox"成績(jī)填寫不完全！",vbCritical Else Text4.Text=(Val(a)+Val(b)+Val(c))/3 EndIf EndSub PrivateSubCommand3_Click() UnloadMe EndSu

19、b 2. PrivateSubCommand1_Click() x=Val(Text1.Text) IfxMod3=2AndxMod5=3AndxMod7=4Then Else Print x 優(yōu)選教育資源 共贏共享共進(jìn) Textl.SetFocus Textl.SelStart=0 Textl.SelLength=Len(Textl.Text) EndIf EndSub 3. PrivateSubCheck1_Click() IfCheckl.Value=1Then Label1.Font.Bold=True Else Label1.Font.Bo

20、ld=False EndIf EndSub PrivateSubCheck2_Click() IfCheck2.Value=1Then Label1.Font.Italic=True Else Label1.Font.Italic=False EndIf EndSub PrivateSubCommand1_Click() UnloadMe EndSub 4. a=Val(InputBox("輸入第一個(gè)數(shù)：")) b=Val(InputBox("輸入第二個(gè)數(shù)：")) c=Val（InputBox（"輸入第三個(gè)數(shù)："）） Ifa