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

1、VB程序設(shè)計(jì)基礎(chǔ)復(fù)習(xí)資料班級(jí)：12機(jī)械設(shè)計(jì)制造及其自動(dòng)化工本教學(xué)大綱一、課程的性質(zhì)與目的和任務(wù)Visual Basic是可視化編程的、面向?qū)ο蟮?、由事件?qū)動(dòng)的結(jié)構(gòu)化程序設(shè)計(jì)語言，具有簡單易學(xué)、直觀形象、功能豐富、使用靈活等多方面的優(yōu)點(diǎn)。通過該課程的學(xué)習(xí)，掌握面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，培養(yǎng)學(xué)生利用計(jì)算機(jī)解決實(shí)際問題的能力。教學(xué)目的和任務(wù)： 掌握用VB編制應(yīng)用程序的基本方法。 熟悉VB的常用控件，以及常用控件的常用屬性，能熟練地閱讀、理解、編制簡短的VB程序，并上機(jī)調(diào)試。 掌握掌握面向?qū)ο蟪绦蛟O(shè)計(jì)的方法和編程技巧，能夠靈活的使用VB編制解題程序。二、課程的教學(xué)內(nèi)容和基本要求 第一章 Visual B

2、asic 6.0 概述教學(xué)內(nèi)容：編制VB應(yīng)用程序的基本步驟；VB集成環(huán)境；VB的術(shù)語及相關(guān)概念；實(shí)例?；疽螅菏煜B開發(fā)環(huán)境以及菜單、工具箱、工具欄、窗體、工程窗口和屬性窗口的使用。掌握應(yīng)用程序（一個(gè)工程）的開發(fā)過程，如：添加窗體、模塊，保存工程。了解面向?qū)ο蟪绦蛟O(shè)計(jì)、可視化編程、事件驅(qū)動(dòng)等基本概念。 第二章 基本數(shù)據(jù)類型與表達(dá)式教學(xué)內(nèi)容：數(shù)據(jù)類型、常量與變量；運(yùn)算符、表達(dá)式、常用內(nèi)部函數(shù)； InputBox函數(shù)和MsgBox函數(shù)?；疽螅毫私獠煌愋蛿?shù)據(jù)（常量、變量）的定義和使用方法；在熟悉常用函數(shù)的基礎(chǔ)上，能夠根據(jù)數(shù)學(xué)式、關(guān)系式寫出VB表達(dá)式。 第三章 順序結(jié)構(gòu)與常用控件 教學(xué)內(nèi)容：

3、Print語句、賦值語句；建立控件，命令按鈕控件，標(biāo)簽框控件，文本框控件。 基本要求：熟悉以上控件的常用屬性、方法，能夠使用命令按鈕或文本框控件用于編程（所謂常用屬性、方法，是指教材中著重介紹或在例題中多次使用的屬性、方法）。 第四章 選擇結(jié)構(gòu)與常用控件 教學(xué)內(nèi)容：選擇結(jié)構(gòu)；單選按鈕控件，復(fù)選框控件，框架控件?；疽螅赫莆者x擇結(jié)構(gòu)（行If、塊If、Select Case），控件的常用屬性、方法，根據(jù)解題需要正確地選擇控件、編制控件的相應(yīng)事件過程。第五章 循環(huán)結(jié)構(gòu)教學(xué)內(nèi)容：for 循環(huán),當(dāng)循環(huán)，do 循環(huán)，多重循環(huán)基本要求：正確使用循環(huán)結(jié)構(gòu)（For/Nex、Exit For、Do/Loop、E

4、xit Do、While/Wend）第六章 數(shù)組和基他控件教學(xué)內(nèi)容：數(shù)組，數(shù)組的應(yīng)用舉例，控件數(shù)組，列表框和組合框控件，滾動(dòng)條控件，定時(shí)器控件?；疽螅菏炀氄莆諗?shù)組的定義、表示與使用；要求熟悉數(shù)組的選擇排序（分類）或冒泡法等常用算法；以上控件的常用屬性、方法，利用已學(xué)的控件建立控件數(shù)組。根據(jù)解題需要正確地選擇控件、編制控件的相應(yīng)事件過程。第七章 過程教學(xué)內(nèi)容：函數(shù)過程與SUB過程。基本要求：掌握Sub過程的定義與調(diào)用、Function函數(shù)過程的定義與調(diào)用；理解參數(shù)傳遞規(guī)則；變量和常量的作用域及生存期，包括相關(guān)的聲明語句或關(guān)鍵字。第八章 圖形控件與圖形方法 教學(xué)內(nèi)容：VB坐標(biāo)系，圖片框控件，影

5、像框控件，形狀控件和直線控件，圖形方法 基本要求：以上控件的常用屬性、方法；改變VB坐標(biāo)系；畫點(diǎn)、線（矩形）、圓（弧與橢圓）；正確地使用顏色。 第九章 對(duì)話框與菜單 教學(xué)內(nèi)容：通用對(duì)話框控件，菜單設(shè)計(jì) 基本要求：通用對(duì)話框控件的建立和使用（如何打開不同對(duì)話框？對(duì)話改變了控件的屬性是什么？）；用菜單編輯器創(chuàng)建菜單；掌握菜單的常用屬性；掌握菜單的Click事件。 第十章 文件 教學(xué)內(nèi)容：與文件操作有關(guān)的控件，直接調(diào)用外部可執(zhí)行文件的Shell方法，數(shù)據(jù)文件的操作。基本要求：理解文件的概念；熟練掌握驅(qū)動(dòng)器列表框、目錄列表框和文件列表框的功能和綜合作用；順序文件的基本操作。第十一章 數(shù)據(jù)庫的應(yīng)用教學(xué)內(nèi)

6、容：數(shù)據(jù)庫的基本知識(shí)；數(shù)據(jù)控件基本要求：會(huì)建立簡單的數(shù)據(jù)庫，并會(huì)使用常用的數(shù)據(jù)控件。三、學(xué)習(xí)進(jìn)度 四、課程考核方式及題型 本課程采用一頁開卷考試，題目類型見五套樣卷，題型和樣卷一致。五、教材省教育廳重點(diǎn)教材Visual Basic 6.0程序設(shè)計(jì)，2007年8月浙江大學(xué)出版社，張健等編。 VB練習(xí)題（一）一、判斷題 （每題 1 分，共 10 分）（ ）1. 由Visual Basic語言編寫的應(yīng)用程序有解釋和編譯兩種執(zhí)行方式。（ ）2. 文本框控件的MaxLength屬性值為0時(shí)，在文本框內(nèi)不可以輸入任何字符。（ ）3. 要使輸入文本框的字符始終顯示“#”，則應(yīng)修改其PasswordChar屬

7、性為“#”。 （ ）4. 在一個(gè)窗體中不能使用Unload來卸載本窗體，即一個(gè)窗體只能由其它窗體卸載。（ ）5. VB的Double類型數(shù)據(jù)，可以精確表示其數(shù)值范圍內(nèi)的所有實(shí)數(shù)。（ ）6. 在圖片框中添加的控件，其Top和Left屬性值是相對(duì)圖片框而言的，與窗體無關(guān)。（ ）7. 命令按鈕不但能響應(yīng)單擊事件，而且還能響應(yīng)雙擊事件。（ ）8. 在自定義函數(shù)過程中，函數(shù)名必須被賦值。（ ）9. 文本框控件只能響應(yīng)KeyPress、KeyDown、KeyUp、Change事件。（ ）10. 如果一個(gè)菜單項(xiàng)的Visible屬性為False，則它的子菜單也會(huì)顯示。二、單選題 （每題 2 分，共 20 分）

8、（ ）11. 要改變控件的高度，應(yīng)修改控件的_屬性。 A、Top B、 Left C、 Height D、Width （ ）12. VB算術(shù)運(yùn)算符乘或除、整除、求余的優(yōu)先級(jí)，從高到低依次為_。A、乘或除、求余、整除 B、乘或除、整除、求余C、整除、求余、乘或除D、整除、乘或除、求余（ ）13. 下列哪個(gè)屬性用來表示標(biāo)簽（Label）的內(nèi)容和窗體（Form）的標(biāo)題_。 A、Caption B、Text C、Left D、Name（ ）14. 判斷整型變量m能否被n整除的VB表達(dá)式為_。A、n Mod m=0 B、m/n*n=m C、m Mod n D、mn*n=m（ ）15. 選中復(fù)選框控件時(shí)，

9、Value屬性的值為_。 A、True B、False C、0 D、1（ ）16. 在窗體Form1的一個(gè)事件過程中，使用_來清除窗體上所繪制的圖形的方法是不正確的。 A、Form1.Cls B、Form.Cls C、Me.CLS D、Cls（ ）17. 設(shè)計(jì)動(dòng)畫時(shí)通常用時(shí)鐘控件_屬性來控制動(dòng)畫速度。 A、Interval B、 Timer C、 Move D、 Enabled（ ）18. 使用Circle方法不可以繪制的圖形是_。A、圓角矩形 B、橢圓 C、圓餅圖 D、扇形（ ）19. 運(yùn)行時(shí)組合框控件Comb1中所選擇的表項(xiàng)，可以表示為_。 A、Comb1.Text B、Comb1.Lis

10、tIndex C、Comb1.List D、Comb1.ListCount（ ）20. 若i的初值為9，則下列循環(huán)語句的循環(huán)次數(shù)為 _次。 Do While i<=20 i=i+3 Loop A、3次 B、4次 C、5次 D、6次三、程序填空題（每空 2 分，共 20 分） 1【程序說明】以下程序產(chǎn)生30個(gè)兩位隨機(jī)整數(shù)、并按從小到大的順序存入數(shù)組a中，再將其中的奇數(shù)按從小到大的順序在窗體中用緊湊格式輸出。Private Sub Form_Click() Dim a(30) As byte, i as Byte, j As Byte, m As Byte For i=1 To 30a(i)

11、= (21) Next i For i=1 To 29 For j= (22) If a(i)>a(j) Then m=a(i) (23) a(j)=m Next jNext i For i=1 To 30 If (24) Then (25) Next iEnd Sub（21） (22 ) (23 ) (24 ) (25 ) 2【程序說明】下列程序運(yùn)行時(shí)，單擊Command1(0)后，圖片每秒自動(dòng)左移1毫米，單擊Command1(1)停止移動(dòng)（當(dāng)圖片尾部移出窗體后，圖片從窗體右端進(jìn)入窗體）。界面設(shè)計(jì)如下圖1所示。圖1 程序2的界面設(shè)計(jì)【程序】 Private Sub Command1_C

12、lick(Index As Integer) If Index=0 Then (26) Else Timer1.Enabled=False End Sub Private Sub Form_Load() Timer1.Interval = (27) Form1.ScaleMode = 6 (28) End Sub Private Sub Timer1_Timer() Picture1.Left = (29) If Picture1.Left + Picture1.Width <= Form1.ScaleLeft Then _ (30) = Form1.ScaleLeft + Form1.

13、ScaleWidth End Sub（26） (27) (28 ) (29 ) (30 ) 四、程序閱讀題（每小題5分，共 20 分）程序31、請(qǐng)寫出單擊窗體三次后，窗體上的顯示結(jié)果。Private Sub Form_Click() Static a As Integer Dim b As Integer b = a + b + 2 a = a + b Form1.Print "a=" a, "b=" bEnd Sub程序32、 請(qǐng)寫出單擊窗體后，窗體上的顯示結(jié)果。Private Sub Form_Click() For i% = 1 To 7 Prin

14、t Spc (7- i) ; For j% = 1 To (2 * i%) - 1 : Print "M" ; : Next j% Print Next i%End Sub程序33、寫出程序運(yùn)行時(shí)，單擊Option1(2)后，窗體上的顯示結(jié)果。Private Sub Form_Load() Option1(0).Value=FalseOption1(1).Value=FalseOption1(2).Value=FalseEnd SubPrivate Sub Option1_Click(Index As Integer) If Option1(Index).Value=Tru

15、e Then Select Case Index Case 0 Check1(0).Value=1: Check1(1).Value=0 Case 1 Check1(0).Value=0: Check1(1).Value=1 Case 2 Check1(0).Value=1: Check1(1).Value=1 End Select If Check1(0).Value=1 Then Print "您好" If Check1(1).Value=1 Then Print "歡迎使用Visual Basic!" End IfEnd Sub程序34、設(shè)Text

16、1.Text為 "abcdef"，運(yùn)行時(shí)連續(xù)單擊3次控件HScroll1右側(cè)箭頭后，分別寫出組合框控件中的第1項(xiàng)、第2項(xiàng)及第3項(xiàng)的內(nèi)容。Private Sub Form_Load() HScroll1.SmallChange = 1: HScroll1.Max = 5 HScroll1.Min = 1: HScroll1.Value = 1 Combo1.ClearEnd SubPrivate Sub HScroll1_Change() Combo1.AddItem Left(Text1.Text, HScroll1.Value), 0End Sub 五、程序設(shè)計(jì)題 （每題

17、 10 分，共 30 分）35編制事件過程Command1_Click，執(zhí)行該過程時(shí)輸入n以及n個(gè)數(shù)，計(jì)算這n個(gè)數(shù)的和并在文本框控件Text1中顯示。（10分）36. 編制通用函數(shù)過程fsum ，計(jì)算Single類型一維數(shù)組所有元素的和。（10分）37. 在窗體上建立命令按鈕“Command1”（顯示）和“Command2”（退出）。運(yùn)行時(shí)，“Command2”按鈕始終顯示“退出”；單擊“顯示”按鈕后窗體上顯示“歡迎使用Visual Basic！”同時(shí)標(biāo)題改為“清除”，再單擊“清除”按鈕后，界面恢復(fù)窗體裝入時(shí)的初態(tài)。（10分）VB練習(xí)題（一）參考答案試題一、判斷題（每小題1分，共10分）1.

18、2. × 3. 4. × 5. × 6. 7. 8. 9. × 10. ×試題二、單選題（每小題2分，共20分）11. C 12. B 13. A 14. D 15. D 16. B 17. A 18.A 19. C 20. B試題三、程序填空題（每空2分，共20分）21Int(Rnd*90)+10 22. i+1 To 30 23. a(i) = a(j) 24. a(i) Mod 2<>0 25. Print a(i); 26. Timer1.Enabled=True 27. 1000 28. Timer1.Enabled =

19、False 29. Picture1.Left-1 30. Picture1.Left試題四、程序閱讀題(每小題5分，共20分)31. a = 2 b = 2 a = 6 b = 4 a = 14 b = 8 32. M MMM MMMMM MMMMMMM MMMMMMMMM MMMMMMMMMMMMMMMMMMMMMMMM33.您好 歡迎使用Visual Basic!34. abcd abc ab 試題五、程序設(shè)計(jì)題（每小題各10分，共30分）35編制事件過程Command1_Click，執(zhí)行該過程時(shí)輸入n以及n個(gè)數(shù)，計(jì)算這n個(gè)數(shù)的和并在文本框控件Text1中顯示。Private Sub C

20、ommand1_Click() Dim s As Single, n As Integer, x As Single n=InputBox("輸入n") For i=1 To n x=InputBox("x="): s=s+x Next i Text1.Text=sEnd Sub36. 編制通用函數(shù)過程fsum，計(jì)算Single類型一維數(shù)組所有元素的和。 Private Function fsum(a() As Single, n As Single) As Single Dim i As Integer For i = 1 To n fsum = fs

21、um + a(i) Next i End Function37. 在窗體上建立命令按鈕“Command1”（顯示）和“Command2”（退出）。Private Sub Command1_Click() If Command1.Caption = "顯示" Then Print "歡迎使用Visual Basic！" : Command1.Caption = "清除" Else Form1.Cls : Command1.Caption = "顯示" End IfEnd SubPrivate Sub Command2

22、_Click() EndEnd SubPrivate Sub Form_Load() Form1.Cls : Command1.Caption = "顯示"End SubVB練習(xí)題（二） 一、判斷題 （每題 1 分，共 10 分）（ ）1VB是以結(jié)構(gòu)化的Basic語言為基礎(chǔ)、以事件驅(qū)動(dòng)作為運(yùn)行機(jī)制的可視化程序設(shè)計(jì)語言。（ ）2用DIM定義數(shù)值變量時(shí)，該數(shù)值變量自動(dòng)賦初值為0。（ ）3移動(dòng)框架時(shí)框架內(nèi)控件也跟隨移動(dòng)，因此框架內(nèi)控件的Left和Top屬性值也隨之改變。（ ）4列表框和文本框一樣均沒有Caption屬性，但都具有Text屬性。（ ）5圖片框可以通過Print方法來

23、顯示文本。（ ）6語句“FontName = "宋體"”與“Form1.FontName = "宋體"”的作用完全相同，無一例外。（ ）7SetFocus方法是把焦點(diǎn)移到指定對(duì)象上，使對(duì)象獲得焦點(diǎn)，該方法適用于所有控件。（ ）8由于定時(shí)器控件在運(yùn)行時(shí)是不可見的，因此在設(shè)置時(shí)可任意地將其放在任何位置。（ ）9表示各控件對(duì)象的變量名的屬性為Caption。（ ）10. 決定對(duì)象是否可見的屬性是Visible屬性，決定對(duì)象可用性的屬性是Enabled屬性。二、單選題 （每題 2 分，共 20 分）（ ）11下列哪個(gè)屬性用來表示各對(duì)象（控件）的位置_。A、Tex

24、t B、Caption C、Left D、Name（ ）12List1.Clear中的Clear是_。A、方法 B、對(duì)象 C、屬性 D、事件（ ）13將文本框控件的_屬性設(shè)置為True，可正常顯示文本但不可編輯。 A、Locked B、EnabledC、MultiLine D、Visible（ ）14取字符串Ax從第1個(gè)非空格符開始的連續(xù)5個(gè)字符，寫作表達(dá)式_。A、Mid(Ax,1,5) B、Left(Trim(Ax),5) C、Left(Ax,5)D、Mid(Trim(Ax),5)（ ）15數(shù)學(xué)式 (x+5)1/3 寫成VB表達(dá)式是_。A、(x+5)1/3B、(x+5)(13) C、(x+5

25、)13 D、(x+5)(1/3)（ ）16要使Shape控件以實(shí)心方式填充，應(yīng)該設(shè)置其_屬性。A、FillColor B、FillStyle C、BackStyle D、Shape（ ）17將命令按鈕Command1設(shè)置為不可見，應(yīng)修改該命令按鈕的_屬性。A、Visible B、Value C、Caption D、Enabled（ ）18將變量x、y中的最大數(shù)賦值給變量a，正確的表示為_。 A、a= If y>x Then y Else x B、If y>x Then a=y: a=x C、a=x: If y>x Then a=y D、If y>x Then a=y E

26、lse a=x End If（ ）19文本框控件Text4的Text屬性默認(rèn)值為_。A、Text4 B、"Text4" C、Locked D、Name（ ）20描述以（1000，1000）為圓心、以400為半徑畫1/4圓弧的語句，正確的是_。 A、Circle(1000,1000),400,0,3.1415926/2 B、Circle(1000,1000),400,0,3.1415926/2 C、Circle(1000,1000),400,0,3.1415926/2 D、Circle(1000,1000),400,0,90三、程序填空題 （每空 2 分，共 20 分） 1【

27、程序說明】 利用一個(gè)計(jì)時(shí)器、一個(gè)標(biāo)簽框和二個(gè)命令按鈕制作一個(gè)動(dòng)態(tài)秒表，如圖1所示。單擊“開始”命令按鈕，秒表開始計(jì)時(shí)，單擊“結(jié)束”命令按鈕，秒表結(jié)束計(jì)時(shí)，并在標(biāo)簽框顯示運(yùn)行時(shí)間，如“運(yùn)行了0小時(shí)2分10秒”。（假設(shè)對(duì)象的屬性都在程序代碼中設(shè)定）圖1 動(dòng)態(tài)秒表 程序代碼如下： Dim x As Long Dim h As Integer, m As Integer, s As Integer Private Sub Form_Load() Form1.Caption = "動(dòng)態(tài)秒表（小時(shí)：分：秒）" Command1.Caption = "開始" Comm

28、and2.Caption = "結(jié)束" Label1.Alignment =”Center” Label1.Caption = " 0: 0: 0" Timer1.Interval= (21) Timer1.Enabled = False x = 0 End Sub Private Sub Command1_Click() (22) End Sub Private Sub Command2_Click() Timer1.Enabled = False x = (23) Label1.Caption = "運(yùn)行了"+Str(h)+&qu

29、ot;小時(shí)"+Str(m)+_ "分"+Str(s)+"秒" End Sub Private Sub Timer1_Timer() (24) h = x 3600 m = (x Mod 3600) 60 s = (25) Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)End Sub（21） (22 ) (23 ) (24 ) (25 ) 2【程序說明】本程序?qū)?個(gè)大于100的偶數(shù)n分解為2個(gè)素?cái)?shù)之和。其中nflag邏輯型函數(shù)用于判斷自然數(shù)x是否為

30、素?cái)?shù)。 Private Sub Form_Click()Dim n As Integer,x As Integer,y As Integern = Val(InputBox(”請(qǐng)輸入1個(gè)大于100的偶數(shù)”，”輸入數(shù)據(jù)”，100)For x = 3 To n 2 Step 2If nflag(x) Theny = (26) If nflay(y) ThenForm1.Print n; ”=”; x; ”+”; y : Exit ForEnd IFEnd If (27) End SubFunction nflag(x As Integer)Dim flag As Boolean k = 2 : m

31、 = Int(Sqr(x)flag = (28) Do While k <= mIf x Mod k = 0 Then flag = False (29) Loopnflag = (30) End Function（26） (27) (28 ) (29 ) (30 ) 四、程序閱讀題（每小題5分，共 20 分）程序31、寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。Private Sub Form_click()Dim x as stringDim i as integer, n as integerForm1.clsx=”ABCDEFGHKL”n = len(x)for i = n

32、 to 1 step -2Form1.Print Tab (20-i) ; Mid(x,i,1)Next iEnd sub 程序32、執(zhí)行下列事件過程時(shí)，寫出窗體上的顯示結(jié)果。Private Sub Command1_Click() Dim x As Long, i As Integer x = 60 i = 2 Do While x > 1 If x Mod i = 0 Then Print i; : x = x i Else i = i + 1 LoopEnd Sub程序33、順序?qū)懗鲞\(yùn)行時(shí)在文本框控件Text1中輸入abcd后，列表框控件List1中的各表項(xiàng)。 Dim s As S

33、tring Private Sub Form_Load() List1.Clear Text1.Text = "" End Sub Private Sub Text1_Change() s = s + Text1.Text List1.AddItem sEnd Sub程序34、運(yùn)行下面程序，并輸入數(shù)據(jù)分別為129，32，53時(shí)，寫出label1顯示的內(nèi)容。Private Sub Form_Click()Dim a As Integer a = Val(InputBox("請(qǐng)輸入數(shù)據(jù)","",100)Select Case a mod

34、5Case Is < 4w = a + 10Case Is < 2w = a * 2Case Elsew = a - 10End SelectLabel1.Caption = "w=" & Str(w)End Sub五、程序設(shè)計(jì)題 （每題 10 分，共 30 分）35. 隨機(jī)產(chǎn)生n 個(gè)兩位正整數(shù)（n由輸入對(duì)話框輸入，且0<n<100）,求出其中的偶數(shù)之和，并在標(biāo)簽框Label1上顯示。（10分）36.編程，輸入x值，按下式計(jì)算并輸出y值。（10分）37.在窗體上建立4個(gè)命令按鈕Command1、Command2、Command3和Comman

35、d4,運(yùn)行結(jié)果如下圖2。（10分）要求： 命令按鈕的Caption屬性分別為“字體變大”、“字體變小”、“加粗”和“標(biāo)準(zhǔn)”。 每單擊Command1按鈕和Command2按鈕一次，字體變大或變小3個(gè)單位。 單擊Command3按鈕時(shí)，字體變粗；單擊Command4按鈕時(shí)，字體又由粗體變?yōu)闃?biāo)準(zhǔn)。 4個(gè)按鈕每單擊一次都在窗體上顯示“歡迎使用VB”。 雙擊窗體后可以退出。圖2 運(yùn)行后的顯示結(jié)果VB練習(xí)題（二）參考答案試題一、判斷題（每小題1分，共10分）1. 2. 3. × 4. × 5. 6. × 7. × 8. 9. × 10. 試題二、單選題（

36、每小題2分，共20分）11. C 12. A 13. A 14. B 15. D 16. D 17. A 18.C 19.B 20. C試題三、程序填空題（每空2分，共20分）211000 22. Timer1.Enabled = True 23. 0 24. x = x + 1 2<>0 25. s=xMod3600Mod60 26. n - x 27. next x 28. flag = true 29. k = k + 1 30. flag試題四、程序閱讀題(每小題5分，共20分)31. L 32. 2 2 3 5 H F D B 33. a aab aababc aabab

37、cabcd 34. w=119 w=42 w=63 試題五、程序設(shè)計(jì)題（每小題各10分，共30分）35. 隨機(jī)產(chǎn)生n 個(gè)兩位正整數(shù)（n由輸入對(duì)話框輸入，且0<n<100）,求出其中的偶數(shù)之和，并在標(biāo)簽框Label1上顯示。（10分）Private Sub Form_Click()Dim n As Integer, s as Single, a(100) as IntegerS=0 Do n=InputBox("輸入n(0<n<100):")Loop While n < 1 or n>100For i=1 To na(i)= Int(Rnd

38、*90)+10Next iFor i=1 To 30 If a(i) Mod 2=0 Then s=s+a(i) Next iLabel1.Caption=sEnd Sub36.編程，輸入x值，按下式計(jì)算并輸出y值。（10分）Private Sub Form_Click() Dim x As Single, y As Single x = Val(InputBox("請(qǐng)輸入X的值：") If x > 4 Then y = 3*x - 2 ElseIf x >= 2 And x <= 4 Then y = 5*x 3 ElseIf x > -3 And

39、 x < 2 Then y = Sqr(x+8) Else y = 0 End If Print "當(dāng)X=" x; "時(shí)", "y=" yEnd Sub37. 在窗體上建立4個(gè)命令按鈕Command1、Command2、Command3和Command4,運(yùn)行結(jié)果如下圖2。（10分） 界面設(shè)計(jì)（略） 過程設(shè)計(jì)Private Sub Command1_Click() Form1.FontSize = Form1.FontSize + 3 : Form1.Print "歡迎使用VB"End SubPrivate

40、Sub Command2_Click() Form1.FontSize = Form1.FontSize - 3 : Form1.Print "歡迎使用VB"End SubPrivate Sub Command3_Click() Form1.FontBold = True : Form1.Print "歡迎使用VB"End SubPrivate Sub Command4_Click() Form1.FontBold = False : Form1.Print "歡迎使用VB"End SubPrivate Sub Form_DblCli

41、ck() EndEnd Sub程序運(yùn)行后，單擊Command1兩次后，單擊Command2、Command3、Command4各一次，將顯示如圖2所示的結(jié)果。單擊窗體右上角的“關(guān)閉”按鈕，可以退出運(yùn)行。此外，雙擊窗體時(shí)調(diào)用了事件過程DblClick，也可以退出運(yùn)行。VB練習(xí)題（三）一、判斷題 （每題 1 分，共 10 分）（ ）1. 面向?qū)ο蟮某绦蛟O(shè)計(jì)是一種以對(duì)象為基礎(chǔ)、由事件驅(qū)動(dòng)對(duì)象執(zhí)行的設(shè)計(jì)方法。對(duì)（ ）2. 窗體的WindowState屬性是可讀寫屬性。對(duì)（ ）3單選按鈕能響應(yīng)Click事件，但不能響應(yīng)KeyPress事件。錯(cuò)（ ）4. 定時(shí)器控件的Interval屬性是只讀屬性。錯(cuò)（

42、）5. 由于定時(shí)器控件在運(yùn)行時(shí)是不可見的，因此在設(shè)置時(shí)可任意地將其放在任何位置。對(duì)（ ）6. 控件的屬性值不可以在程序運(yùn)行時(shí)動(dòng)態(tài)地修改。錯(cuò)（ ）7. 事件過程可以由某個(gè)用戶事件觸發(fā)執(zhí)行，它不能被其他過程調(diào)用。錯(cuò)（ ）8. 用Cls方法能清除窗體或圖片框中用Picture屬性設(shè)置的圖形。錯(cuò)（ ）9. 在過程中用DIM語句或Const語句定義的變量或符號(hào)變量是局部變量或局部符號(hào)常量。對(duì)（ ）10. 目錄路徑列表框的Path屬性，只能用程序代碼設(shè)置，不能通過屬性窗口設(shè)置。對(duì)二、單選題 （每題 2 分，共 20 分）（ ）11一個(gè)對(duì)象可以執(zhí)行的動(dòng)作和可被對(duì)象識(shí)別的動(dòng)作分別稱為_。A、事件、方法 B方法

43、、事件 C屬性、方法 D過程、事件（ ）12滾動(dòng)條的_屬性用于指用戶單擊滾動(dòng)條的滾動(dòng)箭頭時(shí)，Value屬性值的增減量。A、LargeChange B、SmallChange C、Value D、Change（ ）13函數(shù) InStr("windowse", Mid("winnt",2,2) 的返回值是_。A、0 B、1 C、2 D、3（ ）14條件“m、n不同時(shí)為0”寫作VB的表達(dá)式為_。 A、m=0 And n<>0 B、m+n=0 C、Not(m=0 And n=0) D、m*n=0（ ）15由For k=35 To 0 Step 3:

44、Next k 循環(huán)語句控制的循環(huán)次數(shù)是_。A、 0 B、 12 C、 11 D、 10（ ）16按Tab鍵時(shí)，焦點(diǎn)在各個(gè)控件之間移動(dòng)的順序是由_屬性來決定的。A、Index B、TabIndex C、TabStop D、SetFocus（ ）17改變控件在窗體中的上下位置應(yīng)修改該控件的_屬性。A、Top B、Left C、Width D、Right（ ）18Int( Rnd * 10 ) 表示的是_范圍內(nèi)的整數(shù)。 A、0，10 B、1，9 C、0，9 D、1，10（ ）19_對(duì)象不具有Caption屬性。A、Label B、Option C、Form D、Timer（ ）20編制一個(gè)對(duì)Sing

45、le類型一維數(shù)組排序的Sub過程，該過程只能被本模塊中其他過程所調(diào)用，其首句為_。 A、Sub f(a() As Single, n As Integer)B、Public Sub f(a() As Single) C、Private Sub f(a(n) As Single,n As Integer) D、Public Sub f(a() As Single,n As Integer)三、程序填空題 （每空 2 分，共 20 分） 1【程序說明】窗體上有兩個(gè)命令按鈕：Command1（顯示）和Command2（退出）。下列程序運(yùn)行時(shí)，“顯示”按鈕能響應(yīng)，“退出”按鈕不能響應(yīng)；單擊“顯示”按鈕

46、后，在窗體上顯示一個(gè)用字符“*”組成的6層的金字塔，同時(shí)“顯示”按鈕不能響應(yīng)，“退出”按鈕能響應(yīng)，運(yùn)行結(jié)果如圖1所示。圖1 金字塔Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 6 Print Spc(24 - i); For j = ( 21 ) Print "*" Next j ( 22) Next i Command1.Enabled = False( 23 ) End SubPrivate Sub Command2_Click() ( 24 ) End SubPriva

47、te Sub Form_Load() Command1.Enabled = True ( 25 ) End Sub（21） (22 ) (23 ) (24 ) (25 ) 2【程序說明】單擊窗體后，用輸入對(duì)話框輸入x、n，按下式計(jì)算結(jié)果。要求：將計(jì)算結(jié)果以標(biāo)簽控件顯示，且每秒鐘隨機(jī)變換一次顏色?！境绦颉緿im s As SinglePrivate Sub Form_Load() Timer1.Interval = (26) Timer1.Enabled = FalseEnd SubPrivate Sub Form_Click() Dim x As Single, n As Integer, i

48、 As Integer, t As Single s = 0: x = InputBox("x="): n = InputBox("n=") (27) For i =2 To n + 1 t = t * x / i (28) Next i (29) End SubPrivate Sub Timer1_Timer() Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label1.Caption = (30) End Sub（26） (27) (28 ) (29 ) (30 ) 四、程序閱讀題（

49、每小題5分，共 20 分）程序31、順序?qū)懗鲞\(yùn)行時(shí)執(zhí)行下列事件過程的顯示結(jié)果。Private Sub Command1_Click() For i = 2 To 20 If i Mod 2 = 1 And i Mod 5 = 3 Then Print i Next i Print iEnd Sub程序32、下列過程f的功能是對(duì)相應(yīng)實(shí)參數(shù)組按絕對(duì)值從大到小排序；運(yùn)行時(shí)單擊命令按鈕控件Command1后，寫出窗體上的顯示結(jié)果。 Private Sub f(a() As Single, n As Integer) Dim i As Integer, j As Integer, k As Integer, t As Single For i = 1 To n - 1 k = i For j = i + 1 To n if abs(a(j) > abs(a(k) Then k = j Next j t = a(k): a(k) = a(i): a(i) = t Next iEnd SubPrivate Sub Command1_Click() Di