第5章VB控制结构与算法.pptVIP

下载本文档

10
0
约1.49千字
约 8页
2017-06-13 发布于天津
举报
版权申诉

第5章VB控制结构与算法.ppt

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

第5章VB控制结构与算法

实训六循环程序设计 Private Sub Command1_Click() Dim a(1 To 7) For i = 1 To 7 a(i) = i: Print a(i); Next i Print For i = 1 To 7 t = a(7) For a(j + 1) = a(j) Next j For j = 1 To 7 Print a(j); Next j Next i End Sub 运行程序，检验运行结果是否正确。 2、 Do 语句【实训要求】编程求出被3、5、7除，余数为1的最小的五个正整数。（106、211、316、421、526 ） Sx6_2.vbp 【实训步骤】第1步：建立一个标准工程，窗体上添加一个“求解” 按钮，界面如图：第2步：编写代码 Private Sub Command1_Click() Dim countn%, n% countn = 0 ‘统计个数 n = 1 Print Do n = n + 1 If Then Print n; countn = countn + 1 End If Loop End Sub 运行程序，检验运行结果是否正确。做一做： 1、某次大奖赛，有七个评委打分，对每一名参赛者，输入七个评委的打分分数，去掉一个最高分和一个最低分后，求出每位参赛者的得分。界面如图： Sx6_3.vbp 做一做： 2、有一个四位数具有这样的特点：它的平方根恰好就是它中间两位的数字，例如：3600的平方根为60。编程找出所有这样的四位数。界面如图： sx6_4.VBP 做一做： 3、编程输出大小可变的正方形图案，如图，最外圈是第一层，要求每层上用的数字与层数相同。界面如图： sx6_5.VBP 做一做： 4、编写一个英文打字速度测试程序，要求如下：（1）单击“产生”按钮在产生文本框内随机产生30 个英文字母；（2）当焦点进入键入文本框时开始计时，并显示当时的时间；（3）在键入文本框按产生的范文输入相应的字母；（4）当输满 30 个字母时结束计时，并且禁止向文本框输入内容，显示打字的速度和正确率，界面如图： sx6_6.VBP * 制作：柳淑花第 5 章循环结构 * 下一页上一页一、实训目的 1、掌握For / Next 循环语句的用法。 2、掌握Do / Loop 语句的用法。二、实训内容 1、 For 语句【实训要求】将一维数组中的元素利用移位的方法显示如图所示的图形。 Sx6_1.vbp 【实训步骤】第1步：建立一个标准工程，窗体上添加一个“显示”按钮。第2步：编写代码下一页上一页下一页上一页下一页上一页下一页上一页上一页上一页上一页