实验五循环结构程序设计（二）.docVIP

实验五 循环结构程序设计（二） 一、计划学时：2学时 二、实验目的： 1、掌握各种循环结构之间的关系与转换方法； 2、掌握循环的嵌套使用； 3、掌握循环与选择结构的嵌套使用； （提示：循环嵌套的两种常见格式： For i = 1 To 10 For j = 1 To 10 循环体1 Next For k = 1 To 10 循环体2 Next Next For i = 1 To 10 For j = 1 To 10 For k = 1 To 10 循环体 Next Next Next ） 三、实验内容： 5-1 求1×3×5×7×…×（2n-1）小于400000的最大值。 要求:点击“计算“按钮后，在窗体上显示结果,运行结果如图5-1所示。 步骤： （1）创建窗体，并建立一个命令按钮用于退出程序。 （2）设置各对象的属性，如表5-1所示： （3）在Form_Click事件过程中编写代码； （4）保存文件； （5）运行程序。 表5-1 对象属性设置 对象类型 对象名称 属性名 属性值 备注 窗体 Form1 Caption 求积小于40万的数列的积 Font 幼圆，加粗，四号 命令按钮 Command1 Caption 退出 5-2 有一袋球（在100个到200个）之间，若一次数四个，则剩2个，一次数5个，则剩3个，一次数6个，则正好数完，求该袋中球的个数，界面及运行结果如图5-2所示如图所示。 步骤： （1）创建窗体，建立一个标签用于显示题目要求，建立一个图片框用于显示计算结果，建立一个命令按钮用于退出程序，再画一条直线用于装饰。 （2）设置各对象的属性，如表5-2所示： 表5-2 对象属性设置 对象类型 对象名称 属性名 属性值 备注 标签 Label1 Caption 题目要求的内容 Font 幼圆，加粗，四号 图片框 Picture1 Font 幼圆，加粗，四号 命令按钮 Command1 Caption 退出 （3）在Form_Click事件过程中编写代码； （4）保存文件； （5）运行程序。 5-3 求Sn=a+aa+aaa+…+aa…a的值，其中a是一个数字， 如：S4=2+22+222+2222，此时n=4 ,n与a由输入框输入。 要求： （1）界面如图5-3（a），（b）所示: （2）焦点设定在第一个文本框，点击“清除“按钮则清除个文本框内容，以准备下一次操作。 步骤： （1）创建窗体，建立二个文本框用于显示输入的数串数字内容和数串长度值，建立一个文本框用于显示所生成的数串，建立二个命令按钮用于实现控制动作，再画一条直线用于装饰。 （2）设置各对象的属性，如表5-3所示： 表5-3 对象属性设置 对象类型 对象名称 属性名 属性值 备注 标签 Label1 Caption A= Label2 Caption B= 文本框 Text1,2,3 Font 幼圆，加粗，四号 Text 空 命令按钮 Command1 Caption 下一个 Command2 Caption 退出 （3）在Form_Click事件过程中编写代码； （4）保存文件； （5）运行程序。 5-4 求[1，999]之间所有的水仙花、同构数。 (提示：水仙花数是指这样一个整数，其各位的立方和等于该数：153=13+53+33。同构数是指这样一个整数，它恰好出现在其平方数的右边，如：5是一个同构数，它出现在25的右边。) 要求： （1）界面如图5-4（a），（b）所示: （2）单击窗体，则在窗体的上半部分显示[1，999]之间的水仙花数，下半部分显示[1，999]之间的同构数，下一个按钮实现清除界面内容，以实现下一次的显示，推出按钮实现程序的退出。 步骤： （1）创建窗体，建立二个标签用于所有的水仙花数和同构数，安排好两个标签的位置，建立三个命令按钮用于实现控制动作，再画一条直线用于装饰。 （2）设置各对象的属性，如表5-4所示： 表5-4 对象属性设置 对象类型 对象名称 属性名 属性值 备注 标签 Label1 Caption 结论 Autosize true Label2 Caption 空 Autosize true Label3 Caption 空 Autosize true Command1 Caption 判断 命令按钮 Command2 Caption 下一个 Command3 Cap