2010年会考算法与程序设计总复习.ppt

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

六种典型算法 4、2010年冬奥会开幕式中各代表团的入场顺序是:希腊排在第一位,东道主加拿大排在最后一位,其余的80个代表团入场顺序按国家或地区名称依次排列.下列VB程序实现如下功能,单击“开始”命令按钮Command1后,在列表框List1中按入场顺序显示所有代表团的名称。请回答下列问题: 虚线框内所采用的程序段排序算法名称是( ) 在划线处填入合适的代码: Dim a(0 to 81) As String Dim a As Integer ‘Form_load过程用于将82个参赛代表团名称存放在数组a中 Private Sub Form_load() n=80 a(0)=“Greece” a(n+1)=“Canada” ‘另外80个代表团名称存放在a(1)至a(n)中,代码略 End Sub Private Sub Command1_Click() Dim s As ① Dim i As Integer,jAs Integer,k As Integer For i=1 to n-1 k=i For j=i+1 to n If a(j)a(k) then k=j Next j s=a(i):a(i)=a(k):a(k)=s Next i List1.Clear 知识点4:选择排序 For i=0 to ② List1.AddItem a(i) Next I End Sub 六种典型算法 5.1某学校图书信息管理系统中有10万条图书资料记录(已经索引排序),假设从中取出一条记录并与待查找项进行比较所花时间为10毫秒,则用对分法在该系统中查找任意一本指定图书最多花时间约为 : A 100万毫秒 B 50万毫秒 C 10毫秒 D 170毫秒 知识点5:对分查找 六种典型算法 5.2 超市进货时会将每个商品的条形码和价格输入计算机,并对所有商品按照条形码排序(从小到大),顾客付款时只要把条形码输入电脑,电脑即可根据条形码找到该商品并显示对应的价格。下列程序的功能是根据条形码查找对应商品的价格,所有商品的条形码和价格分别保存在数组a和b中(并且已经按照条形码从小到大排序),第i个商品的条形码保存在a(i)中,对应的价格保存在b(i)中,变量f是标志变量,如果值为True则说明找到了商品,若为False则说明没有找到。 程序界面如图所示,在文本框Text1中输入商品的条形码,单击“开始查找”按钮(Command1)后,对应商品的价格在标签Label4中显示出来,如果未找到则显示“找不到该商品,请重新输入条形码”。 在程序①和②划线处填入适当的语句或表达式,将程序补充完整。 Private Sub Command1_Click() Dim x As String, i As Integer, j As Integer, m As Integer , f As Boolean x = Text1.Text i = 1: j = n: f = False n保存总的商品数 Do While (i = j) And Not (f) m = Fix((i + j) / 2) If ① Then f = True ElseIf x a(m) Then ② Else i = m + 1 End If Loop If f Then Label4.Caption = b(m) Else Label4.Caption = 找不到该商品,请重新输入条形码 End If End Sub 知识点5:对分查找 六种典型算法 6、某班级45名学生,每位学生中文姓名均不相同,并且都有一个英文名。下面程序的功能是根据学生的中文姓名查找相应的英文名,其中学号存储在数组sno中,英文名存储在数组sname中,中文姓名存储在数组ch中。 程序界面如图所示,在文本框text1中输入要查找的中文姓名,单击“开始查找”按钮,如果查找成功,则在文本框Text2中输出该学生的学号、中文姓名和英文名,否则在文本框Text2中输出“查无此人!”。 在(1)和(2)划线处,填入合适的语句或表达式,把程序段补充完整。 Private Sub Command1_Click() Dim key As String, i As Integer Dim n As Integer, found As Boolean found = False n = 0 : i = 1 (1) Do While i = 45

文档评论(0)

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

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

版权声明书
用户编号:8130065136000003

1亿VIP精品文档

相关文档