VB程序设计课后习题答案科学出版社1Word文档下载推荐.docx

1、二、填空题1 正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2 1 2 33 X=74 X k Theny = y & Str（n）End IfNext nMsgBox y, , “显示质数3 编写程序，计算1+2+100的值。Dim i%, s%s = 0For i = 1 To 100 s = s + iPrint 1+2+3+100=4 百元买百鸡。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。（采用穷举法）假设母鸡、公鸡、小鸡各为x、y、z，列出方程为： x+y+z=100 3x+2y+0.5z = 100Dim x%, y%, z%母鸡, 公鸡小鸡For

2、 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 x5 给定三角形的3条边的边长，计算三角形的面积。编写程序，首选判断的3条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。Dim a%, b%, c%, s!, p!Do Until a = -1 Or b = -1 Or c = -1a = Val（InputBox（a=b = Val（InputBox（b=c =

3、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=Loop6 编程打印如下图所示的数字金字塔。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 Print7 勾股定理中3个数的关系是：a*a+b*b=c*c。编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是

4、一个整数组合。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 k8 如果一个三位数3个数字的立方和等于该数本身，称为水仙花数。例如153就是一个水仙花数：13+53+33=153。编写程序，显示所有三位的水仙花数。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 The

5、n Print x9 税务部门征收所得税，规定如下：（1）收入200元以内，免征；（2）收入在200400元内，超过200元的部分纳税3%；（3）收入超过400元的部分，纳税4%；（4）当收入达5000元或超过时，将4%改为5%。编程实现上述操作。Dim x%, y!x = Val（InputBox（请输入收入额：Select Case xCase Is = 5000 y = （x - 400） * 0.05End Selecty= y10编写一程序根据上网时间计算上网费用，计算方法如下： 50元 （=60小时）同时为了鼓励多上网，每月收费最多不超过200元。Dim t!, s!t = Val

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

7、se 12, 1, 2冬季 Case 3, 4, 5春季 Case 6, 7, 8夏季 Case 9, 10, 11秋季 Case Else输入错误，请重新输入！12分别利用If语句、Select Case语句，设计计算下列分段函数的程序。 2x-1 （xDim x!, f!请输入x的值： Case Is max Then max = a（i, j） row = i col = j最大元素是： max在第 row &行，第 col &列4 编写程序，产生50个互不相同的1099的随机整数，统计各数值段（1019，2029，.8089，9099）有多少个数并输出。Dim a（1 To 50） A

8、s Integer, i As IntegerDim b（1 To 9） As Integer, k As IntegerFor i = 1 To 50 a（i） = Int（Rnd * 90 + 10） If i Mod 10 = 0 Then Print k = Int（a（i） / 10） b（k） = b（k） + 1PrintFor i = 1 To 9 Print （i * 10） & （i * 10 + 9） &的学生人数： b（i）5 采用控件数组编写一个简单的计算器。要求该计算器能够实现简单的加、减、乘、除运算。Private Sub Command1_Click（Index

9、 As Integer）Select Case Index 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）7 编程显示Fibonacci数列的前40项。该数列有如下特点：其第1、2项均为1，从第3个数开始，该数是其前两个数之和，公式为：F（n）= F（n-1）+ F（n-2）Dim f（39）f（0） = 1: f（1） = 1For i = 2

10、To 39 f（i） = f（i - 1） + f（i - 2）For i = 0 To 39Print f（i）,If （i + 1） Mod 5 = 0 Then Print8 从键盘上任意输入10个数，要求分别用冒泡法、选择法降序排列。选择法降序：Dim a（1 To 10） As Integer输入A（） 的值排序前数据: If i Mod 5 = 0 Then Print 每行打印5个元素 p = i For j = i + 1 To 10 If a（p） a（j） Then p = j t = a（i）: a（i） = a（p）: a（p） = t 交换数据排序后数据:冒泡法降序

11、For j = 1 To 10 - i If a（j） a（j + 1） Then t = a（j）: a（j） = a（j + 1）: a（j + 1） = t同步练习60105 BDBAB0610 DBDCC1115 ABCBA1618 CDD1 子、函数2 实际、形式3 存储单元4 MYF（A%,B%（） AS BOOLEAN5 按值传递、按地址传递6 LBOUND（）、UBOUND（）7 局部8 通用、所有过程9 2 5 910241121230、70135同步练习70103 BCA0610 CDBBD1115 CAD（AD）A1620 CADBD2125 DAAAB2628 CAA1

12、 LOAD、UNLOAD2 SHOW、HIDE3 属性、方法、事件4 工程属性、工程、工程属性6 _KEYPRESS、COMBO1.LIST（I）、ADDITEM7 0、LIST1.LISTINDEX、LIST1.TEXT8 1000、TRUE、TIME（）9 AA10下拉式组合框、简单组合框、下拉式列表框同步练习80105 DCCDA0610 CDBBA1115 BDBBC1619 CAAA1 不会、不会2 SCALEHEIGHT、SCALEWIDTH3 （300,-150）4 右、上5 默认6 0157 B8 0-29 逆10DRAWWIDTH11右、上12MOVE13PICTURE1.P

13、ICTURE=LOADPICTURE（“”）14坐标原点、坐标度量单位、坐标轴的长度与方向15VB程序设计、VBPROGRAMMING同步练习90105 BADCB0610 BBDAB1 驱动器列表框、目录列表框、文件列表框2 CHANGE3 FILE1.PATH=DIR1.PATH4 NAME “D:OLD.DOC” AS “C:NEW.DOC”5 DIR1.PATH=DRIVE1.DRIVE FILE1.PATH=DIR1.PATH6 FILECOPY “D:TEXT.DOC”,”E:”7 EOF8 FOR INPUTNOT EOF（1）9 FOR INPUTFOR OUTPUT AS #2INPUT #1,STR1KILL “C:OLD.DAT”10PATTERN11空12字节