VB考点考题教程.ppt

算法的程序实现 8 ?用解析法解决问题 解析法是指：找出表示问题的前提条件与 结果之间关系的数学表达式，通过表达式 的计算来实现问题的求解。 1、教室里安装了不少日光灯管。假设每个 教室有40W灯管18根，每个整流器5W，每度 电0.55元，每天用电12小时，每个教室每天 的电费要多少钱？编程求解此问题最合理的 算法是（ ） A、 顺序查找法 B、 解析法 C、 递归算法 D、 穷举法（枚举法） B 找出表示问题的前提条件与 结果之间关系的数学表达式 2、一玻璃球从高空做自由落体运动，在到 达地面时速度为98m/s，请问：该玻璃球从 高空下落到地面用了多少时间？编程求解 此问题最合算的算法是（ ） A、 穷举法（枚举法） B、 顺序查找法 C、 递归算法 D、 解析法 D ?用穷举法（枚举法）解决问题 穷举法也叫枚举法、列举法，它将求解对象一一列举出来，然后逐个判断有哪些是符合问题所要求的条件，从而得到问题的解答 如：“鸡兔同笼问题” “百鸡百钱问题”等 A 1、判断某自然数m是不是素数的算法基本思想 是：把m作为被除数，将2到m-1中的自然数作为 被除数，逐一进行相除，如果除不尽，m就是素 数，否则m就不是素数。这种判定素数的算法属 于（ ） A、 枚举算法 B、 解析算法 C、 递归算法 D、 排序算法 2、穷举法的适用范围是（ ） A、 一切问题 B、 解的个数极多的问题 C、 解的个数有限且可一一列举 D、 不适合设计算法 问题：铁路托运行李时，根据行李的重量按下列标准收费：若不超过50千克(包括50千克)按每千克0.35元收费；若超过50千克，超过部分则按每千克0.5元收费。右边程序的作用是输入行李的重量，计算并输出托运费用。 ①解决问题的方法有解析法、穷举法、递归法等，本题选用的___________ Private Sub Command1_Click() Dim m as Single Dim s as Single m = InputBox(请输入行李重量) If Then S=m * 0.35 Else S =_________________________ End If Print “行李费=”；___________ End Sub m=50 50* 0.35 + (m - 50) *0.5 解析法 S 铁路托运行李，是根据行李的重量按下 列标准收费：若不超过 50 千克，按每 千克 0.35元收费，若超过 50 千克，超 过部分则按每千克 0.5 元收费，行李重 量不得超过 150 千克。 设计一个 VB 程序，通过文本框Text1输 入托运行李的重量，计算并通过文本框 Text2输出托运行李的费用，若超过150 千克，提示“行李超重!”。 设 x 表示行李重量，y 表示托运费。通 过分析可得出该问题的数学表达式为： Dim x as Double x=Val(Text1.Text) If x150 Then Text2.Text=行李超重! Else If 　______　 　 Then y=50*0.35+(x-50)*0.5 Else 　__________　　　　　　　 End If Text2.Text=__________ End If X50 And x=150 y=0.35*x Str(y) 将以下程序段补充完整。 百钱买百鸡问题： 用100元钱买100只鸡，公鸡每只5元，母鸡每只3元， 小鸡1元3只，要求每种都买，问能买公鸡、母鸡、小 鸡各买几只？ 算法分析： 设x为公鸡数，取值从1只到20只，（假设全买公鸡） y为母鸡的数，取值从1只到33只， z为小鸡的数，取值为1只到100只 然后判断是否满足①5元*x+3元*y+z/3=100元， ②x+y+z=100只 输出每次符合条件的x,y,z即为所求。程序段如右下： Private Sub Command1_Click() Dim x, y,z as Integer For x = 1 To 20 For y = 1 To 33 For z = 1 To 100 If ___and________ Then print x;y;z End if Next z f Next x End Sub