《vb程序設計》期末復習題與答案

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

1、?vb程序設計》期末復習題及答案 一、填空題 1 .創(chuàng)建一個VB應用程序三個主要的步驟是、和 2 .當程序運行時，要求窗體中的文本框呈現(xiàn)空白，則在設計時，應當在此文本框的 窗口中，把此文本框的屬性設置成空白。 3 .Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應用程序在窗體中顯示文本信息，可使用控件；若允許用戶輸入文本，則應使用控件。 4 .窗體的常用方法有、、和。 5 .要想在代碼中給名為txtshow的文本框賦予文本：GOODWORK應當編寫的語句是 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,則相應的數(shù)組聲明語句為 13 .事件就是在對象上所發(fā)生的事情，VisualBasic中的事件如 、等。一個對象響應的事件可以有個，用戶不能建立新 的事件。事件過程是指。假設某一事件過程如下： PrivateSubcmd1_Click（） Form1.Caption="VB示例" EndSub 則響應該過程的對象名是,事件名是。 14 .對象的方法用于。當方法不需要任何參數(shù)并且也沒有返回值時， 調(diào)用對象的方法的格式為,例如，對窗體Forml使用Show方法，應寫成 15 .PictureBox控件可通過設置其屬性為True使之可自動調(diào)整

4、大??；而Image 控件可通過設置其屬性為True,使其加載的圖片能自動調(diào)整大小以適應 Image。 16 .在VisualBasic程序中實現(xiàn)復制文件"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 .若要求從文本框中輸入密碼時在文本框中只顯示*號，則應用在此文本框的屬性窗口中 設置（）。 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ù)學表達式 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 .下列對象不能響應 Click 事件的是（ A、列表框 B、圖片框 C、窗 D、計時器 12 .在 Visual Basic 中，按文件的訪問方式不同，可以將文件分為（ A、順序文件、隨機文件和二進制文件 B、文本文件和數(shù)據(jù)文件 C數(shù)據(jù)文件和可執(zhí)行文件 D、ASCn文件和二進 制文件 13 .將通用對話框 CommonDialog的類型設置成“顏色”對話框，可調(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 .設計一個計算程序。該程序用戶界面如圖所示，由四個文本框：文本框 文本框2(text2)、文本框3(text3)、文本框4(text4),和三個按鈕：命令按鈕1 (command］、命令按鈕2(command2、命令按鈕3(command4組成。程序運行后，用 戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計算按鈕，如果成績填寫不完全，則給出提示信息，否則

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

14、創(chuàng)建應用程序界面設置屬性編寫代碼 2. 屬性、text 3. LabelTextBox 4. Load方法Show方法Hide方法Unload方法 5. txtshow.text="GOODWORK" 6. Click()、frm1.show 7.算術表達式字符串表達式關系表達式布爾表達式日期表達式對象表達 式運算符 8. 1 9. TrueFalse 10. 12 11. Sin(x)A2+Sqr(xA2-yA2)/(2*x) 12. DimA(1To5,-2To6)AsString 13.單擊 雙擊 裝載 多響應某個事件后所執(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.不正確。該屬性設為Ture時，Image控件不能自動調(diào)整自己的尺寸與顯示的圖片匹 配，而可以使圖片自動擴展以適應控件的尺寸。 四、讀程序題，寫出程序運行結(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程序設計的主要特點是(1)和(2)。 2、在VB中，最主要的兩種對萩一(3)而(4)。 3、工程是構(gòu)成應用程序文件的⑸。 4、方法是VB提供的一種(6),用來完成一定的操作。 5、浮點類型數(shù)據(jù)包括單精度型和(7)__數(shù)據(jù)。 6、事件是窗體或控件對象識別的(8)。 7、可用窗體的—(9)_方法在窗體中顯示文字。 8、復選框控件Value屬性指示復選框處于(10)―或禁止狀態(tài)(暗淡的)中的某一種。 9、在VB中，修改窗體的(11)和(12)屬性值，可改變窗體的大小。 10、雙擊工具箱中的控件圖標，可在窗體的(13)出現(xiàn)一個尺寸為缺省值的控 件。 11、在MsgBox函

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

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

24、是(5) A、CaptionB、NameC、TextD、Label 所代表選項的選中狀態(tài)，應當在屬性窗口中改變的 6、設置一個單選按鈕(OptionButton)屬性是(6。 A、Caption B 、Name C 、Text D 、Value 7、允許在菜單項的左邊設置打勾標記, A、在標題項中輸入&,然后打勾 C、在有效項中打勾 下面哪種論述是正確的？ ⑴ B 、在索引項中打勾 D 、在復選項中打勾 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、設有如下語句： Strl=InputBox("輸人"，""，"練習") 從鍵盤上輸人字符“示例”后，Strl的值是(15)。 A.“輸入"B.""C.“練習”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、若要設置定時器控件的定時時間，需設置的屬性是(18)。 A.EnabledB.ValueC.IntervalD.Text 19、能夠改變復選框中背景顏色的屬性是(19)。 A.ValueB.FontColorC.BackColorD.Font20、窗體能響應的事件是(20)。 A.ActiveFormB.LoadC.DriveD.Change 、判

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

29、,“Hello!"),變量P是Integer數(shù)據(jù)類型。 8、工程文件的擴展名是.vbg。 9、VB允許設計和使用用戶自己設計的控件。 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、要是某個命令按鈕不起作用，應將該按鈕的Enabeld屬性設置為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程序設計與應用》參考答案 一、填空題 1 2 3 4 5 答案 可視化設計 事件驅(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 .在代碼中引用一個控件時，應使用控件的（B）

36、屬性。 A.CaptionB.NameC.TextD.Index 2 .設變量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 .設a=2,b

39、=5,c=-2,d=100,則a>b>=cANDa=d的值為 False。 三、將下列數(shù)學表達式轉(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)境的設計模式下，用鼠標雙擊窗體

40、上的某個對象后，打開的窗口是Ao A)代碼窗口 C)屬性窗口 B)窗體設計窗口 D)工程資源管理器窗口 3 .設有變量定義語句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ù)學關系式是 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 .設有如下的用戶自定義類型 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”關鍵字聲明的變量稱為全局變量。 A) Private B) Public C) Dim D) Static 15 .在窗體上放置一個文本框，程序運行后，在文本框中輸入 能的原因是該文本框的 D 屬性值已經(jīng)被設置為"*" 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 中，要判斷復選框是否為選中狀態(tài)，使用的屬性是 B) Checked C) Selected D) Value 列表框 18 .設列表框List1中共有3個列表項，如右圖所示。則下列語句中，能夠刪除最后一個列表項的是A—。 A) List1.RemoveItem2 B) List1.RemoveItem"項目C" C) List1.RemoveItemList1.Listcount D) List1.RemoveItemList1.ListIndex 19 .組合框分為下拉式組合框、簡單組合框和下拉式列表框，在 “屬性”窗口中這三種類型是

47、由A屬性設置的。 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 .計時器控件能夠響應的事件是D。 A)LoadB)ClickC)ChangeD)Timer 24 .要使命令按鈕處于無效狀態(tài)，可以設置按鈕的B屬性值為False。 A)CaptionB)EnabledC)StyleD)Visible 25 .如果在一個工程中有多個窗體和模塊，則VB默認

49、的啟動對象是C。 A)第一個標準模塊B)最后一個被添加的窗體 C)設計時的第一個窗體D)最后一個被添加的標準模塊 26 .在窗體上放置一個圖像框，名稱為Imagel。程序運行時，要保持圖像框大小不變，使框中的圖片能夠自動適應圖像框的大小，可以執(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ù)學表達式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”的文件)，則正確的設置語 句是CommonDialog1.【9]="文本文件(*.txt)|*.txt"。答案：Filter 10 .設磁盤上已存在順序文件“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)在窗體加載事件中設置計時器每秒鐘能夠觸發(fā)5次Timer事件； (2)每觸發(fā)一次Timer事件能夠?qū)撕炆系淖痔柤哟?,當字號超過當前窗體的寬度 時，將字號恢復為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 設置 單選按鈕 Option1 Caption 宋體 Option2 Caption 3.在下圖所示的窗體上放置的主要控件及其主要的屬性設置如下: -|n|x| 示例文字金

65、 喟 選擇字體 *宋體廣隸書 下列程序的功能是單擊命令按鈕后，根據(jù)單選按鈕的選中狀態(tài)，將標簽中的“示例文字”設置為相應的字體。請?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ù)的最大值、最小值、平均值以及和;