VB考点考题.ppt

  1. 1、本文档共78页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB考点考题

算法的程序实现 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

文档评论(0)

shuwkb + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档