- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vb程序设计的3种基本结构
补充例题:爱因斯坦的阶梯问题 设有一阶梯,每步跨2阶,最后余1阶;每步跨3阶,最后余2阶;每步跨5阶,最后余4阶;每步跨6阶,最后余5阶;每步跨7阶时,最后正好到达阶梯顶。问共有多少阶梯? Private Sub Form_Click() Dim i% i = 7 Do While (i Mod 3 2) Or (i Mod 5 4) Or (i Mod 6 5) i = i + 14 Loop Print 共有; i; 个阶梯 End Sub 奇数 7的倍数 例4.15 统计文本框中英文单词的个数(设单词由空格、逗号、分号、感叹号、回车符、换行符作为单词之间的分隔符)。 编程分析: ?用变量Last存放上一次取出的字符、Char存放当前所取出字符,变量nw累计单词数,从左边开始的第I个字符的位置用变量I存放、其初值为1。 ?从文本(字符串)的左边开始,取出第I个字符值赋给Char,如果Char是英文字母,同时它的前一个字符Last是为单词分隔符,则表示当前的字母是新单词的开始,累计单词数。 ?将Char值赋给Last、I自增1,重复第2、3步直到文本末尾。 7. 字符串处理 加密算法是: 将每个字母C加(或减)一序数K,即用它后的第K个字母代替,变换式公式: c=chr(Asc(c)+k) 例如:设序数k为5,这时 A→ F, a→ f,B→ G… 当加序数后的字母超过Z或z则 c=Chr(Asc(c)+k -26) 例如:You are good→ Dtz fwj ltti 解密算法:解密为加密的逆过程 将每个字母C减(或加)一序数K,即 c=chr(Asc(c)-k), 例如:序数k为5,这时 Z→U, z→u,Y→T… 当加序数后的字母小于A或a则 c=Chr(Asc(c)-k +26) 例4.16 字符的加密和解密 1.本章介绍了结构化程序设计方法及其算法表示,这对初学程序设计的同学来说可能认识不到它的重性,其实算法是程序设计的灵魂,因为要编写一个好的程序,首先就要设计好的算法。即使一个简单程序,在编写时也要考虑先做什么,再做什么,最后做什么。 2.面向对象的程序设计并不是要抛弃结构化程序设计方法,而是站在比结构化程序设计更高、更抽象的层次上去解决问题。当它被分解为低级代码模块时,仍需要结构化编程的方法和技巧。程序都是由顺序结构、选择结构和循环结构3种结构的复杂组合。 本章小结 下面题直接做在作业本上 P86一、二、三、四题 五编程题与上机实验要在 上机练习时完成。 本章作业 * * * * * * * * * * * * * For i = 1 To 9 For j = 1 To 9 se = i × j = i * j Picture1.Print Tab((j - 1) * 9 + 1); se; Next j Picture1.Print Next i 例题:打印九九乘法表. For i =1 To 10 For j=1 To 20 … Next j Next i For i =1 To 10 … Next i For i =1 To 10 … Next i (1) 内循环变量与外循环变量不能同名; (2) 外循环必须完全包含内循环,不能交叉; (3) 不能从循环体外转向循环体内,也不能从外循环转向内循环. 下面是正确的嵌套 例4.11:将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞,要求每种零钞不少于1张,问有哪几种组合? 循环嵌套注意事项: For i =1 To 10 For
文档评论(0)