《课掷骰子游戏》PPT课件.ppt

《《课掷骰子游戏》PPT课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第15课掷骰子游戏复习引入-循环结构For循环结构。在给定条件成立时，可反复执行某程序段，直到条件不成立为止。给定的条件称为循环条件，反复执行的程序段称为循环体。For循环（For……Next）语句的基本格式为：For循环变量初值To循环变量终值Step增量循环体Next变量其中循环变量为数值型变量，初值、终值、增量均为数值型表达式。“Step增量”部分可以省略，缺省时默认为1。在循环体中使用ExitFor语句可直接中止循环，执行next后面的语句。循环结构当增量值为正数时，For循环的执行过程如下：（1）将循环变量赋初值；  （2）比较循环变量是否

2、小于等于终值，小于等于时循环条件成立，运行一次循环体中的语句；如果循环条件不成立时，循环结束，执行Next后面的语句；  （3）遇到Next语句，循环变量增加增量值，转到（2）继续循环；执行过程流程图如右图所示循环结构当增量值为负数时，For循环的执行过程如下：  （1）将循环变量赋初值；  （2）比较循环变量是否大于等于终值，大于等于时循环条件成立，运行一次循环体中的语句；如果循环条件不成立时，循环结束，执行Next后面的语句；  （3）遇到Next语句，循环变量减少增量值，转到（2）继续循环；   执行过程流程图如右图所示复习引入例1：

3、计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标，使用了三种不同的方法来解决，以下程序中的划线处应为：(1)PrivateSubCommand1_Click()          DimsumAsLong          DimiAsInteger          sum=0          Fori=1To97Stepsum=sum+i*i          Nexti          Text1.Text=Str(sum)        EndSub分析数列可知，前一项与后一项

4、均相差3，所以Step步长值取3。复习引入（2）PrivateSubCommand1_Click()          DimsumAsLong          DimiAsInteger          sum=0          Fori=1To33             sum=sum+Nexti          Text1.Text=Str(sum)       EndSub分析数列可知，数列共有33项，前一项与后一项均相差3，通项式ai=3*i-2，当i=1时，a1=1，当i=2时，a2=4，当i=33时，a33=97

5、，所以划线处填3*i-2。(3)PrivateSubCommand1_Click()         DimsumAsLong         DimiAsInteger         sum=0         Fori=1To97            ifthensum=sum+i*i         Nexti         Text1.Text=Str(sum)       EndSub分析数列可知，前一项与后一项均相差3，每项除以3的余数均为1，所以用判断条件imod3=1。数组变量数组变量主要用来存储一批同类型的数据。

6、在实际问题应用中，经常需要成批地处理同一类型的数据。例如，学校要处理全校学生的成绩，运动会上各运动员的比赛成绩、球类比赛时各队的积分等等。   数组是由一批同类型的变量构成的一个序列，组成数组的每一个变量被称为数组的元素，或称为下标变量，下标是一个整数，用来指出某个元素在数组中的位置，数组中每个元素的位置由它的下标唯一地确定。   在实际应用中，一维数组用来存储数据的一个线性序列，二维数组可以用来存储一个二维数表（即表格）。   说明一维数组变量常用形式如下：Dim数组变量名（A1ToA2）As元素的类型A1是下标的下界，A2是下标的上界，A1和

7、A2都是常量。例2一维数组变量说明。Dimscore（1to50）AsInteger    Dim语句定义了由50个整数变量构成的一个一维数组变量score，即，它有50个数组元素score（1）、score（2）、...、score（49）、score（50）,每一个元素都是一个整数类型的变量。   二维数组变量常用形式如下：Dim数组变量名（A1ToA2，B1ToB2）As元素的类型A1和A2分别是第一个下标的下界和上界，第一个下标指出数组元素所在行的行号。B1和B2分别是第二个下标的下界和上界，第二个下标指出数组元素所在列的列号，A1、A2、

8、B1和B2都是常量。例3二维数组变量说明。Dimprice（1to20，1to8）AsDoub