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

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

1、?vb程序設(shè)計》期末復(fù)習(xí)題及答案 一、填空題 1 .創(chuàng)建一個VB應(yīng)用程序三個主要的步驟是、和 2 .當程序運行時，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計時，應(yīng)當在此文本框的 窗口中，把此文本框的屬性設(shè)置成空白。 3 .Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本信息，可使用控件；若允許用戶輸入文本，則應(yīng)使用控件。 4 .窗體的常用方法有、、和。 5 .要想在代碼中給名為txtshow的文本框賦予文本：GOODWORK應(yīng)當編寫的語句是 6 .若命令按鈕的名稱為Cmdopen程序要求單擊該命令按鈕時，打開一個窗口frm1,請對 以下事件過程

2、填空。 PrivateSubCmdopen EndSub 7 .VisualBasic6種類型的表達式是、、 、 、、。VisualBasic根據(jù)表 達式的來確定表達式的類型。 8 .表達式93\7Mod2A2的值是。 9 .已知a=3,b=4,c=5,表達式a>bandNotc>aOrc>bAndcaAndNotb

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

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

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

6、VB表達式是（ 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 公斤的人，表示該條件的布爾表達式為 T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 T>1.7 And W<62.5 D

7、、T>=1.7 Or W<62.5 11 .下列對象不能響應(yīng) Click 事件的是（ A、列表框 B、圖片框 C、窗 D、計時器 12 .在 Visual Basic 中，按文件的訪問方式不同，可以將文件分為（ A、順序文件、隨機文件和二進制文件 B、文本文件和數(shù)據(jù)文件 C數(shù)據(jù)文件和可執(zhí)行文件 D、ASCn文件和二進 制文件 13 .將通用對話框 CommonDialog的類型設(shè)置成“顏色”對話框，可調(diào)用該對話框的 ）方法。 A ShowOpen B、ShowSave C、ShowColor D、 ShowFont 三、指出下列句中的錯誤，修改或者

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

9、Text=c>a+bOrb-1>c-1Andc+a>aXorb

10、cus方法。 12 .當圖像控件(Image)的Stretch屬性為True時，Image控件能自動調(diào)整自己的尺寸與顯示的圖片匹配。 四、讀程序題，寫出程序運行結(jié)果。 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 PrivateSubCommand1_Click() StaticSAsI

11、nteger DimiAsInteger S=1 Fori=1To5 S=S*i Nexti PrintS EndSub 3. ForX=5To1Step-1 For Y = 1 To 6 - X PrintTab(Y+5);"*" NextY Print NextX 4. PrivateSubForm_Activate() Print"aa"&"bb",-5*6,Not2<=3 Print"aa"&"bb";-5*6;Not2<=3 Print Print"30+60", Print30+60 ? ?"30+60";30+60

12、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è)計一個計算程序。該程序用戶界面如圖所示，由四個文本框：文本框 文本框2(text2)、文本框3(text3)、文本框4(text4),和三個按鈕：命令按鈕1 (command］、命令按鈕2(command2、命令按鈕3(command4組成。程序運行后，用 戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計算按鈕，如果成績填寫不完全，則給出提示信息，否則

13、計算三科平均成績。單擊退出按鈕則退出。 2 .設(shè)計程序。要求：從文本框Textl中接收輸入的數(shù)據(jù)，當單擊確定按鈕(command)時，如果該數(shù)據(jù)滿足條件：除以3余2,除以5余3,除以7余4,則輸出；否則將焦點定位在文本框Textl中，選中其中的文本。 3 .設(shè)計一個歡迎程序。該程序用戶界面如圖所示。要求程序運行后，用戶選中粗體復(fù)選框時，標簽(Labell)中的文字(歡迎您！)的字體變成粗體，用戶選中斜體復(fù)選框時，標簽的字體變成斜體。若取消選中，則恢復(fù)原字體。單擊結(jié)束，則退出。 4 .任意輸入3個數(shù)，求大小排第二的那個數(shù)，寫出程序代碼。 《VB?期末復(fù)習(xí)參考答案 一、填空題 1. .

14、創(chuàng)建應(yīng)用程序界面設(shè)置屬性編寫代碼 2. 屬性、text 3. LabelTextBox 4. Load方法Show方法Hide方法Unload方法 5. txtshow.text="GOODWORK" 6. Click()、frm1.show 7.算術(shù)表達式字符串表達式關(guān)系表達式布爾表達式日期表達式對象表達 式運算符 8. 1 9. TrueFalse 10. 12 11. Sin(x)A2+Sqr(xA2-yA2)/(2*x) 12. DimA(1To5,-2To6)AsString 13.單擊 雙擊 裝載 多響應(yīng)某個事件后所執(zhí)行的程序代 碼cmdlClic

15、k 14.完成某種特定的功能對象名.方法名Forml.Show 15. AutoSizeStretch 16. FileCopy"c:\","d:\" 二、單項選擇題 1.B2.C3.C4.D5.D6.B7.B 8.D9.D10.C11.D12.A13.C 三、指出下列句中的錯誤，修改或者說明原因。 1.int.sum不正確。變量名中不能包括小數(shù)點。 2.變量名的長度最長可達255個字符。 3 .3.6,4 因為a不是整型變量。 4 .不正確。程序不可以改變字符的長度，這是VB規(guī)定。 5.不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長字符串數(shù)據(jù)及用戶定義類型

16、 外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。 6 .False。邏輯表達式計算結(jié)果。 7 .不正確。兩個日期型數(shù)據(jù)相減，其結(jié)果是一個數(shù)值型數(shù)據(jù)。 8 .不正確。靜態(tài)變量為局部變量，只能在過程中聲明。 9 .正確。 10 .正確。 11 .正確。 12.不正確。該屬性設(shè)為Ture時，Image控件不能自動調(diào)整自己的尺寸與顯示的圖片匹 配，而可以使圖片自動擴展以適應(yīng)控件的尺寸。 四、讀程序題，寫出程序運行結(jié)果。 1.程序運行后，單擊窗體，輸出結(jié)果為: 1 1 21 12321 1234321 1 2 3 4 5 4 3 2 1 12345654321 12

17、34567654321 123456787654321 12345678987654321 2 .程序運行后，單擊按鈕Command1輸出結(jié)果為：120。 3. * ** *** **** ***** 4. aabb -30False aabb-30False 30+6090 30+6090 5. 11 139 五、編程題 1. PrivateSubCommand1_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" End Sub PrivateSubCo

18、mmand2_Click() a=Trim(Textl.Text) b=Trim(Text2.Text) c=Trim(Text3.Text) Ifa=""Orb=""Orc=""Then MsgBox"成績填寫不完全！",vbCritical Else Text4.Text=(Val(a)+Val(b)+Val(c))/3 EndIf EndSub PrivateSubCommand3_Click() UnloadMe EndSub 2. PrivateSubCommand1_Click() x=Val(Text1.Text) IfxMod3=2AndxMod

19、5=3AndxMod7=4Then Printx Else 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.Bold=False EndSub PrivateSubCheck2_Click() IfCheck2.Value=1Then Labell.Font.Italic=True

20、 Else Labell.Font.Italic=False EndIf EndSub PrivateSubCommand1_Click() UnloadMe EndSub ")) ")) ")) 4. a=Val(InputBox("輸入第一個數(shù)： b=Val(InputBox("輸入第二個數(shù)： c=Val(InputBox("輸入第三個數(shù)： Ifa

21、1、VB程序設(shè)計的主要特點是(1)和(2)。 2、在VB中，最主要的兩種對萩一(3)而(4)。 3、工程是構(gòu)成應(yīng)用程序文件的⑸。 4、方法是VB提供的一種(6),用來完成一定的操作。 5、浮點類型數(shù)據(jù)包括單精度型和(7)__數(shù)據(jù)。 6、事件是窗體或控件對象識別的(8)。 7、可用窗體的—(9)_方法在窗體中顯示文字。 8、復(fù)選框控件Value屬性指示復(fù)選框處于(10)―或禁止狀態(tài)(暗淡的)中的某一種。 9、在VB中，修改窗體的(11)和(12)屬性值，可改變窗體的大小。 10、雙擊工具箱中的控件圖標，可在窗體的(13)出現(xiàn)一個尺寸為缺省值的控 件。 11、在MsgBox函

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

23、kD、KeyDown 2、滾動條控件(如圖所示)的Max屬性所設(shè)置的是(2)。 A、滾動框處于最右位置時，一個滾動條位置的Value屬性最大設(shè)置值 B、單擊滾動條和滾動箭頭之間的區(qū)域時，滾動條中滾動塊的最大移動量 C、單擊滾動條的箭頭區(qū)域時，滾動條中滾動塊的最大移動量 H滾動條控件無該屬性 3、SQL語句Select*Formstudent中的*表示￡3)。 A所有記錄B、所有字段C、所有表D、都不對 4、以下選項中，不屬于標簽的屬性是(4)。 AEnabledB、CaptionC、DefaultD、Font 5、要求改命令按鈕顯示的文本，應(yīng)當在屬性窗口中改變的屬性

24、是(5) A、CaptionB、NameC、TextD、Label 所代表選項的選中狀態(tài)，應(yīng)當在屬性窗口中改變的 6、設(shè)置一個單選按鈕(OptionButton)屬性是(6。 A、Caption B 、Name C 、Text D 、Value 7、允許在菜單項的左邊設(shè)置打勾標記, A、在標題項中輸入&,然后打勾 C、在有效項中打勾 下面哪種論述是正確的？ ⑴ B 、在索引項中打勾 D 、在復(fù)選項中打勾 8、當執(zhí)行以下過程時，在窗體上將顯示(8) PrivateSubCommand1_Click() Print"VB"; Print"Hello!"; Pri

25、nt"VB" EndSub AVBHello!VBB、VB Hello!VB CVBD、VB Hello!VBHello! VB 9、語句Print"Theansweris:";20/4-2的結(jié)果為(9)。 A、Theansweris20/4-2B、Theansweris3 CTheansweris"20/4-2"D、非法語句 10、下列哪個控件是容器控件(10)。 A、ImageB、PictureC、ComboBoxD、FileListBox11、若要將窗體從內(nèi)存中卸載出去，其實現(xiàn)的方法是(11)。 A.ShowB.HideC.LoadD.UnLoad 12、以下選

26、項中，不是VisualBasic控件的是(12)。 A.窗體B.定時器C.單選框D.命令按鈕 13、雙擊窗體中的對象后，VisualBasic將顯示的窗口是(13)。 A.代碼窗口B.工具箱C.項目(工程)窗口D.屬性窗口 14、可決定窗體的左上角是否有控制菜單的屬性是(14)。 A.ControlBoxB.MinButton C.MaxButtonD.BorderStyle 15、設(shè)有如下語句： Strl=InputBox("輸人"，""，"練習(xí)") 從鍵盤上輸人字符“示例”后，Strl的值是(15)。 A.“輸入"B.""C.“練習(xí)”D.“示例” 16、窗體Form1

27、的Name屬性是Frm1,它的單擊事件過程名是(16) A.Form1_ClickB.Form_ClickC.Frm1_ClickD.Me_Click 17、窗體的hide屬性的含義是(17)。 A.隱藏B.展現(xiàn)C.裝入D.卸載18、若要設(shè)置定時器控件的定時時間，需設(shè)置的屬性是(18)。 A.EnabledB.ValueC.IntervalD.Text 19、能夠改變復(fù)選框中背景顏色的屬性是(19)。 A.ValueB.FontColorC.BackColorD.Font20、窗體能響應(yīng)的事件是(20)。 A.ActiveFormB.LoadC.DriveD.Change 、判

28、斷題(判斷下列正確與否，正確的打，，錯誤的打X。) 1、三種方式的組合框都允許用戶輸入哪些不在列表框中的選項。 2、圖象框中的Stretch屬性為true時，其作用是圖形自動調(diào)整大小以適應(yīng)圖象控件。 3、在菜單編輯器中使用“索引”時，可有一組菜單項具有相同的“名字”。 4、通過改變屬性窗口中的Name屬性，來改變窗體的標題。 5、創(chuàng)建VB應(yīng)用程序的三個主要步驟是：(1)創(chuàng)建應(yīng)用程序界面(2)設(shè)置控件(3)編寫代 碼。 6、變量是指在程序運行過程中其值可以改變的那些量，而值不能改變的是常量。 7、已知P=MsgBox("Howareyou?",VbYesNo+VbQuestion

29、,“Hello!"),變量P是Integer數(shù)據(jù)類型。 8、工程文件的擴展名是.vbg。 9、VB允許設(shè)計和使用用戶自己設(shè)計的控件。 10、OptionButton控件沒有DblCliek事件。 11、同一條記錄中的各數(shù)據(jù)具有相同的類型。 12、使用Data控件可以直接顯示數(shù)據(jù)庫中的數(shù)據(jù)。 13、ImageList是一個圖像容器控件，可用作工具欄的圖像庫。 14、當用戶單擊工具欄按鈕時，將觸發(fā)工具欄按鈕的ButtonClick事件。 15、在VB的工程資源管理器中，如果從工程中移除已經(jīng)保存過的文件，該文件仍然被物理刪除(真正刪除)。 16、如果列表框的ListConut的屬性

30、為10,則列表框最后一項的ListIndex值為10。 17、要是某個命令按鈕不起作用，應(yīng)將該按鈕的Enabeld屬性設(shè)置為False。 18、使用數(shù)組定義語句：DimD$(10),則數(shù)組D中各元素的值為空。 19、如果在一行中輸入多條語句，各語句之間用使用；分隔。 20、在代碼窗口中輸入某行代碼并按回車鍵之后，如果代碼變成紅色，說明該行代碼有語法錯誤。 四、讀程序題，寫出程序運行結(jié)果 1、PrivateSubForm_Click() StaticSUMAsInteger I=1 DoWhileI<=10 SUM=SUM+I 1 =I+1 LoopPrintSUM E

31、ndSub 運行程序，第一次單擊窗體： 第二次單擊窗體： 2 、PrivateSubForm_Click() Print"*";Tab(6);2,Tab(15);5 Print ForI=15To16 PrintI; Forj=2To6Step3 PrintTab(3*j);j*I; Nextj Print NextI EndSub 程序運行結(jié)果： 五、編程題 (一)窗體中有圖片框(Picturel)和計時器(Timeh)兩個控件，運行程序時，將圖片加 載到圖片框中，然后圖片框以每2秒鐘一次的速度向窗體的右下腳移動，每次向左、向右 移動100twip(20分

32、之一像素)。請?zhí)羁眨? PrivateSubForm_load() (1)=loadPicture("Cball.ico”) 2.Interval=200EndSub PrivateSubTimer1_Timer() Staticx,yAsInteger x=x+100 y=y+100Picturel.Move(3) EndSub (二)有一個單擊按鈕過程，其作用是產(chǎn)生50個60?100的隨機數(shù)，統(tǒng)計其中被6整除 余2的個數(shù)，并將這些數(shù)輸出。請?zhí)羁眨? PrivateSubCommand1_Click() DimxAsInteger,N% DimCounterAsInte

33、ger ⑴Timer ForN=1To50 X=Rnd()*(2) If(3)=2Then Printx Counter=(4) (5) NextN PrintCounter EndSub ?VB程序設(shè)計與應(yīng)用》參考答案 一、填空題 1 2 3 4 5 答案 可視化設(shè)計 事件驅(qū)動編程 窗體(form) 控件 集合 題號 6 7 8 9 10 答案 特殊子程序 雙精度 動作 Print 選中 題號 11 12 13 14 15 答案 高度 (Height) 寬度(Width) 中央 工程1 34.6

34、 題號 16 17 18 19 20 答案 0 空 False Picture Cls 二、選擇題 1 2 3 4 5 答案 C A B C A 題號 6 7 8 9 10 答案 D D A B B 題號 11 12 13 14 :15- 答案 D A A A D 題號 16 17 18 19 :201 答案 C A C C B 三、判斷題 1 2 3 4 5 6 7 8 9 10 答案 X X X V X V V V V X

35、 11 12 13 14 15 16 17 18 19 20 答案 V X V V X X V X X V 四、程序閱讀題： （一）（10分） 1、55 2、110 （二）、（10分） *25 153075 163280 五、編程題（20分） （一）1、Picture1.Picture 2、 Timeh 3、 x,y （二）1、Randomize 2 、Rnd（）*41+60 3 、xMod6 4 、Counter+1 5 EndIf 一、單項選擇題（共10分） 1 .在代碼中引用一個控件時，應(yīng)使用控件的（B）

36、屬性。 A.CaptionB.NameC.TextD.Index 2 .設(shè)變量x=4,y=-1,a=7,b=-8,下面表達式（A）的值為假”。 A.x+a<=b-yB.x>0ANDy<0 C.a=bORx>yD.x+y>a+bANDNOT（y

37、變量名中正確的是(D)。 A.3sB.PrintC.SelectMyNameD.Select_1 7 .下列賦值語句(A)是有效的。 A.sum=sum-sumB.x+2=x+2C.x+y=sumD.last=y/0 8 .以下的控件或方法具有輸入和輸出雙重功能的為(B)。 A.PrintB.TextboxC.OptionbuttonD.Checkbox 9 .若要獲得列表框中被選中的列表項的內(nèi)容，可以通過訪問(D)屬性來實現(xiàn)。 A.NameB.ListIndexC.ListCountD.Text 10 .下列代碼的運行結(jié)果為(B)。 PrivateSubcommand1_c

38、lick() Dimm(10) Fork=1To10 m(k)=11-k Nextk x=5 Printm(2+m(x)) EndSub A.2B.3C.4D.5 二、填空題(10分) 1 .寫出整數(shù)n能同時被13和17整除的Basic表達nMod13=0AndnMod17=0式。 2 .代碼窗口中有兩個下拉列表框：左側(cè)是(對象)列表框，右側(cè)是過程列表框。 3 .寫出在字符串"VisualBasic6.0中截取"Visual的Basic表達式LEFT("VisualBasic 4 .0”，6) 4 .函數(shù)Len("abcdef的返回值是(6)。 5 .設(shè)a=2,b

39、=5,c=-2,d=100,則a>b>=cANDa=d的值為 False。 三、將下列數(shù)學(xué)表達式轉(zhuǎn)換為VB表達式。(6分) 1. a2+2ab+b2:aA2+2*a*b+bA2 2. 8exln10:8*exp(x)*log(10) 3. 2sin(450)cos(450):2*sin(3.1416/4)*cos(3.1416/4) 6.在VB中，用戶定義常量使用Const語句，聲明變量使用Dim語句。 1 .在VB6.0中，擴展名為.vbp的文件稱為A。 A)工程文件B)窗體文件C)類模塊文件D)標準模塊文件 2 .在VB6.0集成開發(fā)環(huán)境的設(shè)計模式下，用鼠標雙擊窗體

40、上的某個對象后，打開的窗口是Ao A)代碼窗口 C)屬性窗口 B)窗體設(shè)計窗口 D)工程資源管理器窗口 3 .設(shè)有變量定義語句Dima%,則變量a的數(shù)據(jù)類型是A A)整型B)單精度類型 4 .下列表達式中，值為False的是D A)"AB"<"abc" C)"ABCD"<"abc" C)雙精度類型 D)字符串類型 B) "ABC" = UCase("abc") D) Mid("ABCD",3,1)=Left("ABCD",3) A) 2 B) 3 C) True 6 .下列程序運行后，單擊窗體，輸出結(jié)果是 C 。 Private Sub Form_Click()

41、 Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 7 .下列程序運行后，單擊窗體，輸出結(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 8 .下面程序段所表示的數(shù)學(xué)關(guān)系式是 C 。 D) CDEF D) 35 8 D) 10 7 If (a

42、< b) Then If d = c Then x = 1 Else x = 2 End If A) x C) x 1(a 2(a 1(a 2(a b且 c d) b且 c d) b且 c d) b) B) x D) x 1(a b且 c d) 2(a b且 c d) 1(a b且 c d) 2(c d) 9.下列程序運行后，單擊窗體，輸出結(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)

43、 15 B) 10 C) 1 D) 0 10.下列程序段的輸出結(jié)果是 B For k = 4 To 2 Step -2 5 .函數(shù)InStr("ABCDEF","CD")的值是B Next k Print m; k; A) 2 2 B) 2 0 C) 2 1 D) 0 0 11 .用下面的語句定義數(shù)組，則數(shù)組中的元素個數(shù)是 D 個。 Option Base 1 Dim A(-1 To 2 , 5) As Integer A) 5 B) 10 12 .下面程序段的輸出結(jié)果是 C Dim a(4) As Integer, s As Integer For k = 1

44、To 4 a(k) = 2 * k Next k For k = 1 To 4 Step 2 s = s + a(k) Print s; Next k A) 8 B)20 C)15 D)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

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

46、.0 A) Caption 中，要判斷復(fù)選框是否為選中狀態(tài)，使用的屬性是 B) Checked C) Selected D) Value 列表框 18 .設(shè)列表框List1中共有3個列表項，如右圖所示。則下列語句中，能夠刪除最后一個列表項的是A—。 A) List1.RemoveItem2 B) List1.RemoveItem"項目C" C) List1.RemoveItemList1.Listcount D) List1.RemoveItemList1.ListIndex 19 .組合框分為下拉式組合框、簡單組合框和下拉式列表框，在 “屬性”窗口中這三種類型是

47、由A屬性設(shè)置的。 A)StyleB)FillStyleC)BackStyleD)BorderStyle Value屬性所增加 20 .用戶單擊滾動條的空白處(滑塊與兩端滾動箭頭之間的區(qū)域)時，或減少的值，是由D屬性決定的。 A)MinB)MaxC)SmallChangeD)LargeChange 21 .將圖片文件“b.jpg”作為背景圖片，裝入當前窗體，正確的語句是D。 A)Me.Picture=b.jpgB)Me.Picture=LoadPicture(b.jpg) C)Me.Picture="b.jpg"D)Me.Picture=LoadPicture("b.jpg")

48、22 .要將兩個單選按鈕放置在同一個框架內(nèi)，使它們成為一組，正確的操作是A A)先放置一個框架，然后在框架中放置兩個單選按鈕 B)先放置兩個單選按鈕，再放置一個框架，放置框架時覆蓋在單選按鈕上 C)先放置兩個單選按鈕，再放置一個框架，然后將兩個單選按鈕拖動到框架內(nèi) D)以上三種方法都正確 23 .計時器控件能夠響應(yīng)的事件是D。 A)LoadB)ClickC)ChangeD)Timer 24 .要使命令按鈕處于無效狀態(tài)，可以設(shè)置按鈕的B屬性值為False。 A)CaptionB)EnabledC)StyleD)Visible 25 .如果在一個工程中有多個窗體和模塊，則VB默認

49、的啟動對象是C。 A)第一個標準模塊B)最后一個被添加的窗體 C)設(shè)計時的第一個窗體D)最后一個被添加的標準模塊 26 .在窗體上放置一個圖像框，名稱為Imagel。程序運行時，要保持圖像框大小不變，使框中的圖片能夠自動適應(yīng)圖像框的大小，可以執(zhí)行語句B。 A)Image1.AutoSize=TrueB)Image1.Stretch=True C)Image1.AutoSize=FalseD)Image1.Stretch=False 27 .使用“菜單編輯器”建立菜單項之間的分隔線時，在菜單項的“標題”中輸入的符號是A。 A)減號-B)下劃線_C)&D)# 28 .要將窗體For

50、ml從內(nèi)存中卸載，正確的語句是D—。 A)Forml.ShowB)LoadForml C)Forml.HideD)UnLoadForml 29 .在窗體上單擊時，會觸發(fā)鼠標事件MouseDown其事件過程的一般格式如下： PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) EndSub 此時，如果單擊的是鼠標右鍵，則Button參數(shù)的值是B。 A)1B)2C)3D)4 30 .獲取文件的長度(字節(jié)數(shù))，可以使用的函數(shù)是B。 A)LEN()B)LOF()C)EOF()D)LOG

51、() 【1】 。答案 sqr(3*y)/(x+y) 1 .數(shù)學(xué)表達式gy改寫為VB表達式，形式是 xy 2 .在VB6.0中，InputBox函數(shù)返回值的數(shù)據(jù)類型是【2】。答案：字符串類型或 String 3 .語句PrintTab(5);"ABC"的功能是【3】。 答案：從第5列開始輸出字符串“ABC 4 .下面程序段的功能是：在文本框Textl中輸入一個數(shù)值x,如果滿足5Vx<10,那么輸出 “Yes”，否則輸出“No”。請?zhí)羁铡? x=Val(Text1.Text)答案5

52、=1,b=2,c=3,語句Printa

53、彈出，使用的語句是：答案：Popupmenu Form1.__[8]__menu1 9 .在窗體上放置一個通用對話框控件，名稱為CommonDialog1。使用該控件建立"打開”文件對話框時，要求只能顯示文本文件(即擴展名為“.txt”的文件)，則正確的設(shè)置語 句是CommonDialog1.【9]="文本文件(*.txt)|*.txt"。答案：Filter 10 .設(shè)磁盤上已存在順序文件“a.txt”，為了從文件中順序讀取數(shù)據(jù)而打開該文件，正確 的語句是Open"a.txt"For【10】As#1。答案：Input 1 .下列面程序運行后，單擊窗體，輸出結(jié)果是[1]。答案：139

54、 PrivateSubForm_Click()s=0 Forn=1To3 p=1 Fork=1Tonp=p*k Nextks=s+pPrints; Nextn EndSub 2 .下列程序運行后，單擊窗體，輸出結(jié)果是⑵。答案：7 PrivateSubForm_Click()m=0 Fork=1To4 SelectCasek Case1,2 m=m+1 CaseIs>3 m=m+2 Case1To4 m=m+3 EndSelect Nextk Printm Text1中顯 EndSub 3 .在窗體上放置一個文本框，名稱為Textl。下列程序運行后

55、，單擊窗體， 示的內(nèi)容是[3】。答案：ade PrivateSubForm_Click()Textl.Text="" s="aBd12Re” Fork=1ToLen(s) ch=Mid(s,k,1) Ifch>="a"Andch<="z"Then Text1.Text=Text1.Text+ch EndIf Nextk EndSub 4 .下列程序運行后，單擊窗體，輸出結(jié)果是[4]。答案：1124 OptionBase1 PrivateSubForm_Click() x=Array(3,5,4,8,2,6,11,9,7,4) p=x(1):s=0 Fork=2T

56、oUBound(x) Ifx(k)>pThen P=x(k)s=s+pEndIf Nextk Printp;s EndSub 5 .下列程序運行后，單擊窗體，輸出結(jié)果是[5]。答案：151 PrivateSubForm_Click() Dima(1To3,1To3) Fori=1To3 Fork=1To3 Ifk=1Ori=kThen a(i,k)=1 Else a(i,k)=i+k EndIf Nextk Nexti Printa(1,1);a(2,3);a(3,3) EndSub 6 .在窗體上放置一個命令按鈕，名稱為Command2并編寫如下代碼。

57、 PrivateSubCommand2_Click() DimmAsInteger,nAsInteger,gAsInteger m=18:n=12:g=0 Callsub1(m,n,g) Printm;n;gEndSub PublicSubsub1(ByValaAsInteger,ByValbAsInteger,cAsInteger)Ifa0 r=aModba=bb=r Loopc=aEndSub程序運行后，單擊命令按鈕，則輸出結(jié)果是[6]。答案：18126 7 .在窗體上放置一個命令按鈕，名稱為Command3并編寫如下

58、代碼。 PrivateSubCommand3_Click() DimkAsIntegerk=1 Printfun1(k); Printfun1(k); Printfun1(k); EndSub Functionfun1(aAsInteger)AsInteger StaticcAsInteger DimbAsIntegera=a+2:b=b+2:c=c+2fun1=a+b+c EndFunction程序運行后，單擊命令按鈕，則輸出結(jié)果是[7]。答案：71115 8 .在窗體上放置一個文本框，其名稱為Text1,并編寫如下代碼。 DimsAsString PrivateS

59、ubText1_KeyPress(KeyAsciiAsInteger) s=s+Chr(KeyAscii) Prints; EndSub程序運行后，在文本框中輸入abc,則窗體上輸出的內(nèi)容是[8】。答案：aababc 1 .在窗體上放置一個計時器和一個標簽，計時器名稱為Timer1,標簽名稱為Label1。下 列程序的功能是： (1)在窗體加載事件中設(shè)置計時器每秒鐘能夠觸發(fā)5次Timer事件； (2)每觸發(fā)一次Timer事件能夠?qū)撕炆系淖痔柤哟?,當字號超過當前窗體的寬度 時，將字號恢復(fù)為8。 程序中有一處錯誤，請更正。說明錯誤時可以使用每條語句前的編號。?? (1) P

60、rivateSubForm_Load() (2) Timer1.Interval=5答案：200 (3) Timer1.Enabled=True ⑷EndSub (5) PrivateSubTimer1_Timer() (6) Label1.FontSize=Label1.FontSize+2 ⑺IfLabel1.FontSize>Me.WidthThen (8) Labell.FontSize=8 (9) EndIf (10) EndSub 2.下列程序的功能是計算1+3+5+…+99的和so程序中有一處錯誤。請更正。說明錯誤時 ?? 可以使用每條語句前的編號。

61、(1) s=0 (2) k=1 (3) DoWhilek<=99 (4) k=k+2答案：將(4)、(5)調(diào)換順序 (5) s=s+k (6) Loop (7) Prints 1 .在窗體上放置一個列表框，名稱為List1;放置一個文本框，名稱為Text1;放置一個命令按 鈕，名稱為Command]Caption屬性值為“統(tǒng)計3的倍數(shù)”。如右圖所示。 下列程序的功能是： (1) 在窗體的Load事件中，產(chǎn)生10個20~30 (含20和30)之間的隨機整數(shù)，并作為列 表項逐個添加到列表框List1中。 (2) 單擊命令按鈕Command1時，能夠統(tǒng)計列表框中是3的倍數(shù)的

62、列表項的個數(shù)，并 請?zhí)羁胀晟瞥绦颉? Private Sub Form_ Load() Dim x As Integere Randomize For k = 1 To 10 x = 【1】 ⑵ Next k End Sub 將統(tǒng)計結(jié)果顯示在文本框Text1中。 答案：Int(Rnd*11+20)或Rnd*10+20 ‘產(chǎn)生一個[20,30]之間的隨機整數(shù) ’將x作為列表項添加到List1中 答案：List1.AddItemx或List1.AddItemstr(x) 存放是3的倍數(shù)的列表項的個數(shù) 答案：0 To List1.ListCount - 1 或 0 To

63、 9 [4】 =0 Then 答案：Mod 3 PrivateSubCommand1_Click() DimnAsInteger'n: Fork=【3】 IfVal(List1.List(k))n=n+1 EndIf Nextk Text1.Text=n 1 一 一求自然對數(shù)的底 e的 n! EndSub ,111 2 .下列程序的功能是用近似公式e1--- 1!2!3! 值，直到最后一項小于10-4時停止計算。請?zhí)羁胀晟瞥绦颉? PrivateSubForm_Click() DimeAsSingle,nAsInteger,pAsSingle 'e:

64、累加和p: e=1:n=1:p=1 DoWhile【5】 e=e+pn=n+1 參加求和的當前項 答案：p>=1e-4 【6】 答案:p / n 的近似值=";e P= Loop Print"e EndSub 控件類型 控件名稱 屬性 屬性值 標簽 Label1 Caption 不例文子 命令按鈕 Command1 Caption 設(shè)置 單選按鈕 Option1 Caption 宋體 Option2 Caption 3.在下圖所示的窗體上放置的主要控件及其主要的屬性設(shè)置如下: -|n|x| 示例文字金

65、 喟 選擇字體 *宋體廣隸書 下列程序的功能是單擊命令按鈕后，根據(jù)單選按鈕的選中狀態(tài)，將標簽中的“示例文字”設(shè)置為相應(yīng)的字體。請?zhí)羁胀晟瞥绦颉? PrivateSubCommand1_Click() Dim fn As String If fn =" Else fn =" End If 【7】 宋體" 隸書” 'fn: Then 存放選中的字體 答案：Option1.Value = True [8】 =fn End Sub 答案：Label1.FontName

66、4.下列程序中用戶自定義函數(shù) 單擊窗體時，能夠輸入數(shù)組 平均值，并顯示輸出。 請?zhí)羁胀晟瞥绦颉? Option Base 1 Private Sub Form_Click() Dim a(10) As Single Fori = 1 To 10 a(i) = Val(InputBox(" Next i Print " 平均值="; ave的功能是求一維數(shù)組中所有元素的平均值，并返回。 a的10個元素，并調(diào)用函數(shù) 輸入一個數(shù)值”)) 【9】 調(diào)用函數(shù)ave ave,求數(shù)組a中所有元素的 答案:ave(a) EndSub PublicFunctionave(b()AsSingle)AsSingle DimsAsSingle DimnAsInteger n=UBound(b) Fork=1Ton s=s+b(k) Nextk 【10】 End Function 答案：ave = s / n 《VB期末范圍題總匯》 1 .求隨機10個整數(shù)的最大值、最小值、平均值以及和;