VisualBasic教材课后习题答案.doc

教材课后习题答案 第1章 一、选择题1234567BDBCBBD第2章 一、选择题12345678910BCBCBCAABB11121314BCAA二、填空题1. rem或 _ ：2. “” # #3. 5x2-3x-2sinA/34. 3214565. 300三、操作题1、程序段：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s As Long, c As Longx = Text1.Texty = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = 长方形的面积为 + Str(s)Label4.Caption = 长方形的周长为 + Str(c)End Sub3、程序段：Private Sub Command1_Click()Text1.Text = 第一End SubPrivate Sub Command2_Click()Text1.Text = 第二End Sub4、程序代码：Private Sub Text1_Change()Text1.MaxLength = 10End Sub5、程序代码：Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub第3章 一、选择题1234567DADBADB二、填空题1. False2. B2-4*a*c else三、操作题1从键盘输入三个值，判断它们能否构成三角形的三个边。如果能构成一个三角形，则计算三角形的面积。 Dim a As Integer, b As Long, c As Long, s As Single, p As Singlea = Val(InputBox(请输入一个值：)b = Val(InputBox(请输入一个值：)c = Val(InputBox(请输入一个值：)If (a + b c And a + c b And b + c a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c)Print a & , & b & , & c & 能构成一个三角形,它的面积为: & sEnd If2编写程序，任意输入一个整数，判定该整数奇偶性。 Dim n As Integern = Val(InputBox(请输入一个整数：)If n Mod 2 = 0 Then Print n & 是偶数Else Print n & 是奇数End If3求一元二次方程的a*x2+b*x+c=0的根。 Dim a As Integer, b As Integer, c As Integer, delta As Single, x1 As Single, x2 As Singlea = Val(InputBox(请输入一个整数：)b = Val(InputBox(请输入一个整数：)c = Val(InputBox(请输入一个整数：)delta = b 2 - 4 * a * cIf delta = 0 Then x1 = -b / (2 * a) Print 一元二次方程有两个相等的实根x1=x2= & x1Else If delta 0 Then x1 = (-b + Sqr(delta) / (2 * a) x2 = (-b - Sqr(delta) / (2 * a) Print 一元二次方程有两个不等的实根x1= & x1 & ,x2= & x2 Else x1 = (-b) / (2 * a) x2 = Sqr(-delta) / (2 * a) Print 一元二次方程有两个不等的虚根x1= & x1 & + & x2 & i,x2= & x1 & - & x2 & i End IfEnd If4. 任意输入三个数，输出最大数。Dim a As Integer, b As Integer, c As Integer, max As Integera = Val(InputBox(请输入一个整数：)b = Val(InputBox(请输入一个整数：)c = Val(InputBox(请输入一个整数：)max = aIf max b Then max = bEnd IfIf max c Then max = cEnd IfPrint 最大数是 & max5任意输入三个数，由大到小排序输出。Dim a As Integer, b As Integer, c As Integer, temp As Integera = Val(InputBox(请输入一个整数：)b = Val(InputBox(请输入一个整数：)c = Val(InputBox(请输入一个整数：)If a c Then Print a, b, cElse If a c Then Print a, c, b Else Print c, a, b End IfEnd If第4章 一、选择题12345678910ABACDBADBB111213141516DCDCBB二、填空题1. 92. 1 2 33. 100+100；x mod 5=04. 65. 5三、 编程题1键盘输入几个不同的数，将它们从大到小排序。 2设计程序，求出S=11+（1+2）+（1+2+3）+（1+2+3+4+N）的值。Dim i As Integer, sn As Long, s As Long, n As Integersn = 0s = 0n = InputBox()For i = 1 To n sn = sn + i s = s + snNextPrint s运行结果：若n为10，S为220。3输入X的值，求S=x-x3/3!+x5/5!- 的前20项的和值。Dim x As Single, i As Integer, s As Doublex = InputBox(输入X值：)s = xFor i = 1 To 19 p = 1 For j = 1 To 2 * i + 1 p = p * j Next s = s + (-1) (i) * x (2 * i + 1) / pNextPrint s运行结果：当X为2时，S为0.91(精确到小数点后两位)4勾股定理中3个数的关系是：a2+b2=c2。编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。Dim a As Integer, b As Integer, c As Integer, k As IntegerFor a = 1 To 30 For b = 1 To 30 For c = 1 To 30 If a 2 + b 2 = c 2 Then k = k + 1: Print a, b, c Next NextNextPrint k运行结果：225输出1000以内的完全数。完全数就是它的各个约数之和等于该数本身（如：6=1+2+3，6是完全数）。Dim i As Integer, j As Integer, a As IntegerFor i = 2 To 1000 a = 0 For j = 1 To i - 1 If i Mod j = 0 Then a = a + j 判断j是否能整除i，如果能，则a增加j Next j If a = i Then Print i 判断i是否是完全数，如果是，则输出iNext i 运行结果：6284966编程求出所有的水仙花数。水仙花数就是一个三位数，其各位数字立方和等于该数。（如153=13+53+33）。Dim i As Integer, s As IntegerDim a As Integer, b As Integer, c As IntegerPrint 100到999所有水仙花数：;For i = 100 To 999 a = i 100 取百位数 b = i 10 Mod 10 或 b = i Mod 100 10 取十位数 c = i Mod 10 取个位数 s = a 3 + b 3 + c 3 水仙花数的判断依据 If s = i Then Print i;Next i运行结果：100到999所有水仙花数：153 370 371 4077编写程序，输出100300间的所有素数。 Dim i As Integer, j As Integer, c As Integer, k As IntegerFor i = 100 To 300 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next If i = j Then Print i; k = k + 1 s = s + i If k Mod 10 = 0 Then Print End IfNextPrintPrint 100300间总共有 + Str(k) + 个素数， + 和值为 + Str(s)运行结果：8我国现有人口为13亿。设年增长率为1，编写程序，计算多少年后增加到20亿。Dim i As Long, s As SingleDim n As Single, m As Singlen = InputBox(请输入增长率：)i = 0s = 13m = sDo While m 0.000001 i = i + 2 flag = -flag n = 1 / i pi = pi + flag * n LoopPrint pi * 4运行结果：3.14159465358569第5章一、选择题12345678910CDDAABCBDB111213BCB二、填空题1. 242. 73. a=30 b=704. “123456789”三、编程题1 编写一个求3个数中最大值Max和最小值Min的过程，然后用这个过程分别求3个数、5个数、7个数中的最大值和最小值。Dim a()Sub maxmin(b() 过程Dim max, min, kmax = b(1)min = b(1)For k = 1 To UBound(b)If max b(k) Thenmin = b(k)End IfEnd IfNextPrint 最大值=; max, 最小值=; minEnd SubPrivate Sub Command1_Click() 主程序n = InputBox(n=)ReDim a(n)For i = 1 To na(i) = Val(InputBox(a=)Print a(i),NextPrintCall maxmin(a()End Sub2编写程序，求SA!+B!+C!，阶乘的计算分别用Sub过程和Function过程两种方法来实现。Public Sub fact2(m, ss)Dim p, kp = 1For k = 1 To mp = p * kNextss = ss + pEnd SubPublic Function fact1(n)Dim p, kp = 1For k = 1 To np = p * kNextfact1 = pEnd FunctionPrivate Sub Command1_Click()Dim s, a, b, ca = Val(InputBox(a=)b = Val(InputBox(b=)c = Val(InputBox(c=)s = fact1(a) + fact1(b) + fact1(c) 函数Print sss = 0Call fact2(a, ss) 过程Call fact2