大学程序设计基础VisualBasic教材课后习题答案

1、学习必备欢迎下载学习必备欢迎下载第 1 章一、选择题教材课后习题答案1234567BDBCBBD第 2 章一、选择题12345678910BCBCCBCAAB111213141516ABBCAA二、填空题1. rem 或_：2. “”# #3. 4. 3214565. 300三、操作题1、程序段：Private Sub Command1_Click() Dim x As Integer, y As Integer Dim s As Long, c As Longx = Text1.Text y = Text2.Text s = x * yc = (x + y) * 2Label3.Captio

2、nLabel4.CaptionEnd 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 = 0 Text1.SelLength =End Sub第 3 章一、选择题11D2A3D4B5A6D7B二、填空题Fals

3、eB2-4*a*celse三、操作题算三角形的面积。Dim a As Integer, b As Long, c As Long, s As Single, p As Single a = Val(InputBox(b = Val(InputBox(c = Val(InputBox(If (a + b c And a + c b And b + c a) Then p = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c)Print a & , & b & , & c & 能构成一个三角形,它的面积为: & s End IfDim n

4、As Integern = Val(InputBox(请输入一个整数：) If n Mod 2 = 0 ThenPrint n & 是偶数 ElsePrint n & 是奇数 End If求一元二次方程的a*x2+b*x+c=0Dim 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 Thenx1 = -

5、b / (2 * a)Print 一元二次方程有两个相等的实根x1=x2= & ElseIf delta 0 Thenx1 = (-b + Sqr(delta) / (2 * x2 = (-b - Sqr(delta) / (2 * Print 一元二次方程有两个不等的实根x1= & x1 & ,x2= & x2 Elsex1 = (-b) / (2 * a)x2 = Sqr(-delta) / (2 * a)Printx1=&x1&x2&i,x2=&x1& x2 & iEnd If End If任意输入三个数，输出最大数。Dim a As Integer, b As Integer, c A

6、s Integer, max As Integer a = Val(InputBox(b = Val(InputBox(请输入一个整数：) c = Val(InputBox(请输入一个整数：) max = aIf max b Then max = bEnd IfIf max c Then max = cEnd IfPrint 最大数是 & max任意输入三个数，由大到小排序输出。Dim a As Integer, b As Integer, c As Integer, temp As Integer a = Val(InputBox(b = Val(InputBox(c = Val(Input

7、Box(If a c Then Print a, b, ElseIf a c Then Print a, c, ElsePrint c, a, b End IfEnd If4一、选择题12345678910ABACDBADBB111213141516DCDCBB二、填空题1. 92. 1 2 33. 74. 100+100；x mod 5=05. 66. 57. *2515 30 7516 32 80三 、 编 程 题1键盘输入几个不同的数，将它们从大到小排序。Dim i%, j%, k%, s(10) As IntegerFor i = 1 To 10s(i) = Int(Rnd() * 1

8、00) NextFor i = 1 To 9For j = i + 1 To 10If s(i) s(j) k = s(i)s(i) = s(j) = kEnd If NextNextFor i = 1 To 10 Print s(i);Next2设计程序，求出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 + snNext Print s运行结果：若n10，S2

9、20。3输入 X的值，求 S=x-x3/3!+x5/5!-的前20项的和值。Dim x As Single, i As Integer, s As x = InputBox(输入Xs = xFor i = 1 To 19p = 1For j = 1 To 2 * i + 1 p = p * jNexts = s + (-1) (i) * x (2 * i + 1) / pNextPrint s运行结果：当X2S0.91330、5Dim a As Integer, b As Integer, c As Integer, k As Integer For a = 1 To 30For b = 1

10、To 30For c = 1 To 30If a 2 + b 2 = c 2 Then k = k + 1: Print a, b, c NextNext Next Print k运行结果：22输出1000以内的完全数。完全数就是它的各个约数之和等于该数本身（6=1+2+6是完全数。Dim i As Integer, j As Integer, a As Integer For i = 2 To 1000a = 0For j = 1 To i - 1If i Mod j = 0 Then a = a + jj 是否能整除i，如果能，则a 增加Next jIf a = i Then Print

11、i 判断 i 是否是完全数，如果是，则输出i Next i运行结果：628496153=1+53+3。Dim i As Integer, s As IntegerDim a As Integer, b As Integer, c As Integer Print 100999For i = 100 To 999a = i 100b = i 10 Mod 10 或 b = i Mod100 10取十位数c = i Mod 10s = a 3 + b 3 + c 3 水仙花数的判断依据If s = i Then Print i;Next i运行结果：100999370 371 407100300D

12、im i As Integer, j As Integer, c As Integer, k As Integer For i = 100 To 300For j = 2 To i - 1If i Mod j = 0 Then Exit For NextIf i = j Then Print i;k = k + 1 s = s + iIf k Mod 10 = 0 Then Print End IfNext PrintPrint 100300 间总共有 + Str(k) + 个素数， + 和值为 + Str(s)运行结果：我国现有人口为13 亿。设年增长率为1，编写程序，计算多少年后增加到20

13、亿。Dim i As Long, s As Single Dim n As Single, m As Single n = InputBox(i = 0s = 13m = sDo While m 0.000001 i = i + 2flag = n = 1 / ipi = pi + flag * nLoopPrint pi * 4运行结果：3.14159465358569第 5 章一、选择题学习必备欢迎下载12345678910DCDDBAABCB11D12B13B14C15B二、填空题1.242.73.a=30b=704.“123456789”三、编程题3MaxMin35 个数、7 个数中的

14、最大值和最小值。Dim a()Sub maxmin(b()过程Dim max, min, max = b(1)min = b(1)For k = 1 To UBound(b)If max b(k) Then min = b(k)End If End If NextPrint 最大值=; max, 最小值=; min End SubPrivate Sub Command1_Click()主程序n = InputBox(n=) ReDim a(n)For i = 1 To na(i) = Val(InputBox(a=) Print a(i),Next PrintCall maxmin(a() E

15、nd Sub编写程序，求SA!+B!+C!，阶乘的计算分别用Sub 过程和Function现。Public Sub fact2(m, ss)Dim p, k p = 1For k = 1 To m p = p * kNextss = ss + p End Sub学习必备欢迎下载Public Function fact1(n)Dim p, k p = 1For k = 1 To p = p * kNext fact1 = End FunctionPrivate Sub Command1_Click()Dim s, a, b, ca = Val(InputBox(a=) b = Val(InputBox(b=) c = Val(InputBox(c=)s = fact1