VB程序設計教程課后參考答案

1、VB程序設計教程課后參考答案習題一一、 填空題1 對象、事件驅動2 窗體、控件3 屬性4 屬性窗口、編程設置5 事件過程6 對象名、下劃線、事件名7 Form_click8 Print form1.print “我的VB”9 主窗口、屬性、工具箱、代碼、窗體、工程資源管理10 菜單、快捷鍵二、 選擇題1C 2. A 3. B 4. B 5. D 6. B C 7. A三、簡答題（略）習題二一、 選擇題1. D 2. C 3. C 4. B5. C6. B7. C8. B9. A10. B11. B12. C13. D14. B15. A16. A17. A18. A19. B20. C21.

2、A22. B23. B24. A25. C26. A27. B28. B29. C30. B31. D32. D33. C二、 填空題1 Controlbox、Maxbutton、Minbutton2 Multiline TRUE3 *4 單文檔界面（SDI） 多文檔界面（MDI）5 窗體顯示6 Passwordchar7 _change()三、 編程題（略）習題三一、 基礎知識題（略）二、 填空題1 整型、長整型、單精度、雙精度2 (x mod 10)*10+x103 Sin(3.14*15/180)+sqr(x+exp(3)/abs(x-y)-log(3*x)4 (a+b)/(1/(c+5

3、)-c*d/2)5 X mod 5=0 or x mod 9=06 False7 -4、3、3、3、4、48 CDEF9 GBCDEFA10 TRUE11 變量、屬性12 _ :13 (略)14 “” 15 Public、通用/模塊、Dim、static、private16 + 、 &、 +17 Now() 、 time()、 日期18 Inputbox()、字符串、val()19 Msgbox()三、 選擇題1B2. C3. A4. B D此題有誤 5. B6. A7. D8. B9. B10. C11. D12. B13. C14. B15. A16. C17.A18. D19.

4、A20. D21. A22. C23. C24. D25. A26. D27. D28. B29. C30. B31. C32. B33. C D此題有誤34. C35. A36. D37. C38. A39. B40. A41. C42. C43. D44. C45. D46. A四、 編程題1.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, delta%Dim x1#, x2#, x#a = Val(InputBox("please input data to a:", "info"

5、;, 1)b = Val(InputBox("please input data to b:", "info", 1)c = Val(InputBox("please input data to c:", "info", 1)If a = 0 And b <> 0 Then x = -c / b Print "所構成的方程是：" & b & "x" & "+" & c & "=0" P

6、rint "該一元一次方程的根是：", xEnd IfIf a = 0 And b = 0 Then Print "很抱歉，不能構成合法的方程！"End IfIf a <> 0 Then delta = b * b - 4 * a * c If delta >= 0 Then x1 = (-b + Sqr(delta) / (2 * a) x2 = (-b - Sqr(delta) / (2 * a) Print "所構成的方程是：" & a & "x2" & "

7、+" & b & "x" & "+" & c & "=0" Print "該方程的根是：" Print "第一個根是：", x1 Print "第二個根是：", x2 Else Print "所構成的方程是：" & a & " x2" & "+" & b & "x" & "+" &

8、amp; c & "=0" Print "該方程有兩個虛根：" Print "第一個虛根是：" & -b / (2 * a) & "+" & Sqr(Abs(delta) / (2 * a) & "i" Print "第二個虛根是：" & -b / (2 * a) & "" & Sqr(Abs(delta) / (2 * a) & "i" End IfEnd IfE

9、nd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2 s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#s = 0For i = 1 To 100 s = s + 1 / i * (-1) (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim

10、t#, s#n = Val(InputBox("please input data:", "info", 5)s = 0t = 1For i = 1 To n t = t * i s = s + tNextPrint sEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%Dim p#, s#a = Val(InputBox("please input data to a:", "info", 3)b = Val(InputBox(&qu

11、ot;please input data to b:", "info", 4)c = Val(InputBox("please input data to c:", "info", 5)If (a + b > c And Abs(a - b) < c) Or (a + c > b And Abs(a - c) < b) Or (b + c) > a And Abs(b - c) < a) Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p -

12、 b) * (p - c) Print "三角形的面積是：" & sElse Print "很抱歉，不能構成合法的三角形！"End IfEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim ji%, tu%For ji = 1 To 27 For tu = 1 To 27 If ji * 2 + tu * 4 = 78 And ji + tu = 27 Then Print "雞的個數(shù)是：" & ji Print "兔的個數(shù)是：" &

13、 tu End If NextNextEnd Sub7.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#, t#s = 10t = 10For i = 1 To 7 t = t * 0.4 s = s + t * 2NextPrint "第八次落地共經(jīng)過的路徑是：" & sEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim ave#fs = Val(InputBox("please

14、input score:", "info", 90)s = fsmax = fsmin = fsFor i = 2 To 7 fs = Val(InputBox("please input score:", "info", 90) If max < fs Then max = fs End If If min > fs Then min = fs End If s = s + fsNext ave = (s - max - min) / 5Print "該運動員的平均成績是：" & a

15、veEnd Sub9. 同學們，這道題方法很多，主要考察你對選擇結構的理解，我給出其中一種方法。Option ExplicitPrivate Sub Command1_Click()Dim x%, y%, z%x = Val(Text1.Text)y = Val(Text2.Text)z = Val(Text3.Text)If x > y Then If x < z Then Text4.Text = z Text5.Text = x Text6.Text = y Else If y > z Then Text4.Text = x Text5.Text = y Text6.T

16、ext = z Else Text4.Text = x Text5.Text = z Text6.Text = y End If End IfElse If y < z Then Text4.Text = z Text5.Text = y Text6.Text = x Else If x < z Then Text4.Text = y Text5.Text = z Text6.Text = x Else Text4.Text = y Text5.Text = x Text6.Text = z End If End IfEnd IfEnd SubPrivate Sub Form_Lo

17、ad()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""End Sub10Option ExplicitPrivate Sub Command1_Click()Dim x%, y%, m%x = Val(Text1.Text)y = Val(Text2.Text)m = x Mod yDo While m <> 0 x = y y =

18、 m m = x Mod yLoopText3.Text = yEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub習題四一、 選擇題1B2. C3. D4. A5. D6. C7. D8. B二、 填空題1 b(i)=a(i-1)+a(i) print2 Variant3 M=lbound(a,2) to n next i4 205 從大到小排序（這是一種比較好的插入排序法，希望同學們能夠掌握）6 Preserve7 A(

19、k)=min8 空的變體型9 J=ubound(a,2) flag=false:exit for10 Dim aa(9,4) as integer三、 簡答題（略）四、 編程題1Option ExplicitPrivate Sub Command1_Click()Dim zfc As String, zm As String, i%, lenth%, n%zfc = InputBox("please input string:", "info", "you are good student")lenth = Len(zfc)n = 0

20、For i = 1 To lenth zm = Mid(zfc, i, 1) 取每一個字母 If UCase(zm) = "A" Or UCase(zm) = "E" Or UCase(zm) = "O" Or UCase(zm) = "I" Or _ UCase(zm) = "U" Then n = n + 1 End IfNextMsgBox "該字符串的元音字母個數(shù)是" & n & "個"End Sub2這道題題目有問題，應改為“與其

21、轉置矩陣相加”O(jiān)ption ExplicitOption Base 1Private Sub Command1_Click()Dim aa(3, 3) As Integer, bb(3, 3) As Integer, cc(3, 3) As IntegerDim i%, j%For i = 1 To 3 For j = 1 To 3 aa(i, j) = Rnd * 100 我假設為100以內(nèi)的任意整數(shù) NextNextCall disp(aa) 調(diào)用函數(shù)，顯示aa數(shù)組的內(nèi)容For i = 1 To 3 For j = 1 To 3 bb(j, i) = aa(i, j) NextNextCa

22、ll disp(bb) 調(diào)用函數(shù)，顯示bb數(shù)組的內(nèi)容For i = 1 To 3 For j = 1 To 3 cc(i, j) = aa(i, j) + bb(i, j) NextNextCall disp(cc) 調(diào)用函數(shù)，顯示cc數(shù)組的內(nèi)容End SubPrivate Sub Form_Load()RandomizeEnd SubSub disp(sz() As Integer) 專門編寫一個顯示數(shù)組的函數(shù),希望同學們在題目中經(jīng)常使用 Dim i%, j% For i = 1 To 3 For j = 1 To 3 Print sz(i, j); Next Print NextEnd S

23、ub3. 這道題題目有問題，應改為“2，16任意進制的數(shù)值”O(jiān)ption ExplicitOption Base 1Private Sub Command1_Click()Dim x%Form1.Cls 清除窗體x = Val(InputBox("please input data:", "info", 20)Call ejz(x) 調(diào)用函數(shù)求解二進制Print 換行Call sljz(x) 調(diào)用函數(shù)求解十六進制End SubSub ejz(ByVal m As Integer) Dim aa(30) As Integer, i%, j% i = 1 D

24、o While m 2 <> 0 aa(i) = m Mod 2 m = m 2 i = i + 1 Loopaa(i) = m Mod 2Print "轉換后的二進制數(shù)是："For j = i To 1 Step -1 Print aa(j);NextEnd SubSub sljz(ByVal m As Integer) 注意十六進制數(shù)碼的特殊性 Dim aa(30) As String, i%, j% i = 1 Do While m 16 <> 0 Select Case m Mod 16 想一想，為什么要這樣轉換 Case 10 aa(i)

25、= "A" Case 11 aa(i) = "B" Case 12 aa(i) = "C" Case 13 aa(i) = "D" Case 14 aa(i) = "E" Case 15 aa(i) = "F" Case Else aa(i) = CStr(m Mod 16) End Select m = m 16 i = i + 1 Loop Select Case m Mod 16 Case 10 aa(i) = "A" Case 11 aa(i) =

26、 "B" Case 12 aa(i) = "C" Case 13 aa(i) = "D" Case 14 aa(i) = "E" Case 15 aa(i) = "F" Case Else aa(i) = CStr(m Mod 16) End Select Print "轉換后的十六進制數(shù)是：" For j = i To 1 Step -1 Print aa(j); NextEnd Sub這道題，請同學們認真思考，學會其它各種進制轉換的算法。4. 本道題我給出兩種方法，希望同

27、學們通過該題目，熟悉函數(shù)的運用。方法一：Option ExplicitOption Base 1Private Sub Command1_Click()Dim i%, str1 As String, str() As String, str2 As String, length As Integerstr1 = InputBox("請輸入第一個字符串:", "info", "exam")length = Len(str1)ReDim str(length) 重新調(diào)整數(shù)組大小，目的是為排序起作用For i = 1 To length s

28、tr(i) = Mid(str1, i, 1) 給該數(shù)組賦值，換句話說，讓第一個字符串放入數(shù)組中NextCall sort(str, length) 調(diào)用函數(shù)對第一個字符串排序Print "第一個字符串排序后的結果："Call disp(str, length) 調(diào)用函數(shù)顯示第一個字符串排序后的結果str2 = InputBox("請輸入第二個字符串：", "info", "good")str1 = str1 + str2 length = Len(str1) + Len(str2)ReDim str(length

29、) 重新調(diào)整數(shù)組大小，目的是為插入后字符串排序起作用For i = 1 To length str(i) = Mid(str1, i, 1) 讓第一個字符串和第二個字符串放入數(shù)組中NextCall sort(str, length) 調(diào)用函數(shù)對插入后字符串排序Print "插入第二個字符串后排序后的結果:"Call disp(str, length) 調(diào)用函數(shù)顯示插入后字符串排序后的結果End SubSub sort(str() As String, length As Integer) Dim i%, j%, t As String For i = 1 To length

30、 - 1 For j = i + 1 To length If str(i) > str(j) Then t = str(i) str(i) = str(j) str(j) = t End If Next NextEnd SubSub disp(str() As String, length As Integer) Dim i% For i = 1 To length Print str(i); Next PrintEnd Sub方法二：Option ExplicitOption Base 1Private Sub Command1_Click()Dim i%, str1 As Stri

31、ng, str() As String, str2 As String, strinsert() As String, length As IntegerForm1.Clsstr1 = InputBox("請輸入第一個字符串:", "info", "exam")length = Len(str1)ReDim str(length)For i = 1 To length str(i) = Mid(str1, i, 1)NextCall sort(str, length)Print "第一個字符串排序后的結果："Cal

32、l disp(str, length)str2 = InputBox("請輸入第二個字符串：", "info", "good")length = Len(str1) + Len(str2) + 1ReDim strinsert(length)For i = 1 To Len(str1) strinsert(i) = str(i)NextFor i = 1 To Len(str2) Call insert(strinsert, Mid(str2, i, 1), Len(str1) + i) 調(diào)用函數(shù)，逐個字符插入NextPrint &q

33、uot;插入第二個字符串后排序后的結果:"Call disp(strinsert, length - 1)End SubSub sort(str() As String, length As Integer) Dim i%, j%, t As String For i = 1 To length - 1 For j = i + 1 To length If str(i) > str(j) Then t = str(i) str(i) = str(j) str(j) = t End If Next NextEnd SubSub disp(str() As String, leng

34、th As Integer) Dim i% For i = 1 To length Print str(i); Next PrintEnd SubSub insert(str() As String, zm As String, length%) Dim i%, j% For i = 1 To length - 1 If zm >= str(i) And zm < str(i + 1) Then 插入字符落在內(nèi)部情況 For j = length - 1 To i + 1 Step -1 str(j + 1) = str(j) Next str(i + 1) = zm Exit F

35、or End If If zm < str(1) Then 插入字符落在第一個位置 For j = length - 1 To 1 Step -1 str(j + 1) = str(j) Next str(1) = zm End If If zm >= str(length - 1) Then 插入字符落在最后一個位置 str(length) = zm End If NextEnd Sub小結：這道題有一定的難度，希望同學們在做題時應盡量考慮各種條件，要力爭考慮全面。如何通過該題獲取函數(shù)、數(shù)組等編程的經(jīng)驗，請同學們認真總結，這題值得大家多花些時間研究，你可以使用更好的方法。習題五一

36、、 選擇題1. A2. B3. A4. A5. A6. D7. B8. C9. B10. C11. C12. D13. C14. C15. C16. D17. A18. B19. D20. A21. A22. C23. C二、 填空題1SDI MDI2對象.屬性名屬性值3Form1.show4.選中5Additem removeitem6復選框7300008Aa=Inputbox(“請輸入學號”,”查詢系統(tǒng)”) MsgBox "沒有搜索到該生信息", vbOKOnly, "查詢結果"9. 0 1 2 3 10 Mdichild11. MDI12. 1 多

37、個13 Load load form114. Mdiform1.arrage 排列方式15可以訪問多個文檔窗體16MDIform三、應用題（略）習題六一、 填空題1 下拉式、彈出式2 &3 -4 Visible5 Enabled6 彈出快捷菜單二、 選擇題1A2. D3. B4. B5. B6. A7. C三、 簡答題（略）四、 應用題（略）習題七一、填空題1. Mousemove2. Mousedoen3. 14. CTRL5. 確定鼠標按下時所處的坐標位置6. Enter Tab Backspace7. 按鍵的Ascii碼8. 按下的物理鍵（本題有誤，keyascii 應改為key

38、code）9. Dragicon10. drag move二、選擇題1AC(本題題意不明確)2. B 3. C4. C5. D6. D7. B8. B9. C10. D三、 應用題（略）習題八一、 選擇題1D2. A3. B 4. D二、 閱讀下面程序，寫出程序的輸出結果1"welcome to visible basic",#2006-03-21#,#1899-12-30 15:03:30#"welcome to visible basic",#2006-03-21#,#1899-12-30 15:03:30#"welcome to visi

39、ble basic",#2006-03-21#,#1899-12-30 15:03:30#welcome to visible basic 06-3-21 15:03:30 welcome to visible basic 06-3-21 15:03:30 welcome to visible basic 06-3-21 15:03:302"第",1,"個數(shù)",2"第",2,"個數(shù)",3"第",3,"個數(shù)",5"第",4,"個數(shù)&quo

40、t;,7"第",5,"個數(shù)",11"第",6,"個數(shù)",13"第",7,"個數(shù)",17"第",8,"個數(shù)",19"第",9,"個數(shù)",23"第",10,"個數(shù)",29"第",11,"個數(shù)",31"第",12,"個數(shù)",37"第",13,"個數(shù)&quo

41、t;,41"第",14,"個數(shù)",43"第",15,"個數(shù)",47三、 簡答題（略）四、 編程題1Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, x As String, s#Open "a:datatest.dat" For Input As #1Line Input #1, xs = 1For i = 1 To Val(x) s = s * iNextClose #1Open " a:datatest.dat " For Append As #1Print #1, Chr(13) + Chr(10) & sClose #1End Sub2.Option ExplicitOption Base 1Public hh As StringPrivate Sub Command1_Click()Dim name