VB实验6 简单循环程序设计.pptVIP

  1. 1、本文档共24页,可阅读全部内容。
  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文档。上传文档
查看更多
VB实验6 简单循环程序设计

实验6 简单循环程序设计 一、目的和要求 掌握For/Next、Do/Loop、While/Wend语句的基本语法和执行过程 掌握以下基本算法的应用:累加、连乘 掌握Rnd函数的使用、判断水仙花数的方法 掌握在文本框中每行输出一定数目的数据(如每行输出5个)的方法。 二、预备知识 在Visual Basic中实现循环结构最常用的两种循环语句是For/Next循环语句和Do/Loop循环语句。在循环次数已知的情况下,常使用For/Next循环语句,其格式如下: For 循环控制变量 = 初值 To 终值 [Step步长] 循环体语句 [ Exit For ] 循环体语句 Next [循环控制变量] 二、预备知识 说明: 在循环体内对循环控制变量可以多次引用,但不要对其赋值,否则会影响原来的循环控制规律。 For/Next循环语句在初值 = 终值,并且步长为非零时,循环将执行一次;在如下情况时,循环不会执行。 初值 终值 ,并且步长为零或正数。 初值 终值 ,并且步长为负数。 注意: 一旦进入循环,其“终值”和“步长”不会再改变。 二、预备知识 在循环次数未知时,常使用Do/Loop循环语句,其一般形式如下: 二、预备知识 二、预备知识 说明: (1)在前面两种形式中,逻辑判断是在每一次循环的开始处进行的,所以有可能一次循环都不执行。在后面两种形式中,直到每次循环结束时,才进行逻辑判断,因此,至少可以执行一次循环。 (2)While 条件,当条件成立时执行循环;Until 条件,当条件成立时跳出循环。 二、预备知识 三、实验内容 实验6-1 实验6-2 实验6-3 实验6-4 实验6-1 【题目】 随机产生并显示10个1~10之间的整数,分别求出其中的所有奇数之和和偶数之积 。 实验6-1 【要求】 利用For/Next、Do/Loop两种循环语句加以实现。 【分析】 (1)为了产生某个范围内的随机整数,可以使用如下公式: Int((UpperBound - LowerBound + 1) * Rnd + LowerBound) 其中,UpperBound为随机整数范围的上限,而LowerBound则为随机整数范围的下限。根据此公式,如果要生成1~10之间的随机整数,使用Int((10 ? 1 + 1) * Rnd + 1)这个算术表达式即可。 实验6-1 【分析】 (2)累加定式 累加器 Sum = 0 [语句序列] Sum = Sum + 累加项 其中,Sum为累加值。 (3)累乘定式 Item = 1 [语句序列] Item = Item * 累乘项 其中,Item为累乘结果。 实验6-1 【实验步骤】 (1)界面设计 请参照图6-1所示的界面设计窗体。 (2)完善程序代码 (3)运行工程并保存文件 运行程序,观察运行结果, 最后将窗体文件保存为F6-1.frm,工程文件保存为P6-1.vbp。 实验6-2 【题目】 编写一个歌唱比赛统计选手得分的程序。 实验6-2 【要求】 (1)单击“评委给分”按钮,则利用键盘输入10个0~100分之间的整数,同时显示在文本框中(每行显示5个)。 (2)单击“最后得分”按钮,则计算选手的最后得分。选手的最后得分计算方法为:在评委的给分中,去掉一个最高分和一个最低分,最后计算平均分。 实验6-2 【分析】 (1)要找出10个数的最大值和最小值,可以先假设第一个输入的数据为最大和最小,将其分别赋给变量maxValue和minValue,然后依次与以后输入的其他9个数据逐一进行比较,如果比maxValue大,则将之赋给maxValue,如果比minValue小,则将之赋给minValue,输入数据完毕时,即可得到10个数中的最大值和最小值。 (2)在文本框中显示多项数据,需要先把各数据逐个连接在一起。如果将变量a中的内容连接到文本框Text1现有内容的后面,可使用Text1.Text = Text1.Text a实现。 实验6-2 有时为了使显示效果美观,经常需要进行换行处理。如果每显示一项换行,可使用Text1.Text = Text1.Text a Chr(13) Chr(10)。如果每显示5项后换行,可以使用如下程序段: n = 0 For a = k To w Text1.Text = Text1.Text a n = n + 1 If n Mod 5 = 0 Then

您可能关注的文档

文档评论(0)

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

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

1亿VIP精品文档

相关文档