活动一用For...Next语句实现循环结构 (3)

,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,算法与程序设计,For Next,循环语句,思,考,1,、如果制作了一条欢迎标语，那么我们需要打印出来,10,条甚至更多条这个标语该怎么做呢？,2,、计算机是如何查找到某个盘符或文件夹内用户所需要的一个文件？,3,、如何读取出数据库中的一组数据，并按从小到大或从大到小的顺序排列显示出来？,要完成这样有规律的重复性工作，应该使用哪种程序结构来实,现？,循环结构特点,在程序中，用于重复一个或一组语句的那一部分称为,循环,。,在一个循环中重复的语句（或语句组）称为,循环语句块,。,For Next,循环语句格式,For,循环控制变量,=,初值,To,终值,Step,步长,循环语句块,Next,循环控制变量,-,打印出,1-20,的所有奇数,-,For k=1 To 20,Step 2,Print k;,Next,k,-,评委打分,思考：,（,1,）回顾第,1,章第,2,节，,第,19,页,“求三个数中最大值问题”的算法思路。如何找到最高分和最低分？,（,2,）如何获得评委的打分？,（,3,）计算选手最终得分的数学算式是什么？,算法描述,程序设计,定义变量：,MaxS,（最高分）、,MinS,（最低分）、,Score,（评委打分）、,Sum,（打分总计）、,i,（循环变量）,Dim MaxS#,MinS#,Score#,Sum#,Dim i As Integer,循环开始：遍历,5,位评委打分,？,当第,1,个评委打分，,MaxS,、,MinS,、,Sum,赋初值,If i=1 Then MaxS=,？,；,MinS=,？,；,Sum=,？,如果不是第,1,个评委打分，,则给,MaxS,、,MinS,、,Sum,的赋值，,如果,i=5,执行,，否则执行,If MaxS Val(Score)Then,MaxS=,？,Else,If Val(Score)MinS Then MinS=,？,End If,Sum=Sum+Val(Score),输出相应信息,Print MaxS,MinS,？,程序结束,End Sub,设计程序：打印出下面四种图形（,For Next,循环）,思考以下问题并编写程序：,（,1,）查看图形排列规律，填写表格中“*”个数与所在行对应关系，思考其之间关系的通项公式是什么。,（,2,）,VB,中在窗体中默认的打印位置怎样？,（,3,）如何调整“*”开始打印的位置？,作业,1,：完成打印图形（,4,）程序设计。,作业,2,：百钱百鸡问题，根据算法和流程图设计出程序代码。,