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

1、VB程序设计课后习题答案科学出版社同步练习1二、选择题0105 CADAB0610 ACDAB1115 CBDBB同步练习2二、选择题0105 ABDCA0610 CACBC1115 DADAD1620 BDBBB三、填空题1 可视2 LEFT、TOP、WIDTH、HEIGHT3 按字母顺序4 查看代码5 工具、编辑器6 FORM窗体、FONT7 MULTILINE8 在运行时设计是无效的9 工程、工程属性、通用、FORM1.SHOW10TABINDEX、0同步练习3二、选择题0105 BCADB0610 ADBBC1115 DBCBA1620 BAABB三、填空题1 整型、长整型、单精度型、

2、双精度型2 SIN(30*3.14/180)+SQR(X+EXP(3)/ABS(X-Y)-LOG(3*X)3 164、今天是：3-194 FALSE5 -4、3、-3、3、-4、46 CDEF7 (X MOD 10)*10+X108 (3520)*20=20 ( 35 20 )* 20 = 209 X MOD 3=0 OR X MOD 5=01027.6、8.2、8、1、100、397、TRUE、FALSE同步练习4一、选择题0105 DBCAD0610 CBBAB1115 D25BAC1620 CBACB2125 DAABC二、填空题1 正确性、有穷性、可行性、有0个或多个输入、有1个或多个

3、输出2 1 2 33 X=74 X k Theny = y & Str(n)End IfNext nMsgBox y, , “显示质数End Sub3 编写程序，计算1+2+100的值。Private Sub Form_Click()Dim i%, s%s = 0For i = 1 To 100 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

4、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.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!D

5、o 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 + 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

6、- 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以内满足上述关系的整数组合，例如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 如果

7、一个三位数3个数字的立方和等于该数本身，称为水仙花数。例如153就是一个水仙花数：13+53+33=153。编写程序，显示所有三位的水仙花数。Private Sub Form_Click()Dim x%, a%, b%, 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

8、元的部分，纳税4%；（4）当收入达5000元或超过时，将4%改为5%。编程实现上述操作。Private Sub Form_Click()Dim x%, y!x = Val(InputBox(请输入收入额：)Select Case 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(请输入上网小时

9、数)Select Case tCase Is 200 Then s = 200 Case Is = 60 s = 4 * t If s 200 Then s = 200End SelectPrint 上网费用为; s; 元。End Sub11编写一个程序，当输入月份时，输出季节的名称。例如，当输入月份为12、1和2时，输出“冬季”；当输入月份为3、4、5时，输出“春季”；当输入月份为6、7、8时，输出“夏季”；当输入月份为9、10、11时，输出“秋季”；当输入其他数字时，输出“输入错误，请重新输入！”。Private Sub Form_Click()Dim m%m = Val(InputBox

10、(请输入月份：)Select Case m Case 12, 1, 2 Print 冬季 Case 3, 4, 5 Print 春季 Case 6, 7, 8 Print 夏季 Case 9, 10, 11 Print 秋季 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 -

11、 5End SelectPrint fEnd Sub同步练习5一、选择题0105 DCACD0610 DBCDC1115 BADAD二、填空题1 NAME、INDEX2 PRESERVE3 VARIANT4 N(2)=2 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

12、 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 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 设有如下

13、两组数据。编写一个程序，把两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。 A 2 8 7 6 4 28 70 25 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

14、 To 7 Print c(i);Next iEnd Sub3 有一个nm的矩阵，其各元素的值由随机函数生成（范围为50150）。编写程序，找出其中最大的元素所在的行和列，并输出其值及行号和列号。Option Base 1Private 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 Pr

15、int 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(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）有多少个数并输出。Priv

16、ate 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

17、采用控件数组编写一个简单的计算器。要求该计算器能够实现简单的加、减、乘、除运算。Private Sub Command1_Click(Index As Integer)Select Case Index Case 0 Text3 = Val(Text1) + Val(Text2) Case 1 Text3 = Val(Text1) - Val(Text2) Case 2 Text3 = Val(Text1) * Val(Text2) Case 3 Text3 = Val(Text1) / Val(Text2)End SelectEnd Sub7 编程显示Fibonacci数列的前40项。该数列

18、有如下特点：其第1、2项均为1，从第3个数开始，该数是其前两个数之和，公式为：F(n)= F(n-1)+ F(n-2)Private Sub Form_Click()Dim f(39)f(0) = 1: f(1) = 1For i = 2 To 39 f(i) = f(i - 1) + f(i - 2)Next iFor i = 0 To 39Print f(i),If (i + 1) Mod 5 = 0 Then PrintNext iEnd Sub8 从键盘上任意输入10个数，要求分别用冒泡法、选择法降序排列。选择法降序：Private Sub Form_Click()Dim a(1 To

19、 10) As IntegerFor i = 1 To 10 a(i) = Val(InputBox(输入A( & i & ) 的值)Next iPrint 排序前数据:For i = 1 To 10 Print a(i); If i Mod 5 = 0 Then Print 每行打印5个元素Next iFor i = 1 To 9 p = i For j = i + 1 To 10 If a(p) a(j) Then p = j Next j t = a(i): a(i) = a(p): a(p) = t 交换数据Next iPrint 排序后数据:For i = 1 To 10 Print

20、 a(i); If i Mod 5 = 0 Then PrintNext iEnd Sub冒泡法降序Private Sub Form_Click()Dim a(1 To 10) As IntegerFor i = 1 To 10 a(i) = Val(InputBox(输入A( & i & ) 的值)Next iPrint 排序前数据:For i = 1 To 10 Print a(i); If i Mod 5 = 0 Then Print 每行打印5个元素Next iFor i = 1 To 9 For j = 1 To 10 - i If a(j) a(j + 1) Then t = a(

21、j): a(j) = a(j + 1): a(j + 1) = t End If Next jNext iPrint 排序后数据:For i = 1 To 10 Print a(i); If i Mod 5 = 0 Then PrintNext iEnd Sub同步练习6一、选择题0105 BDBAB0610 DBDCC1115 ABCBA1618 CDD二、填空题1 子、函数2 实际、形式3 存储单元4 MYF(A%,B%() AS BOOLEAN5 按值传递、按地址传递6 LBOUND()、UBOUND()7 局部8 通用、所有过程9 2 5 910241121230、70135同步练习7

22、一、选择题0103 BCA0610 CDBBD1115 CAD(AD)A1620 CADBD2125 DAAAB2628 CAA二、填空题1 LOAD、UNLOAD2 SHOW、HIDE3 属性、方法、事件4 工程属性、工程、工程属性6 _KEYPRESS、COMBO1.LIST(I)、ADDITEM7 0、LIST1.LISTINDEX、LIST1.TEXT8 1000、TRUE、TIME()9 AA10下拉式组合框、简单组合框、下拉式列表框同步练习8一、选择题0105 DCCDA0610 CDBBA1115 BDBBC1619 CAAA二、填空题1 不会、不会2 SCALEHEIGHT、S

23、CALEWIDTH3 (300,-150)4 右、上5 默认6 0157 B8 0-29 逆10DRAWWIDTH11右、上12MOVE13PICTURE1.PICTURE=LOADPICTURE(“”)14坐标原点、坐标度量单位、坐标轴的长度与方向15VB程序设计、VBPROGRAMMING同步练习9一、选择题0105 BADCB0610 BBDAB二、填空题1 驱动器列表框、目录列表框、文件列表框2 CHANGE3 4 NAME “D:OLD.DOC” AS “C:NEW.DOC”5 DIR1.PATH=DRIVE1.DRIVE 6 “D:TEXT.DOC”,”E:”7 EOF8 FOR INPUTNOT EOF(1)9 FOR INPUTFOR OUTPUT AS #2NOT EOF(1)INPUT #1,STR1KILL “C:OLD.DAT”10PATTERN11空12字节