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

实验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