VB教程课后参考答案.doc

VB程序设计教程课后参考答案习题1一、 填空题1 对象、事件驱动2 窗体、控件3 属性4 属性窗口、编程设置5 Vbp, Frm, bas6 对象名、下划线、事件名7 Form_click8 运行，设计，中断9 主窗口、窗体窗口、工程资源管理器窗口、属性窗口、工具箱窗口、窗体布局窗口、10 菜单、快捷键一、 选择题1C 2. A 3. B 4. B 5. D 6. B C 7. C 8.D9.C10. A三、判断题1 2. 3. 4. 5. 6. 习题2一、 选择题1. D 2. C 3. C 4.C 5. B6. C7. B8. C 9. C10. B11. A12. B13. B14. C 15. D 16. B17. A18. B19. A20. A21. B22. C 23. A24. B25. B26. A27. C28. A29. B30. B31. C32. B33. D 34.D35.C36.D二、 填空题1 Controlbox、Maxbutton、Minbutton2 Multiline TRUE3 *4 显示Form1窗体5 Passwordchar6 _change()7 Label1.FontSize=208 Cmd1.Enabled=false9 MaxButton10. AutoSize三、判断题1 2. 3. 4. 5. 6. 7. 8. 9. 10. 习题3一、 基础知识题（略）二、 选择题1B2. C3. A4. D5. B6. A7. D8. B9. B10. C11. D12. B13. C14. B15. A16. C17.A18. D19. A20. D21. A22. C23. C24. D25. D26. D27. B28. C29.D 30. C31.D 32. C 33. A34. B35. A 36. C37. C38. D39. C40. C41. D 42. A43. B44. D45. D46. A 47.D 48.D49.B 50.D三、 填空题1整型、长整型、单精度、双精度2(x mod 10)*10+x103Sin(3.14*15/180)+sqr(x+exp(3)/abs(x-y)-log(3*x)4(a+b)/(1/(c+5)-c*d/2)5X mod 5=0 or x mod 9=06 .False7. -4、3、3、3、4、48CDEF9GBCDEFA10TRUE11变量、属性12 , _ , :13 (略)14 “” 15Unicode, 一个，两个16Public、通用/模块、Dim、static、private17+ 、 &、 +18Now() 、 time()、 日期19Inputbox()、字符串、val()20. Msgbox21. YYY22. Select Case x，case Else23. 1224. 1025. x=0，x= 0 ThenPrint x1=; P + Q, x2=; P - QElsePrint x1=; P & + & Q & i, x2=; P & - & Q & iEnd IfEnd Sub2.Option ExplicitPrivate Sub Form_Click()Dim n, ss = 0For n = 1 To 99 Step 2 s = s + nNextPrint “S=”;sEnd Sub3.Option ExplicitPrivate Sub Form_Click()Dim n,SS = 0For n = 1 To 100 S = S + (-1)(n+1)/nNextPrint “S=”;SEnd Sub4.Option ExplicitPrivate Sub Form_Click()Dim P, S, n, mP = 1n = Val(InputBox(请输入自然数n)For m = 1 To nP = P * mS = S + PNextPrint S=; SEnd Sub5.Option ExplicitPrivate Sub Form_Click()Dim a, b, c, P, Sa = Val(InputBox(请输入三角形边长a)b = Val(InputBox(请输入三角形边长b)c = Val(InputBox(请输入三角形边长c)If (a + b) c And (b + c) a And (c + a) b And (a 0) And (b 0) And (c 0) Then P = (a + b + c) / 2 S = Sqr(P * (P - a) * (P - b) * (P - c) Print 三角形的面积是： & SElse Print 输入的边长不能构成三角形！End IfEnd Sub6.Option ExplicitPrivate Sub Form_Click()Dim m As IntegerFor m = 0 To 27 - m If 2 * m + 4 * (27 - m) = 78 Then MsgBox 鸡有 & m & 只 & 兔有 & 27 - m & 只 End If NextEnd Sub7.Option ExplicitPrivate Sub Form_Click()Dim h, n As Integerh = 10For n = 1 To 7h = h + 10 * 2 * 0.4 nNextPrint 共经过了; h; 米End Sub8. Private Sub Form_Click()Dim I as integerDim j as integerDim s as longs = 0For i = 1 To 10t = 1 For j = 1 To i t = t * j s = s + t Next jNext i Print sEnd Sub9.Option ExplicitPrivate Sub Form_Click()Dim a(1 To 7) As SingleDim i%, Max!, Min!, SFor i = 1 To 7 a(i) = Val(InputBox(请输入7个评委的打分) If a(i) = Max Then Max = a(i) If a(i) = Min Then Min = a(i) S = S + a(i)NextS = (S - Max - Min) / 5Print 运动员的成绩是：; S End Sub10. Private Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End SubOption ExplicitPrivate Sub Command1_Click()Dim x%, y%, z%x = Text1: y = Text2: z = Text3If x y Then t = x: x = y: y = tEnd IfIf y z Then t = y: y = z: z = tEnd IfIf x y Then t = x: x = y: y = tEnd IfText4 = x: Text5 = y: Text6 = z End Sub11Option ExplicitPrivate Sub Form_Click()Dim x As Integer, y As Integer, m As Integer, mul As Integer, t As Integerx = Val(Text1.Text)y = Val(Text2.Text)mul = x * yIf x y Then t = x: x = y: y = tm = x Mod yDo While m 0 x = y y = m m = x Mod yLoopText3.Text = yText4.Text = mul / yEnd Sub12.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, j As Integer, a As Integer, b As Integer, c As IntegerFor i = 100 To 999a = i 100b = (i 10) Mod 10c = i Mod 10 If i = a 3 + b 3 + c 3 Then Print i;End IfNextEnd Sub13.Option ExplicitPrivate Sub Form_Click()Dim s As SingleDim eps As SingleDim m, t As Integerm = 1s = 1t = 1Dom = m * (t + 1) * (t + 2)t = t + 2s = s + 1 / meps = 1 / mLoop Until eps 0 s = t + s t = t * 10 j = j - 1 Loop sn = sn + sNext iPrint sn=; snEnd Sub15.Option ExplicitPrivate Sub Command1_Click()Dim i, j As IntegerDim s As SingleFor i = 1 To 1000 s = 0 For j = 1 To i - 1 If i Mod j = 0 Then s = s + j End If Next j If i = s Then Print i Next iEnd Sub16Option ExplicitPrivate Sub Form_Click()Dim i, j As IntegerFor i = 1 To 100 For j = 1 To 100 If Abs(i - j) = (Int(Sqr(Abs(i - j) 2 And i + j = (Int(Sqr(i + j) 2 Then If i j Then Print i; 和; j End If Next jNext iEnd Sub17.Option ExplicitPrivate Sub Command1_Click()Dim i, j As IntegerFor i = 1 To 4 For j = 1 To 2 * i - 1 Print A; Next j PrintNext iFor i = 4 To 1 Step -1 For j = 2 * i - 1 To 1 Step -1 Print B; Next j PrintNext iEnd Sub18.Option ExplicitPrivate Sub Form_Click()dim i as integerdim j as integerFor i = 1 To 9 Print Tab(30 - 3 * i); For j = 1 To 2 * i - 1 Print i - Abs(i - j); Next j Print Next iEnd Sub19.Option ExplicitPrivate Sub Form_Click()Dim f0, f1, s, f As SingleDim i As Integerf0 = 1f1 = 1s = f0 + f1For i = 1 To 18 f = f0 + f1 s = s + f f0 = f1 f1 = fNext iPrint 前20项的和; sEnd Sub20.Option ExplicitPrivate Sub Form_Click()Dim i As IntegerDim j As IntegerDim f As BooleanDim s As Longs = 0For i = 2 To 500 f = True For j = 2 To i - 1 If i Mod j = 0 Then f = False Exit For End If Next j If f = True Then s = s + iNext