vb課后練習(xí)答案習(xí)題解答

1、第7章 過 程71 填空題1 一個VB應(yīng)用程序可以包括的三種模塊是：（ ）、（ ）和（ ）模塊。答案：窗體模塊、標(biāo)準(zhǔn)模塊、類模塊2函數(shù)過程定義中至少有一個賦值語句把表達(dá)式的值賦給（ ）。答案：函數(shù)過程名3在VB中，過程定義中有兩種傳遞形式的參數(shù)：一種是（ ），稱為傳值調(diào)用；另一種是（ ），稱為傳址調(diào)用。答案：傳值參數(shù)、傳址參數(shù)4 若模塊中以關(guān)鍵字public定義子過程，則在（ ）中都可以調(diào)用該過程。答案：整個應(yīng)用程序5若窗體模塊或標(biāo)準(zhǔn)模塊中以關(guān)鍵字private定義函數(shù)過程，則該函數(shù)過程只能在( )中使用。答案：該窗體模塊或標(biāo)準(zhǔn)模塊6每一個用標(biāo)識符定義的變量、常量、過程都有一個有效范圍，這個范

2、圍稱為標(biāo)識符的（）。答案：作用域7在模塊內(nèi)定義的過程，若在關(guān)鍵字sub或Function加前綴Public，則該過程稱為（）。答案：全局級過程或工程級過程8 過程中定義的靜態(tài)變量作用域是（），生存期是（）。答案：該過程內(nèi)、整個應(yīng)用程序運(yùn)行結(jié)束之前72 選擇題1標(biāo)準(zhǔn)模塊中的代碼存放在以（ ）為擴(kuò)展名的文件中。a).frm b).bas c).cls d).txt 答案：b2（ ）不能在標(biāo)準(zhǔn)模塊中定義。a)事件過程 b)子過程 c)函數(shù)過程 d)公共過程答案：a3設(shè)已定義子過程p，有3個數(shù)值型傳值參數(shù)；設(shè)a為實(shí)型變量，調(diào)用該子過程的正確語句為（ ）。a) p b) call p 0.5, a, 1

3、00 c) call p ( 0.5, cos(0.1), a+10 ) d) p ( 0.5, 1.2, 100 )答案：c4.設(shè)已定義函數(shù)過程f，它有三個實(shí)型傳值參數(shù)；設(shè)a,b和c為實(shí)型變量，則調(diào)用該函數(shù)的正確語句為（ ）。a)f b) f( a+b, b+c )c)f ( a+b, b+c ,c+a ) d) f a+b, b+c, c+a答案：c5在過程體中退出子過程的語句是（ ）。a) Exit Do b) Exit Forc) Exit Sub d) Exit Function答案：c6在過程的形式參數(shù)的前面加上關(guān)鍵字（ ），則該參數(shù)說明為傳值參數(shù)。 a) Val b) ref c

4、) Byref d) ByVal答案：d7關(guān)于過程作用域，錯誤的描述是（ ）。a) 全局級過程的作用域?yàn)檎麄€工程。b) 在某一窗體模塊中定義的全局級過程，若被該模塊外的模塊所調(diào)用，必須在該過程名前加上窗體名稱。c) 在不同模塊中定義的模塊級過程可以同名。d) 模塊級過程與工程級過程不能同名。答案：d8關(guān)于變量的作用域，正確的描述是（ ）。a) 在模塊內(nèi)定義的變量，其作用域必定為所在模塊。b) 同一模塊中不同級的變量不能同名。c) 同一模塊中所有在過程之外用Dim定義的變量為全局變量。d) 不同模塊中定義的變量名字可以相同。答案：d9當(dāng)鼠標(biāo)在窗體上移動時，會發(fā)生（ ）事件。a) MouseDow

5、n b) MouseUpc) MouseMove d) DragDown答案：c10當(dāng)某個對象具有焦點(diǎn)時，在鍵盤上按下某一鍵時就會發(fā)生（ ）事件。a)KeyPress b)KeyUp c)KeyDown d)DragDown答案：a、c11當(dāng)用戶（ ）時，會引發(fā)焦點(diǎn)所在對象的KeyPress事件。a) 在鍵盤上按下有ASC碼的鍵 b) 釋放鍵盤上有ASC碼的鍵c) 單擊鼠標(biāo)左鍵 d) 單擊鼠標(biāo)右鍵答案：a12當(dāng)用戶在鍵盤上按下一個有ASC碼的鍵時會發(fā)生（ ）事件。a) KeyPress和 KeyDown b) KeyPress 和KeyUpc) KeyDown和 KeyUp d) KeyPre

6、ss和 KeyMove答案：a73 解答題1過程的主要作用是什么？VB有什么類型的自定義過程？試舉例說明。答：過程的主要作用有兩個：一是任務(wù)劃分。即把一個復(fù)雜的任務(wù)劃分為若干個小任務(wù)，每個小任務(wù)可以用過程來完成，從而使任務(wù)更易于理解，易于實(shí)現(xiàn)和維護(hù)；二是代碼重用。各種復(fù)雜的任務(wù)常常包含一些完全相同或非常相近的小任務(wù)。把這些小任務(wù)獨(dú)立地編成公用的過程，由各個任務(wù)調(diào)用，這樣的做法可以避免重復(fù)的編程勞動。 在VB6中，有下列4種類型的自定義過程：1）以關(guān)鍵字Sub開頭的子過程；2）以關(guān)鍵字Function開頭的函數(shù)過程；3）以關(guān)鍵字Property開頭的屬性過程；4）以關(guān)鍵字Event開頭的事件過程

7、；在教材中只介紹子過程和函數(shù)過程兩種自定義過程。例如，Private Sub fact(Byval n As Integer,Byref fac As Long) Dim t As Long,i As Integer t=1 For i=1 To n t=t*i Next i fac=tEnd Sub是一個求n的階乘子過程。又如，Private Function max(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)If x > y Then max = x Else max = yIf z > max The

8、n max = z End Function是一個求三個數(shù)x、y和z最大值的函數(shù)過程。2傳值參數(shù)和傳址參數(shù)的主要作用是什么？在調(diào)用過程進(jìn)行參數(shù)傳遞時，它們之間有什么區(qū)別？ 答：傳值參數(shù)的主要作用是把需處理的原始數(shù)據(jù)傳送給被調(diào)用過程的形式參數(shù)。傳址參數(shù)的主要作用是把調(diào)用過程后的結(jié)果傳遞回給調(diào)用程序。對傳值參數(shù)來說，在調(diào)用過程進(jìn)行參數(shù)傳遞時，是把實(shí)際參數(shù)的值直接傳送給相應(yīng)的傳值參數(shù)。值傳送完之后，傳值參數(shù)與相應(yīng)的實(shí)際參數(shù)之間毫無任何聯(lián)系。即在調(diào)用過程時，傳值參數(shù)的改變不會引起相應(yīng)實(shí)際參數(shù)的改變。對傳址參數(shù)來說，在調(diào)用過程進(jìn)行參數(shù)傳遞時，是把實(shí)際參數(shù)的地址傳送給相應(yīng)的傳址參數(shù)。調(diào)用過程時，對傳址參數(shù)

9、的任何操作都是對相應(yīng)的實(shí)際參數(shù)進(jìn)行。即在調(diào)用過程時，傳址參數(shù)的改變會引起相應(yīng)實(shí)際參數(shù)的改變。74 閱讀程序，并寫出程序的運(yùn)行結(jié)果。1Private Sub p(ByVal i As Integer) Dim j%, k% For j = 0 To 7 - i Print " " Next j For k = 0 To 2 * i - 1 Print "*"Next k Print End Sub Private sub command1_Click() Dim i% For i = 1 To 2 P(i) Next i For i = 3 To 1 St

10、ep -1 P(i) Next i End Sub答案： * * * * *2. Private Sub Command1_Click()Dim m%m = max(35, -21, 480)m = max(max(m, 75, 100), 380, 28)Print "max=" mEnd SubPrivate Function max(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)If x > y Then max = x Else max = yIf z > max Then max

11、= z End Function答案： max=4803Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Call s(10, 5, a) Call s(7, a, b) Call s(a, b, c) Print "a=" a, "b=" b, "c=" cEnd SubPrivate Sub s(x As Integer, y As Integer, z As Integer) z = y xEnd Sub答案： a=-5 b=-12

12、 c=-74. Private Sub Command1_Click() Dim i% Const n = 10 Dim a(1 To n) As Integer Randomize For i = 1 To n a(i) = Int(Rnd * 100 + 1) Print a(i), If i Mod 4 = 0 Then Print Next i Print Call s(a, n)End Sub Private Sub s(a() As Integer, ByVal n As Integer) Dim i%, k% For i = 1 To n If a(i) Mod 3 = 2 Th

13、en If k Mod 4 = 0 Then Print Print a(i), k = k + 1 End If Next i End Sub答案：輸出10個1100之間的隨機(jī)整數(shù)，并把其中能被3除余2的數(shù)輸出。5. Public x As Integer Private Sub Command1_Click() x = 10 : Print x Call s1 : Print x Call s2 : Print x End Sub Private Sub s1() x = x + 20 : Print x End Sub Private Sub s2() Dim x As Integer

14、x = x + 20 : Print x End Sub答案： 10 30 30 20 306. Private Sub Command1_Click() s3 (1): s3 (1): s3 (1) End Sub Private Sub s3(ByVal a As Integer) Dim x As Integer Static y As Integer x = x + a: y = y + a Print "x=" x, "y=" yEnd Sub答案： x=1 y=1 x=1 y=2 x=1 y=375 編程題 3，其中f(t）= (1+e)/(

15、1+e)，求g（2.5，3.4），g（1.7，2.5）和g（3.8，2.9）的值。解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立三個標(biāo)簽、三個文本框和兩個命令按鈕。窗體和窗體上控件的主要屬性設(shè)置如表3.7.3所示。 表3.7.3 屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Caption計算函數(shù)值 Label1 Caption x= Label2Caption y= Label3 Caption 空串 Text1 Text 空串 Text2 Text 空串 Text3 Text 空串 Command1Caption 計算 Command2 Caption 結(jié)束(2)程序代碼Private Su

16、b Command1_Click() Dim x!, y! x = Val(Text1.Text) y = Val(Text2.Text) Label3.Caption = "g(" & Str(x) & "," & Str(y) & ")=" Text3.Text = Str(g(x, y)End SubPrivate Sub Command2_Click() EndEnd SubPrivate Function f(ByVal t!) As Single f = (1 + Exp(-t) / (1

17、+ Exp(t)End FunctionPrivate Function g(ByVal x!, ByVal y!) As Single If x <= y Then g = f(x + y) / (f(x) + f(y) Else g = f(x - y) / (f(x) + f(y) End IfEnd FunctionPrivate Sub Text1_Click() Text1.Text = "": Text2.Text = "": Text3.Text = "" Label3.Caption = ""

18、;End Sub(3)運(yùn)行情況運(yùn)行程序后，屏幕出現(xiàn)用戶界面。把鼠標(biāo)移到Text1文本框并單擊，然后輸入x(例如，2.5)。再把鼠標(biāo)移到Text2文本框并單擊，然后輸入y(例如，3.4)。x和y輸入后，單擊標(biāo)題為“計算”的命令按鈕，系統(tǒng)執(zhí)行相應(yīng)的Click事件過程。執(zhí)行結(jié)果如圖3.7.3所示。求g（1.7，2.5）和g（3.8，2.9）的操作方法類似。單擊標(biāo)題為“結(jié)束”的命令按鈕，結(jié)束程序的執(zhí)行。 圖3.7.3 執(zhí)行結(jié)果4給定三組已按升序排列好的整型數(shù)據(jù)，使用過程編寫程序把它們合并為一組仍能按升序排列的數(shù)據(jù)。解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立四個標(biāo)簽、四個文本框和兩個命令按鈕。窗體和窗體

19、上控件的主要屬性設(shè)置如表3.7.4所示。 表3.7.4 屬性設(shè)置 控件名稱屬性名 屬性值 Form1Caption把三組升序數(shù)據(jù)合并為一組升序數(shù)據(jù) Label1Caption 第一組： Label2Caption 第二組： Label3 Caption 第三組： Label4 Caption 合并后： Text1Text 空串 Text2 Text 空串 Text3Text 空串 Text4TextMultiLineScrollBars 空串 True 1 Command1Caption 合并 Command2 Caption 結(jié)束(2)程序代碼Option ExplicitOption Ba

20、se 1Dim a As Variant, b As Variant, c As VariantPrivate Sub Form_load() Dim i% a = Array(1, 2, 7, 8, 9) For i = 1 To 5 '顯示數(shù)組a的元素值 Text1.Text = Text1.Text & Str(a(i) Next i b = Array(3, 4, 8, 8, 9, 10, 12, 12) For i = 1 To 8 '顯示數(shù)組b的元素值 Text2.Text = Text2.Text & Str(b(i) Next i c = Arr

21、ay(1, 5, 5, 6, 8) For i = 1 To 5 '顯示數(shù)組c的元素值 Text3.Text = Text3.Text & Str(c(i) Next iEnd SubPrivate Sub Command1_Click() Dim i%, m%, n%, p% m = UBound(a) n = UBound(b) p = UBound(c) Dim d() ReDim d(m + n) Call gsort(a, b, d) Dim e() ReDim e(m + n + p) Call gsort(c, d, e) For i = 1 To m + n + p '顯示