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

1、 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识Visual BasicVisual Basic程序设计实验指导程序设计实验指导第1页 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第2页掌握掌握For/Next、Do/Loop、While/Wend语句语句的基本语法和执行过程的基本语法和执行过程掌握以下基本算法的应用：累加、连乘掌握以下基本算法的应用：累加、连乘掌握掌握Rnd函数的使用、判断水仙花数的方法函数的使用、判断水仙花数的方法掌握在文本框中每行输出一定数目的数据掌握在文本框中每行输出一定数目的数据（如每行输出（如每行输出5个）的方法。个

2、）的方法。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第3页在在Visual Basic中实现循环结构最常用的两种循中实现循环结构最常用的两种循环语句是环语句是For/Next循环语句和循环语句和Do/Loop循环语句。循环语句。在循环次数已知的情况下，常使用在循环次数已知的情况下，常使用For/Next循环循环语句，其格式如下：语句，其格式如下：For = To Step 循环体语句循环体语句 Exit For 循环体语句循环体语句Next 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第4页说明：说明：在循环体内对循环控制变量可以多次引用

3、，但在循环体内对循环控制变量可以多次引用，但不要对其赋值，否则会影响原来的循环控制规不要对其赋值，否则会影响原来的循环控制规律。律。For/Next循环语句在循环语句在 = ，并且并且为非零时，循环将执行一次；在如为非零时，循环将执行一次；在如下情况时，循环不会执行。下情况时，循环不会执行。 初值初值 终值终值 ，并且，并且为零或正数。为零或正数。 初值初值 终值终值 ，并且，并且为负数。为负数。注意注意: 一旦进入循环，其一旦进入循环，其“终值终值”和和“步长步长”不会再不会再改变。改变。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第5页在循环次数未知时，常使用在

4、循环次数未知时，常使用Do/Loop循环语句，循环语句，其一般形式如下其一般形式如下:第一种形式：第一种形式：Do While 循环体语句 Exit Do 循环体语句 Loop 第二种形式：第二种形式：Do Until 循环体语句 Exit Do 循环体语句Loop 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第6页第三种形式：第三种形式：Do 循环体语句 Exit Do 循环体语句 Loop While 第四种形式：第四种形式：Do 循环体语句 Exit Do 循环体语句Loop Until 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第7

5、页说明：说明：（1）在前面两种形式中，逻辑判断是在每一次循）在前面两种形式中，逻辑判断是在每一次循环的开始处进行的，所以有可能一次循环都不环的开始处进行的，所以有可能一次循环都不执行。在后面两种形式中，直到每次循环结束执行。在后面两种形式中，直到每次循环结束时，才进行逻辑判断，因此，至少可以执行一时，才进行逻辑判断，因此，至少可以执行一次循环。次循环。（2）While ，当条件成立时执行循环；，当条件成立时执行循环；Until ，当条件成立时跳出循环。，当条件成立时跳出循环。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第8页 目的和要求目的和要求上一页上一页下一页下

6、一页退退 出出预备知识预备知识第9页 实验6-1 实验6-2 实验6-3 实验6-4 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第10页【题目】【题目】随机产生并显示随机产生并显示10个个110之间的整数，之间的整数，分别求出其中的所有奇数之和和偶数之积分别求出其中的所有奇数之和和偶数之积 。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第11页【要求】【要求】利用利用For/Next、Do/Loop两种循环语句加以实现。两种循环语句加以实现。【分析】【分析】（1）为了产生某个范围内的随机整数，可以使用如下）为了产生某个范围内的随机整数，可

7、以使用如下公式：公式：Int(UpperBound - LowerBound + 1) * Rnd + LowerBound)其中，其中，UpperBound为随机整数范围的上限，而为随机整数范围的上限，而LowerBound则为随机整数范围的下限。根据此公式，则为随机整数范围的下限。根据此公式，如果要生成如果要生成110之间的随机整数，使用之间的随机整数，使用Int(10 1 + 1) * Rnd + 1)这个算术表达式即可。这个算术表达式即可。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第12页【分析】【分析】（2）累加定式）累加定式累加器累加器 Sum = 0

8、语句序列语句序列 Sum = Sum + 累加项累加项 其中，其中，Sum为累加值。为累加值。（3）累乘定式）累乘定式Item = 1语句序列语句序列 Item = Item * 累乘项累乘项 其中，其中，Item为累乘结果。为累乘结果。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第13页【实验步骤】【实验步骤】（1）界面设计）界面设计请参照图请参照图6-1所示的界面设计窗体。所示的界面设计窗体。（2）完善程序代码）完善程序代码（3）运行工程并保存文件）运行工程并保存文件运行程序，观察运行结果，运行程序，观察运行结果， 最后将窗体文件保最后将窗体文件保存为存为F6-

9、1.frm，工程文件保存为，工程文件保存为P6-1.vbp。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第14页【题目】【题目】编写一个歌唱比赛统计选手得分的程序。编写一个歌唱比赛统计选手得分的程序。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第15页【要求】【要求】（1）单击）单击“评委给分评委给分”按钮，则利用键盘输按钮，则利用键盘输入入10个个0100分之间的整数，同时显示在文本分之间的整数，同时显示在文本框中（每行显示框中（每行显示5个）。个）。（2）单击）单击“最后得分最后得分”按钮，则计算选手的最按钮，则计算选手的最后得分。选

10、手的最后得分计算方法为：在评委的后得分。选手的最后得分计算方法为：在评委的给分中，去掉一个最高分和一个最低分，最后计给分中，去掉一个最高分和一个最低分，最后计算平均分。算平均分。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第16页【分析】【分析】（1）要找出）要找出10个数的最大值和最小值，可以先假设第一个数的最大值和最小值，可以先假设第一个输入的数据为最大和最小，将其分别赋给变量个输入的数据为最大和最小，将其分别赋给变量maxValue和和minValue，然后依次与以后输入的其他，然后依次与以后输入的其他9个数据逐一进行个数据逐一进行比较，如果比比较，如果比ma

11、xValue大，则将之赋给大，则将之赋给maxValue，如果比，如果比minValue小，则将之赋给小，则将之赋给minValue，输入数据完毕时，即可，输入数据完毕时，即可得到得到10个数中的最大值和最小值。个数中的最大值和最小值。 （2）在文本框中显示多项数据，需要先把各数据逐个）在文本框中显示多项数据，需要先把各数据逐个连接在一起。如果将变量连接在一起。如果将变量a中的内容连接到文本框中的内容连接到文本框Text1现现有内容的后面，可使用有内容的后面，可使用Text1.Text = Text1.Text & a实现。实现。 目的和要求目的和要求上一页上一页下一页下一页退退 出出

12、预备知识预备知识第17页有时为了使显示效果美观，经常需要进行换行处理。如有时为了使显示效果美观，经常需要进行换行处理。如果每显示一项换行，可使用果每显示一项换行，可使用Text1.Text = Text1.Text & a & Chr(13) & Chr(10)。如果每显示。如果每显示5项后换行，项后换行，可以使用如下程序段：可以使用如下程序段：n = 0For a = k To w Text1.Text = Text1.Text & a n = n + 1 If n Mod 5 = 0 Then Text1.Text = Text1.Text & Ch

13、r(13) & Chr(10) End IfNext a 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第18页【实验步骤】【实验步骤】（1）界面设计）界面设计请参照图请参照图6-2所示的界面设计窗体。所示的界面设计窗体。（2）完善程序代码）完善程序代码（3）运行工程并保存文件）运行工程并保存文件运行程序，观察程序运行结果，最后将窗体文运行程序，观察程序运行结果，最后将窗体文件保存为件保存为F6-2.frmF6-2.frm，工程文件保存为，工程文件保存为P6-2.vbpP6-2.vbp。 。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识

14、第19页【题目】【题目】求水仙花数。求水仙花数。水仙花数是指这样的三位整数，它水仙花数是指这样的三位整数，它各 位 数 字 的 立 方 和 恰 好 等 于 该 数 本 身 。 例 如各 位 数 字 的 立 方 和 恰 好 等 于 该 数 本 身 。 例 如153=1153=13 3+5+53 3+3+33 3。编程将所有的水仙花数显示在窗体上，。编程将所有的水仙花数显示在窗体上，并在文本框中显示个数。并在文本框中显示个数。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第20页【分析】【分析】（1）用循环语句列出）用循环语句列出100999之间的整之间的整数数i（穷举法

15、）。（穷举法）。（2）将）将i分解成个、十、百位（利用除法、分解成个、十、百位（利用除法、求余的方法）。求余的方法）。（3）判断）判断i是否等于其个位、十位和百位三是否等于其个位、十位和百位三个数的立方和，若是则输出。个数的立方和，若是则输出。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第21页【实验步骤】【实验步骤】（1）界面设计）界面设计请参照图请参照图6-3所示的界面设计窗体。所示的界面设计窗体。（2）完善程序代码）完善程序代码（3）运行工程并保存文件）运行工程并保存文件运行程序，观察程序运行结果，最后将窗体文运行程序，观察程序运行结果，最后将窗体文件保存为件保存为F6-3.frm，工程文件保存为，工程文件保存为P6-3.vbp。 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第22页【题目】【题目】求级数和。求级数和。编程求下列级数的和，最后一项的值编程求下列级数的和，最后一项的值不小于不小于0.0000010.000001。 2311!2 !3!nXXXXSn 目的和要求目的和要求上一页上一页下一页下一页退退 出出预备知识预备知识第23页【分析】【分析】从上面的求和展开式中可以看出，相从上面的求和展开式中可以看出，相邻两项之间存在着如下关系：邻两项之间存在着如下关系：利用循环可以求出利用循环可以求出S的近似