蘇州大學(xué)版 牛又奇 孫建國主編 Visual Basic 課后習(xí)題答案全

1、第一章1、 B2、 A3、 B4、 答：屬性：紅色、充滿氫氣；事件：松手、針刺；方法：飛走、爆破。5、 答：事件是指對象能夠識別并作出反映的外部刺激。事件驅(qū)動又稱消息驅(qū)動，事件驅(qū)動程序設(shè)計(jì)是指每個事件對應(yīng)有相應(yīng)的程序代碼，僅在該事件發(fā)生時，該段代碼才會被執(zhí)行。事件發(fā)生的順序決定了代碼執(zhí)行的順序，因此每次執(zhí)行應(yīng)用程序時，程序代碼并不是按照程序編寫的順序來執(zhí)行的。6、 答：VB是一個包括界面設(shè)計(jì)、程序編碼、調(diào)試、編譯并創(chuàng)建可執(zhí)行程序的集成開發(fā)環(huán)境。VB的集成開發(fā)環(huán)境的主界面中包含：標(biāo)題欄、菜單欄、工具欄、控件箱、工程資源管理器、屬性窗口、“窗體布局”窗口、窗體設(shè)計(jì)器、代碼編輯器等元素組成。7、 答

2、： VB菜單條通常情況下有：文件、編輯、視圖、工程、格式、調(diào)試、運(yùn)行、查詢、圖表、工具、外接程序、窗口、幫助等13項(xiàng)菜單項(xiàng)組成。8、 答：工具欄可自行定義。標(biāo)準(zhǔn)工具欄中通常情況下有：添加標(biāo)準(zhǔn)exe工程、添加窗體、菜單編輯器、打開工程、保存工程、剪切、復(fù)制、粘貼、查找、撤消、重復(fù)、啟動、中斷、結(jié)束、工程資源管理器、屬性窗口、窗體布局窗口、對象瀏覽器、工具箱、數(shù)據(jù)視圖窗口、可視化元件管理器等按鈕組成。9、 答：創(chuàng)建VB應(yīng)用程序的一般步驟為：創(chuàng)建界面；設(shè)置窗體和控件屬性；編寫代碼；保存工程；運(yùn)行并調(diào)試程序；檢查并排除錯誤；創(chuàng)建可執(zhí)行文件。10、Private Sub Command1_Click()

3、 Label1.Caption = "I love vb,I hate vb"End Sub第二章1、開始temp=xx=y輸入x、y結(jié)束輸出新的x、yy=temp2、開始b>a?是否交換a、b否c>a?是交換a、cc>b?交換b、c是否結(jié)束輸出a、b、c3、S1 輸入待判斷自然數(shù)： N（N>=2）；S2 i=2；S3 判斷i是否小于N-1，若不是轉(zhuǎn)S5S4 判斷N除以i的余數(shù)是否為0,如果不是則i=i+1轉(zhuǎn)S3；S5 判斷i是否等于N，若是輸出“是素數(shù)”，否則輸出“不是素數(shù)”。4、S1 輸入待判斷自然數(shù)： N；S2 將N轉(zhuǎn)換成字符S，計(jì)算S的長度K

4、；S3 i=1；S4 判斷i是否小于K-1，若不是轉(zhuǎn)S6；S5 判斷S中的第i位和第K-i+1位是否相等,如果是則i=i+1轉(zhuǎn)S4，如果不是則轉(zhuǎn)S6；S6 判斷i是否是中間位數(shù)，若是輸出“是回文數(shù)”，否則輸出“不是回文數(shù)”。5、S1 輸入待判斷自然數(shù)： a；S2 i=1；S3 判斷i是否小于a-1，若不是轉(zhuǎn)S5S4 判斷a除以i的余數(shù)是否為0,如果是則保留因子i，否則i=i+1轉(zhuǎn)S3；S5 輸出所有因子。6、開始邊長>0?是否能組成三角形計(jì)算輸出出錯信息結(jié)束是否是否第三章1、窗體的屬性主要分為雜項(xiàng)、外觀、行為、字體、位置等五類。Caption是窗體標(biāo)題，出現(xiàn)在窗體標(biāo)題欄的文本內(nèi)容；而Na

5、me是窗體名稱，在程序代碼中被作為窗體的標(biāo)識名。2、ABDE4、改變窗口的工作狀態(tài)會引發(fā)Activate事件，改變窗口大小會引發(fā)resize事件。5、forecolor和backcolor屬性首先選擇系統(tǒng)中的選項(xiàng)，然后在調(diào)色板中設(shè)置相應(yīng)的顏色；font屬性設(shè)置好以后，在窗體上放置的任何控件都會繼承窗體的font屬性。6、C7、Label、optionbutton、checkbox、commandbutton有caption屬性，沒有text屬性；text、combobox有text屬性，沒有caption屬性8、對象的屬性可以在設(shè)計(jì)界面時在屬性窗口中和運(yùn)行中在代碼中設(shè)置；屬性窗口中的屬性列表并

6、沒有包括對象的所有屬性。9、picturebox、frame等10、optionbutton和checkbox。Optionbox的Value可以取true選中和false未選中，checkbox的Value可以取0未選中，1選中，2變灰，表示暫時不能訪問。11、text、commandbutton可以獲得焦點(diǎn)。在設(shè)計(jì)界面時第一個放在窗體上的文本框或命令按鈕將得到焦點(diǎn)。12、C13、把Value的值設(shè)為2，表示暫時不能訪問復(fù)選框，點(diǎn)擊復(fù)選框后就可以訪問了，而把enabled屬性設(shè)為false則是復(fù)選框變灰，完全不能訪問。若把一個控件的Visible屬性設(shè)為false則在程序運(yùn)行時看不到該控件。

7、14、用additem來添加列表項(xiàng)，用removeitem刪除已有的列表項(xiàng)，用clear刪除所有列表項(xiàng)。15、 16、Private Sub Check1_Click() If Check1.Value = 1 Then Label2.Font.Italic = True ElseIf Check1.Value = 0 Then Label2.Font.Italic = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Label2.Font.Bold = True ElseIf Check2.Valu

8、e = 0 Then Label2.Font.Bold = False End IfEnd SubPrivate Sub Command1_Click() EndEnd SubPrivate Sub Option1_Click() If Option1.Value Then Label2.Font.Size = 12 Label2.RefreshEnd SubPrivate Sub Option2_Click() If Option2.Value Then Label2.Font.Size = 14 Label2.RefreshEnd SubPrivate Sub Option3_Click(

9、) If Option3.Value Then Label2.Font.Size = 16 Label2.RefreshEnd SubPrivate Sub Option4_Click() If Option4.Value Then Label2.Font.Name = "宋體" Label2.RefreshEnd SubPrivate Sub Option5_Click() If Option5.Value Then Label2.Font.Name = "隸書" Label2.RefreshEnd SubPrivate Sub Option6_Cli

10、ck() If Option6.Value Then Label2.Font.Name = "黑體" Label2.RefreshEnd Sub17、18、第四章1. B2. 見教材P40-413. 不對，通用過程也可以存在于窗體模塊中4. 見教材P435. 字符串型常量的界定符是雙引號"，日期型數(shù)據(jù)的界定符是磅號#。A、B是字符型，C、D是日期型，E、F不屬于任何類型。6. 合法變量名有：A、C、D （VB中合法變量名只能由字母、數(shù)字和下劃線構(gòu)成，并且只能以字母開頭）7. 見教材P468. (1) a/(b+c/d) (2) (sqr(x2+1)+x)(1/3)

11、 (3) (2*y)/(a*x+b*y)*(a*x-b*y)(4) 1+1/(1+1/m)(5) (d/3)(2*x)/2 (6) log(y+cos(x)2)(7) fabs(exp(x)+sin(x)3)/(x+y)(8)log(exp(x*y)+fabs(tan(z)-1+cos(x)3)/(x+y-z)9. (1)(2) (A+B)/(A-B)(3)(4) A*B*C/(D+1)*Y)(5)(6) (X*Y)510. A x+y<10 and x-y>0B x*y>0 and x=fix(x) and y=fix(y)C A=0 XOR B=0D C1+C2+C3&g

12、t;=255 and C1>90 and C2>90 and C3>8011. T F F F F12. BCDE （A會發(fā)生溢出的錯誤）13. (1) "3548" (2) 3548 (3) "3548" (4) 3548(5) "83" (6) 83 (7) "3548" (8) 354814. 以2為底的X的對數(shù)：log(x)/log(2)15. C16. z=Inputbox("輸入一個數(shù)："，"程序示例"，1.5)17. Msgbox "

13、Z的值1.5大于0"，48，"程序示例"18. Option ExplicitConst PI As Single = 3.14159Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, area As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) * PI / 180 '角度角轉(zhuǎn)換為弧度角 area = a * b * Sin(c) / 2Text4 = CStr(Format(

14、area, "0.00") '使純小數(shù)能出現(xiàn)整數(shù)位的0End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = ""End SubPrivate Sub Command3_Click() EndEnd Sub第五章1. Option ExplicitPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = 1: b = 0 Do Wh

15、ile a <= 5 b = b + a * a a = a + 1 Loop Print a, bEnd SubPrivate Sub Command2_Click() Dim ch As String, i As Integer ch = "DEF" For i = 1 To Len(ch) '循環(huán)的上界不會變 ch = Mid(ch, 2 * i - 1, 1) & Left(ch, Len(ch) Print ch Next iEnd SubPrivate Sub Command3_Click() Dim p As Integer, i As

16、Integer p = 1 For i = 1 To 5 p = p + (2 * i - 1) / (2 * i + 1) If p >= 20 Then Exit For '跳出循環(huán)前執(zhí)行不到這一句 Next i Print i, pEnd SubPrivate Sub Command4_Click() Dim p As Integer, i As Integer, n As Integer p = 2: n = 20 For i = 1 To n Step p '計(jì)數(shù)循環(huán)的初值、終值和步長都不會變 p = p + 2 n = n - 3 i = i + 1 If p

17、 >= 10 Then Exit For Next i Print i, p, nEnd Sub2.Option ExplicitDim n1 As Integer, n2 As Integer, n3 As IntegerPrivate Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer For i = 1 To 10 For j = 1 To 10 k = Int(Rnd * 90 + 10) Print k; If k <= 40 Then n1 = n1 + 1 ElseIf k <= 7

18、0 Then n2 = n2 + 1 Else n3 = n3 + 1 End If Next j Print Next iEnd SubPrivate Sub Command2_Click() Print "小于等于40的數(shù)據(jù)個數(shù)為：" & n1 & "個" Print "大于40小于等于70的數(shù)據(jù)個數(shù)為：" & n2 & "個" Print "大于70的數(shù)據(jù)個數(shù)為：" & n3 & "個"End SubPrivate Sub

19、 Command3_Click() ClsEnd Sub3.Option ExplicitPrivate Sub Command1_Click() Dim x As Integer, y As Integer x = Text1.Text If x <= 0 Then y = 2 - x ElseIf x <= 2 Then y = x + 2 ElseIf x <= 5 Then y = x 2 Else y = 25 - x End If Text2.Text = y End SubPrivate Sub Command2_Click() Text1.Text = &qu

20、ot;" Text2 = ""End Sub4.Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer For i = 1 To 2 For j = 1 To 10 k = Int(Rnd * 900 + 100) Picture1.Print k; If k Mod 2 <> 0 Then List1.AddItem k Else List2.AddItem k End If Next j Picture1.Print Next

21、iEnd Sub5. Option ExplicitPrivate Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Val(Text1.Text) n = Val(Text2.Text) Do r = m Mod n If r <> 0 Then m = n n = r Else Exit Do End If Loop Text3.Text = Val(Text1.Text) * Val(Text2.Text) / nEnd Sub6.Option ExplicitDim r1 As Int

22、eger, r2 As Single 'r2可能是個很大的數(shù)，最好定義成單精度型Private Sub Command1_Click() Dim i As Integer, k As Integer r1 = 0: r2 = 1 'r2一定要初始化為1，否則積為0 For i = 1 To 10 k = InputBox("請輸入第" & i & "個數(shù)") Picture1.Print k; r1 = r1 + k r2 = r2 * k Next iEnd SubPrivate Sub Command2_Click()

23、 Text1 = r1End SubPrivate Sub Command3_Click() Text2 = r2End Sub7.Option ExplicitPrivate Sub Command1_Click() Dim s As String, s1 As String, s2 As String, i As Integer s1 = Text1.Text For i = 1 To Len(s1) s = Mid(s1, i, 1) If s >= "0" And s <= "9" Then s2 = s2 & s End I

24、f Next i Text2.Text = s2End Sub8.Option ExplicitPrivate Sub Command1_Click() Text1 = "" Text2 = ""End SubPrivate Sub Command2_Click() Dim n As Integer, r As String, s As String n = Val(Text1.Text) Do r = n Mod 2 s = r & s n = n 2 Loop Until n = 0 '當(dāng)商為0時則跳出循環(huán) Text2.Text =

25、sEnd Sub9.Option ExplicitPrivate Sub Command1_Click() Dim a As Long, b As Long, c As Long For a = 1 To 100 For b = 1 To 100 For c = 1 To 100 If a * a + b * b = c * c Then List1.AddItem a & "," & b & "," & c End If Next c Next b Next aEnd Sub10.Option ExplicitPriva

26、te Sub Command1_Click() Dim i As Integer, r1 As Integer, r2 As Integer, r3 As Integer For i = 100 To 999 r1 = i 100 r2 = (i 10) Mod 10 '或者r2 = (i mod 100)10 r3 = (i Mod 100) Mod 10 If r1 < r2 And r2 < r3 Then List1.AddItem i End If Next iEnd Sub11.Option ExplicitPrivate Sub Command1_Click(

27、) Dim a As Single, b As Single, c As Single a = 0: b = 1 c = (a + b) / 2 Do If f(a) * f(c) > 0 Then a = c Else b = c End If c = (a + b) / 2 Loop Until Abs(b - c) <= 0.00001 Text1.Text = Format(c, "0.#")End SubPrivate Function f(x As Single) As Single f = x 3 - x 4 + 4 * x 2 - 1End Fu

28、nction第六章 6-1 請同學(xué)上機(jī)運(yùn)行代碼。6-2Option ExplicitOption Base 1Private Sub Command1_Click() Dim i As Integer, t As Integer Dim a(15) As Integer Randomize For i = 1 To 15 a(i) = Int(100 * Rnd) Text1 = Text1 & Str(a(i) Next i For i = 1 To 7 t = a(i) a(i) = a(16 - i) a(16 - i) = t Next i For i = 1 To 15 Te

29、xt2 = Text2 & Str(a(i) Next iEnd SubPrivate Sub Command2_Click() Text1 = "" Text2 = ""End SubPrivate Sub Command3_Click() EndEnd Sub6-3Option ExplicitDim a(20) As IntegerPrivate Sub Command1_Click() Dim i As Integer Randomize For i = 1 To 20 a(i) = Int(90 * Rnd) + 10 Text1 =

30、Text1 & Str(a(i) Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer, j As Integer, f As Boolean Dim n As Integer For i = 1 To 20 f = True For j = i + 1 To 20 If a(i) = a(j) Then f = False Next j If f = True Then n = n + 1 Next i Text2 = nEnd SubPrivate Sub Command3_Click() Text1 = "

31、"End SubPrivate Sub Command4_Click() EndEnd Sub6-4Option ExplicitDim a(20) As IntegerPrivate Sub Command1_Click() Dim i As Integer Randomize For i = 1 To 20 a(i) = Int(90 * Rnd) + 10 Text1 = Text1 & Str(a(i) Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer, j As Integer, max As In

32、teger Dim n As Integer, w As Integer, p As Integer For i = 1 To 20 n = 0: p = i For j = 1 To 4 If i > 20 Then p = p - 20 n = n + a(p) Next j If n > max Then max = n w = i End If Next i Text2 = max Picture1.Print w & "-" & w + 4End SubPrivate Sub Command3_Click() Text1 = "

33、;"End SubPrivate Sub Command4_Click() EndEnd Sub6-5Dim a(5, 5) As IntegerPrivate Sub Command1_Click() For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(9 * Rnd) + 1 Picture1.Print a(i, j); Next j Picture1.Print Next iEnd SubPrivate Sub Command2_Click() For j = 1 To 5 s = 0 For i = 1 To 4 s = s + a(i,

34、 j) Next i Text1 = Text1 & Str(s) Next jEnd SubPrivate Sub Command3_Click() For i = 1 To 4 s = 0 For j = 1 To 5 s = s + a(i, j) Next j Text2 = Text2 & Str(s) & Chr(13) & Chr(10) Next iEnd SubPrivate Sub Command4_Click() Text1 = "" Text2 = "" Picture1.ClsEnd SubPri

35、vate Sub Command5_Click() EndEnd Sub6-6Option ExplicitPrivate Sub Command1_Click() Dim a(5, 5), i As Integer, j As Integer Dim n As Integer, m As Integer, t As Integer Randomize For i = 1 To 5 For j = 1 To 5 - 1 a(i, j) = Int(40 * Rnd) * 2 + 10 Next j Next i For i = 1 To 5 For j = 5 To 6 - i Step -1

36、 a(i, j) = Int(40 * Rnd) * 2 + 11 Next j Next i For i = 1 To 5 For j = 1 To 5 Text1 = Text1 & Str(a(i, j) Next j Text1 = Text1 & vbCrLf Next iEnd Sub6-7 同6-46-8Dim a(5, 5) As IntegerPrivate Sub Command1_Click() Randomize For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(100 * Rnd) + 1 Picture1.Pri

37、nt Right(" " & a(i, j), 4); Next j Picture1.Print Next iEnd SubPrivate Sub Command2_Click() For i = 1 To 5 For j = 1 To 5 s = s + a(i, j) Next j Next i Text1 = Str(s)End SubPrivate Sub Command3_Click() For i = 1 To 5 For j = 1 To 5 If i = 1 Or j = 1 Or i = 5 Or j = 5 Then s = s + a(i,

38、j) End If Next j Next i Text2 = Str(s)End SubPrivate Sub Command4_Click() For i = 1 To 5 For j = 1 To 5 If i = j Or j = 6 - i Then s = s + a(i, j) End If Next j Next i Text3 = Str(s)End Sub6-9Option ExplicitPrivate Sub Command1_Click() Dim a() As Integer, i As Integer, j As Integer Dim max As Intege

39、r, k As Integer, f As Boolean Dim n As Integer, m As Integer, t As Integer n = InputBox("輸入矩陣的行數(shù)：") m = InputBox("輸入矩陣的列數(shù)：") ReDim a(n, m) Randomize For i = 1 To n For j = 1 To m a(i, j) = Int(90 * Rnd) + 10 Text1 = Text1 & Str(a(i, j) Next j Text1 = Text1 & vbCrLf Next i

40、 For i = 1 To n max = 0 For j = 1 To m If a(i, j) > max Then max = a(i, j) t = j End If Next j For k = 1 To n If a(k, t) < max Then Exit For Next k If k > n Then Picture1.Print "鞍點(diǎn)：" a(i, t); "第" i; "行" t; "列" f = True End If Next i If f = False Then

41、Picture1.Print "沒有鞍點(diǎn)"End SubPrivate Sub Command2_Click() Text1 = "" Picture1.ClsEnd SubPrivate Sub Command3_Click() EndEnd Sub6-10Option ExplicitPrivate Sub Form_Click() Dim a() As Integer, n As Integer Dim i As Integer, j As Integer n = InputBox("層數(shù)") ReDim a(n, n) For

42、 i = 1 To n Print Tab(20 - 2 * i); For j = 1 To i If i = 1 Or i = j Then a(i, j) = 1 Else a(i, j) = a(i - 1, j - 1) + a(i - 1, j) End If Print Left(a(i, j) & " ", 4); Next j Print Next i End Sub6-11Option ExplicitPrivate Sub Command1_Click() Dim a(4, 5), i As Integer, j As Integer Dim

43、b(4) As Integer, max As Integer, min As Integer Dim n As Integer, m As Integer, t As Integer Randomize max = 0: min = 32767 For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(90 * Rnd) + 10 Text1 = Text1 & Str(a(i, j) b(i) = b(i) + a(i, j) Next j Text1 = Text1 & vbCrLf If max < b(i) Then max = b

44、(i): m = i ElseIf min > b(i) Then min = b(i): n = i End If Next i Label1.Caption = "max行和： " & max & " min行和 ：" & min & vbCrLf & "max行： " & m & " min行： " & n & " 交換這兩行" For j = 1 To 5 t = a(m, j) a(m, j) = a(n,

45、j) a(n, j) = t Next j For i = 1 To 4 For j = 1 To 5 Text2 = Text2 & Str(a(i, j) Next j Text2 = Text2 & vbCrLf Next iEnd Sub6-12Option ExplicitPrivate Sub Command1_Click() Dim a(), i As Integer, j As Integer Dim b(4) As Integer, max As Integer, min As Integer Dim n As Integer, m As Integer, t

46、 As Integer Randomize n = InputBox("矩陣階數(shù)n:") ReDim a(n, n) For i = 1 To n For j = 1 To n a(i, j) = Int(90 * Rnd) + 10 Text1 = Text1 & Str(a(i, j) Next j Text1 = Text1 & vbCrLf Next i For i = 1 To n For j = 1 To n Text2 = Text2 & Str(a(j, i) Next j Text2 = Text2 & vbCrLf Nex

47、t iEnd SubPrivate Sub Command2_Click() Text1 = "" Text2 = ""End SubPrivate Sub Command3_Click() EndEnd Sub6-13Option ExplicitOption Base 1Private Sub Command1_Click() Dim a(3, 3) As Integer, i As Integer, j As Integer Dim max As Long, k As Long, f As Integer Dim n As Integer, m A

48、s Integer Randomize For i = 1 To 3 For j = 1 To 3 a(i, j) = Int(90 * Rnd) + 10 Text1 = Text1 & Str(a(i, j) Next j Text1 = Text1 & vbCrLf Next i For i = 1 To 3 '主對角線方向 m = i k = 1 For j = 1 To 3 k = k * a(m, j) m = m + 1 If m > 3 Then m = 1 Next j If k > max Then max = k n = i f = 1 End If Next i For i = 1 To 3 '輔對角線方向 m = i k = 1 For j = 1 To 3 k = k * a(j, m) m = m - 1 If m < 1 Then m = 3 Next j If k > max Then max = k n = i f = 2 End If Next