VB程序设计课后习题答案科学出版社.docx

1、VB程序设计课后习题答案科学出版社VB程序设计课后习题答案(科学出版社)D s = s + iNext iPrint 1+2+3+100=; sEnd Sub4 百元买百鸡。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。(采用穷举法)假设母鸡、公鸡、小鸡各为x、y、z，列出方程为： x+y+z=100 3x+2y+0.5z = 100Private Sub Form_Click()Dim x%, y%, z%Print 母鸡, 公鸡, 小鸡For x = 0 To 33 For y = 0 To 50 z = 100 - x - y If 3 * x + 2 * y + 0.

2、5 * z = 100 Then Print x, y, z End If Next yNext xEnd Sub5 给定三角形的3条边的边长，计算三角形的面积。编写程序，首选判断的3条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。Private Sub Form_Click()Dim a%, b%, c%, s!, p!Do Until a = -1 Or b = -1 Or c = -1a = Val(InputBox(a=)b = Val(InputBox(b=)c = Val(InputBox(c=)If a + b c And a

3、+ c b And b + c a Thenp = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c) Print s=; sEnd IfLoopEnd Sub6 编程打印如下图所示的数字金字塔。Private Sub Form_Click()Dim i%, j%For i = 1 To 8 Print Tab(9 - i); For j = 1 To 2 * i - 1 Print Trim(Str(i); Next j PrintNext iEnd Sub7 勾股定理中3个数的关系是：a*a+b*b=c*c。编写程序，输出30以内

4、满足上述关系的整数组合，例如3、4、5就是一个整数组合。Private Sub Form_Click()Dim i%, j%, k%For i = 1 To 30 For j = 1 To 30 For k = 1 To 30 If i 2 + j 2 = k 2 Then Print i, j, k End If Next k Next jNext iEnd Sub8 如果一个三位数3个数字的立方和等于该数本身，称为水仙花数。例如153就是一个水仙花数：13+53+33=153。编写程序，显示所有三位的水仙花数。Private Sub Form_Click()Dim x%, a%, b%,

5、c%For x = 100 To 999 a = x 100 b = (x Mod 100) 10 c = x Mod 10 If a 3 + b 3 + c 3 = x Then Print x End IfNext xEnd Sub9 税务部门征收所得税，规定如下：（1）收入200元以内，免征；（2）收入在200400元内，超过200元的部分纳税3%；（3）收入超过400元的部分，纳税4%；（4）当收入达5000元或超过时，将4%改为5%。编程实现上述操作。Private Sub Form_Click()Dim x%, y!x = Val(InputBox(请输入收入额：)Select C

6、ase xCase Is = 5000 y = (x - 400) * 0.05End SelectPrint y=; yEnd Sub10编写一程序根据上网时间计算上网费用，计算方法如下： 50元 （=60小时）同时为了鼓励多上网，每月收费最多不超过200元。Private Sub Form_Click()Dim t!, s!t = Val(InputBox(请输入上网小时数)Select Case tCase Is 200 Then s = 200 Case Is = 60 s = 4 * t If s 200 Then s = 200End SelectPrint 上网费用为; s; 元

7、。End Sub11编写一个程序，当输入月份时，输出季节的名称。例如，当输入月份为12、1和2时，输出“冬季”；当输入月份为3、4、5时，输出“春季”；当输入月份为6、7、8时，输出“夏季”；当输入月份为9、10、11时，输出“秋季”；当输入其他数字时，输出“输入错误，请重新输入！”。Private Sub Form_Click()Dim m%m = Val(InputBox(请输入月份：)Select Case m Case 12, 1, 2 Print 冬季 Case 3, 4, 5 Print 春季 Case 6, 7, 8 Print 夏季 Case 9, 10, 11 Print 秋

8、季 Case Else Print 输入错误，请重新输入！End SelectEnd Sub12分别利用If语句、Select Case语句，设计计算下列分段函数的程序。 2x-1 （x0）Private Sub Form_Click()Dim x!, f!x = Val(InputBox(请输入x的值：)Select Case x Case Is 0 f = 7 * x - 5End SelectPrint fEnd Sub同步练习5一、选择题0105 DCACD0610 DBCDC1115 BADAD二、填空题1 NAME、INDEX2 PRESERVE3 VARIANT4 N(2)=2

9、N(3)=35 1 2 3 1 4 16 1 2 3 2 4 67 MAX、MAX=ARR1(I)三、编程题1 从键盘上输入10整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即第1个元素与第10个元素互换，第2个元素与第9个元素互换，第5个元素与第6个元素互换。输出数组为原来各元素的值和对换后各元素的值。Private Sub Form_Click()Dim a(1 To 10)For i = 1 To 10 a(i) = Val(InputBox(请输入第 & i & 个数)Next iPrint 原来各元素的值:For i = 1 To 10 Print a(i); If

10、 i Mod 5 = 0 Then PrintNext iFor i = 1 To 5 temp = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) = tempNext iPrint 对换后各元素的值For i = 1 To 10 Print a(i); If i Mod 5 = 0 Then PrintNext iEnd Sub2 设有如下两组数据。编写一个程序，把两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。 A 2 8 7 6 4 28 70 25

11、 B 79 27 32 41 57 66 78 80Private Sub Form_Click()Dim a, b, c(7)a = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)For i = 0 To 7 c(i) = a(i) + b(i)Next iFor i = 0 To 7 Print c(i);Next iEnd Sub3 有一个nm的矩阵，其各元素的值由随机函数生成（范围为50150）。编写程序，找出其中最大的元素所在的行和列，并输出其值及行号和列号。Option Base 1

12、Private Sub Form_Click()Dim max%, row%, col%Dim a() As Integern = Val(InputBox(请输入矩阵的行：)m = Val(InputBox(请输入矩阵的列：)ReDim a(n, m)For i = 1 To n For j = 1 To m a(i, j) = Int(101 * Rnd) + 50 Print a(i, j), If j = m Then Print Next jNext imax = a(1, 1): row = 1: col = 1For i = 1 To n For j = 1 To m If a(

13、i, j) max Then max = a(i, j) row = i col = j End If Next jNext iPrint 最大元素是：; maxPrint 在第 & row & 行， & 第 & col & 列End Sub4 编写程序，产生50个互不相同的1099的随机整数，统计各数值段（1019，2029，.8089，9099）有多少个数并输出。Private Sub Form_Click()Dim a(1 To 50) As Integer, i As IntegerDim b(1 To 9) As Integer, k As IntegerFor i = 1 To 50 a(i) = Int(Rnd * 90 + 10) Print a(i); If i Mod 10 = 0 Then Print k = Int(a(i) / 10) b(k) = b(k) + 1Next iPrintFor i = 1 To 9 Print (i * 10) & & (i * 10 + 9) & 的学生人数： & b(i)Next iEnd Sub5 采用控件数组编写一个简单的计算