6.5 实例讲解.pptVIP

  1. 1、本文档共15页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
6.5 实例讲解

上次课复习 6.5 数组实例 利用未知项与已知项之间存在的某种关系,从已知项出发能一项项推出未知项的方法叫递推法,已知项是初始条件。 回顾:p82,题2 例6-13 有15名学生按照已有的编号顺序围成一圈,1~3报数,凡报到3者出圈,并给他一个新的编号。最先出圈者新的编号为1,第二个出圈者新的编号为2,依次类推,直到所有的学生都重新编号。 例6-14 :找出从1-9这9个数字中任取6个不同数字组成的素数 Presented By Harry Mills / PRESENTATIONPRO Presented By Harry Mills / PRESENTATIONPRO 查找算法 顺序查找法 二分查找法 数组的典型算法 求数组元素的和(所有元素,周边元素,主对角线,次对角线) 矩阵的转置矩阵 例6-10 求出裴波拉契数列的前18项,并按顺序将它们显示在一个文本框。 1 n=1 F(n)= 1 n=2 F(n-2)+F(n-1) n≥3 34 1 1 2 3 5 8 13 21 55 89 … Fb(1) Fb(2) Fb(3) Fb(4) Fb(5) Fb(6) Fb(7) Fb(8) Fb(9) Fb(10) Fb(11) Option Base 1 Option Explicit Private Sub Form_Click() Dim fb(18) As Integer, i% fb(1) = 1: fb(2) = 1 For i = 3 To 18 fb(i) = fb(i - 1) + fb(i - 2) Next i For i = 1 To 18 Text1 = Text1 Str(fb(i)) Next I End sub 前两项初值 例6-11 统计字母(不分大小写)在文本中出现的次数。 n1 = 0: n2 = 0: n3 = 0 For i = 1 To 100 a = 10 + Int(Rnd * 90) Select Case a Case Is = 40 n1 = n1 + 1 Case Is = 70 n2 = n2 + 1 Case Else n3 = n3 + 1 End Select Next i Print n1, n2, n3 联系本题: n1 = 0: n2 = 0: n3 = 0:…….n26=0 For i = 1 To len(s) zimu=mid(s,I,1) Select Case zimu Case Is = “a” n1 = n1 + 1 Case Is = “b” n2 = n2 + 1 ……… Case Else n26 = n26 + 1 End Select Next i Print n1, n2, n3,…..n26 Option Explicit Private Sub Command1_Click() Dim st As String, idx As Integer Dim a(0 To 25) As Integer Dim i As Integer, js As Integer Dim ch As String * 1, l As Integer st = Text1.Text l = Len(st) For i = 1 To l ch = Mid(st, i, 1) If ch = A And ch = Z Then idx = Asc(ch) - Asc(A) a(idx) = a(idx) + 1 ElseIf ch = a And ch = z Then idx = Asc(ch) - Asc(a) a(idx) = a(idx) + 1 End If Next i

文档评论(0)

jgx3536 + 关注
实名认证
文档贡献者

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

版权声明书
用户编号:6111134150000003

1亿VIP精品文档

相关文档